Sending a e-mail by Ms Outlook with progress…

DEFINE VARIABLE objOutlook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE objOutlookMsg AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE objOutlookAttach AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE objOutlookRecip AS COM-HANDLE NO-UNDO.

CREATE “Outlook.Application” objOutlook.

objoutlookMsg = objOutlook:CreateItem(0).
objOutlookRecip =

objOutlookMsg:Recipients:Add(“sl4v3r@gmail.com”).
objOutlookRecip:Type = 1.
objOutlookMsg:Subject = “Hi”.
objOutlookMsg:Body = “Hi sl4v3r…”.
/* objOutlookMsg:Attachments:Add(“file.txt”). */

objOutlookRecip:Resolve.
objOutlookMsg:Send.

/*objoutlook:Quit(). */

RELEASE OBJECT objOutlook.
RELEASE OBJECT objOutlookMsg.
RELEASE OBJECT objOutlookRecip.

😀