Calling Outlook e-mail editor screen from Progress v8.3

"Dean Bailes " wrote:

>>I can already produce e-mails using cdo.dll but I'd like

>to be able to invoke the Outlook (or general) e-mail

>editor screen. Any help gratefully received.

Hi Dean,

try it via OCX:

DEFINE VAR outlook AS COM-HANDLE.

def var olMailElement as com-handle.

def var olMailRec as com-handle.

def var olNameSpace as com-handle.

CREATE "outlook.Application":U outlook.

olNameSpace = outlook:GetNameSpace("MAPI":u).

olMailElement = outlook:CreateItem(olMailItem).

olMailRec = Mail-element:Recipients:Add("xxx@aol.com").

no-return-value olMailElement:display.

release OBJECT outlook.

Fun,

Patrick