Kbase P116699: How to send an e-mail with recipients in BCC using Microsoft Outlook from 4GL
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
14/06/2006 |
|
Status: Unverified
GOAL:
How to send an e-mail with recipients in BCC using Microsoft Outlook from 4GL
GOAL:
How to send e-mails with hidden recipients using Microsoft Outlook from 4GL
FIX:
There are two ways on how to accomplish this, please refer to the sample code provided below for further information.
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 objOutlookRecip1 AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE objOutlookRecip2 AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" objOutlook.
objoutlookMsg = objOutlook:CreateItem(0).
/**** Option 1 ****/
objOutlookRecip1 = objOutlookMsg:Recipients:Add("mail1@mail1.com").
objOutlookRecip1:Type = 1. /* olTo */
objOutlookRecip1:Resolve.
objOutlookRecip2 = objOutlookMsg:Recipients:Add("mail2@mail2.com").
objOutlookRecip2:Type = 3. /* olBCC */
objOutlookRecip2:Resolve.
objOutlookMsg:Subject = "Your Subject".
objOutlookMsg:Body = "The Body".
/******************/
/**** Option 2 ****/
objOutlookMsg:To = "mail1@mail1.com; mail2@mail2.com; mail3@mail3.com".
objOutlookMsg:BCC = "mail1@mail1.com; mail2@mail2.com; mail3@mail3.com".
objOutlookMsg:Subject = "Your Subject".
objOutlookMsg:Body = "The Body".
/******************/
objOutlookMsg:Send.
objoutlook:Quit().
/**** Required for Option 1 ****/
RELEASE OBJECT objOutlookRecip1.
RELEASE OBJECT objOutlookRecip2.
/*******************************/
RELEASE OBJECT objOutlookMsg.
RELEASE OBJECT objOutlook.