>********************************************************************************* >* 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.......: Susan Burnham 11/27/00 Added check to determine if object exists >************************************************************************************************************** >lparameters pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,; > pcAttachments, plReceipt, plShowClient, plFetch > >local lnReturn > >IF TYPE('loMail')#'O' > loMail=newobject('cusmapi','mapimail.vcx') >ENDIF > >lnReturn=loMail.SendMail(pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,; > pcAttachments, plReceipt, plShowClient, plFetch) > >loMail.release() >*release loMail >return lnReturn>