?sendmails(,,"Nosonovsky","Sending Mails from VFP",; "ONE MORE TRY. See, if you get an attachment. "+ ; "This is a test message... If you receive it, it means, this class actually works.", ; "o:\redp\output\customer\cmls\pr32BWTR.PDF")
********************************************************************************* * Description.......: SendMails - automatically sends mails with attachments * Calling Samples...: ?sendmails(,,"Nosonovsky;Lovins;Pasnik;Geiss","Sending Mails from VFP","This is a test message... If you receive it, it means, this class actually works.","g:\redp\appl\OutputModule\Classes\Fox.reg") * Parameter List....: pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,pcAttachments, plReceipt, plShowClient, plFetch * Created by........: Nadya Nosonovsky 07/19/2000 12:31:39 PM * Modified by.......: ************************************************************************************************************** lparameters pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,pcAttachments, plReceipt, plShowClient, plFetch local loMail, lnReturn loMail=newobject('cusmapi','mapimail.vcx') lnReturn=loMail.SendMail(pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,pcAttachments, plReceipt, plShowClient, plFetch) return lnReturn