********************************************************************************* * 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 lnReturnBTW, I dropped a note to Nigel about this idea, so he'll probably look into it too.