progress/email

[waystew]

I am new to the world of progress but have been asked to write code that takes a file and e-mails it to multiple people. I was wondering if it is possible to send the email through progress code, if so i would appreciate any tips on how to do so. If not, what would be the best way to do it? thank you.

 

[Cabral]

Hi Talker,

This is a sample code to send mail with progress.


Find other samples codes in PROGRESSTALK or Look at the http://www.fast4gl.com to find more sample codes.

/**********************************************************/
/*
* This sample demonstrates the use of OLE Windows Messaging Server as an
* ActiveX Automation server. The following code sends an e-mail message to the
* user whose e-mail address is assigned to the Name property.
*/

DEFINE VAR objSession AS COM-HANDLE.
DEFINE VAR objMessage AS COM-HANDLE.
DEFINE VAR objRecip AS COM-HANDLE.
DEFINE VAR one AS LOGICAL INIT YES.

CREATE "MAPI.SESSION" objSession.

objSession:Logon().
objMessage = objSession:OutBox:Messages:Add().
objMessage:Subject = "4GL Automation Test".
objMessage:Text = "Hi, this is a test message using the MAPI Server".
objRecip = objMessage:Recipients:Add().

/* TODO: PLEASE type in a valid email address inside the quotes */
objRecip:Name = "<put address here>".

objRecip:Type = 1.
objRecip:Resolve.
objMessage:Update(TRUE, TRUE).
objMessage:Send(TRUE, FALSE).
objSession:Logoff.

RELEASE OBJECT objRecip.
RELEASE OBJECT objMessage.
RELEASE OBJECT objSession.

MESSAGE "Completed" VIEW-AS ALERT-BOX.
/**********************************************************/

If you need more help send me a mail.
Kind Regards,