Outlook Attachments in VA

VA Smalltalk is a "100% VisualAge compatible" IDE that includes the original VisualAge technology and the popular VA Assist and WidgetKit add-ons.

Moderators: Eric Clayberg, wembley, tc, Diane Engles, solveig

Outlook Attachments in VA

Postby xabialonso2 » Mon Jun 14, 2010 7:13 pm

Can anybody tell me how to attach a file to an Outlook email.

The code below does not seem to work.

Thanks a lot

sendEmail:aWidget clientData: clientData callData: callData

| tAutoObj ow app anItem file fileObject attachmentObject|

file := (CwFileSelectionPrompter new
searchMask: nil;

attachmentObject := (OutlookAppWrapper current) createItem: 5.

ow :=OutlookMailItemWrapper createObject.

ow attachments: attachmentObject.
ow to: self getEmailAddress;subject:'This is a subject';hTMLBody: 'Hello - this is a test'.
(self subpartNamed: 'OLE Client1') parentView basicCreateWidget.
(self subpartNamed: 'OLE Client1') openWidget.
aWidget set:false.
ow display:0
Posts: 6
Joined: Mon Jun 14, 2010 6:59 pm

Return to VA Smalltalk 7.0, 7.5 & 8.0

Who is online

Users browsing this forum: No registered users and 1 guest