Quintessence
New Member
Hi everybody,
I am using the following code to send an email through webspeed using outlook. The code works and sends the email, however, I want the Outlook message window to open so that the user can edit the body before sending, instead of the program sending automatically. It was suggested in another thread to remove 'h_objoutlookmsg:SEND.', but this doesn't seem to work.
I don't want to use MAPI or mailto:.
DEF VAR h_objoutlook AS COM-HANDLE NO-UNDO.
DEF VAR h_objoutlookmsg AS COM-HANDLE NO-UNDO.
DEF VAR h_objoutlookrecip AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" h_objoutlook.
h_objoutlookmsg = h_objoutlook:CreateItem(0).
h_objoutlookrecip =
h_objoutlookmsg:Recipients:Add("mhowes@corp-sec.com").
h_objoutlookrecip:Type = 1.
h_objoutlookmsg:Subject = "Test send Subject".
h_objoutlookmsg:Body = "<message_contents>".
h_objoutlookrecip:Resolve.
h_objoutlookmsg:SEND.
h_objoutlook:Quit().
RELEASE OBJECT h_objoutlook.
RELEASE OBJECT h_objoutlookmsg.
RELEASE OBJECT h_objoutlookrecip.
Thanks
Michael
I am using the following code to send an email through webspeed using outlook. The code works and sends the email, however, I want the Outlook message window to open so that the user can edit the body before sending, instead of the program sending automatically. It was suggested in another thread to remove 'h_objoutlookmsg:SEND.', but this doesn't seem to work.
I don't want to use MAPI or mailto:.
DEF VAR h_objoutlook AS COM-HANDLE NO-UNDO.
DEF VAR h_objoutlookmsg AS COM-HANDLE NO-UNDO.
DEF VAR h_objoutlookrecip AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" h_objoutlook.
h_objoutlookmsg = h_objoutlook:CreateItem(0).
h_objoutlookrecip =
h_objoutlookmsg:Recipients:Add("mhowes@corp-sec.com").
h_objoutlookrecip:Type = 1.
h_objoutlookmsg:Subject = "Test send Subject".
h_objoutlookmsg:Body = "<message_contents>".
h_objoutlookrecip:Resolve.
h_objoutlookmsg:SEND.
h_objoutlook:Quit().
RELEASE OBJECT h_objoutlook.
RELEASE OBJECT h_objoutlookmsg.
RELEASE OBJECT h_objoutlookrecip.
Thanks
Michael