E-mail report to multiple persons

[SKaushal]

Greetings All,

My problem is that I want to send a report file to multiple persons.
e.g using

UNIX SILENT "mail -s "XYZ Report" users@you.com<report.file"

Where users can be 1 or 2 or 10 With different names but same domaim name ie @you.com


Thanks

Sanjeev

 

[Simon Sweetman]

How about this.

DEF VAR lc_mailcmd AS CHAR NO-UNDO.

lc_mailcmd = 'mail -s "XYZ Report" ' +
    'user1@you.com ' +
    'user2@you.com ' +
    ' < myreport.txt'.

UNIX SILENT value(lc_mailcmd).

Of course you will need to produce the file myreport.txt first, and the users would typically come from your DB or some external config file rather than being hard coded.

Simon

 

[walkeryan]

Use multiple address.

 

[dayv2005]

just set the string for the to property email ; email2 ; email3 and so forth.

DO WITH FRAME {&FRAME-NAME}:
    
    DEFINE VARIABLE attach-name  AS CHARACTER    NO-UNDO.
    DEFINE VARIABLE Folder       AS COM-HANDLE   NO-UNDO.
    DEFINE VARIABLE MailItem     AS COM-HANDLE   NO-UNDO.
    DEFINE VARIABLE message-text AS CHARACTER    NO-UNDO.
    DEFINE VARIABLE NameSpace    AS COM-HANDLE   NO-UNDO.
    DEFINE VARIABLE Outlook      AS COM-HANDLE   NO-UNDO.
    DEFINE VARIABLE priority     AS CHARACTER    NO-UNDO.
    DEFINE VARIABLE SafeItem     AS COM-HANDLE   NO-UNDO.

    CREATE "Outlook.Application" Outlook.
        
    ASSIGN 
        NameSpace   = Outlook:GetNameSpace("MAPI":U)
        Folder      = NameSpace:GetDefaultFolder(6)
        attach-name = SESSION:TEMP-DIRECTORY + PDFFileName.
    
    ASSIGN 
        MailItem            = Folder:Items:Add()
        MailItem:To         = scr-To:SCREEN-VALUE
        MailItem:Subject    = scr-Subject:SCREEN-VALUE
        MailItem:Body       = TRIM(ed-Mess:SCREEN-VALUE)
        MailItem:Importance = 0.


    MailItem:OriginatorDeliveryReportRequested = IF tDR:SCREEN-VALUE = "YES"
                                                        THEN TRUE ELSE FALSE.
    MailItem:ReadReceiptRequested              = IF tRR:SCREEN-VALUE = "YES"
                                                        THEN TRUE ELSE FALSE.
            
    MAilItem:Attachments:ADD(attach-name).
    
    /* Redemption addition */
    CREATE "Redemption.SafeMailItem" SafeItem.
        
    SafeItem:item = MailItem.
    SafeItem:SEND().
    /* addition ended */

    RELEASE OBJECT MailItem  NO-ERROR.
    RELEASE OBJECT Folder    NO-ERROR.
    RELEASE OBJECT NameSpace NO-ERROR.
    RELEASE OBJECT Outlook   NO-ERROR.
    RELEASE OBJECT SafeItem  NO-ERROR.

END.

END PROCEDURE.