project BLF > class Mail > method SendWithAttachments

Description

Send a mail with a certain number of files attached to it


Parameters


icFrominputcharacterFrom addressee
icToinputcharacterPipe (|) separated list of recepients addresses.
icCcinputcharacterPipe (|) separated list of recepients carbon copy addresses.
icSubjectinputcharacterSubject of the mail
icBodyinputcharacterBody text of the mail.
icAttachmentsinputcharactercomma separated list of files that need to be attached to the mail message. The files need to be reachable through the propath of the session, or they need to be qualified with the full path.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/mail.p)

assign oiReturnStatus = -98.

assign vcCc   = icCc
       vcDate = ENTRY(WEEKDAY(today),"Sun,Mon,Tue,Wed,Thu,Fri,Sat":U) + " ":U +
                STRING(DAY(today)) + " ":U + 
                ENTRY(MONTH(today),"Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec":U) + " ":U + 
                STRING(YEAR(today)) + " ":U +
                STRING(time,"HH:MM:SS":U) + " ":U +
                string(timezone(now) * 5 / 3,"+9999").

/* Check the attachments */
ASSIGN vcAttachments = "".
DO viCnt = 1 TO NUM-ENTRIES(icAttachments) :
    ASSIGN vcAttachments = vcAttachments + 
                           (IF vcAttachments = "" THEN "" ELSE ",":U) + 
                           SEARCH(ENTRY(viCnt,icAttachments)).
END.
IF vcAttachments = ? 
THEN DO :
    ASSIGN oiReturnStatus = -98.
    RETURN.
END.

<M-1 run Send
          (input  icFrom (icFrom), 
           input  icTo (icTo), 
           input  icSubject (icSubject), 
           input  icBody (icBody), 
           output oiReturnStatus (oiReturnStatus)) in Mail>
if oiReturnStatus <> 0 then return.

assign oiReturnStatus = 0.