* From Rick Strahl's examples in wwipstuff, with a few modifications. * Download WWIPSTUFF from www.west-wind.com SET PROCEDURE TO wwUtils ADDITIVE SET CLASSLIB TO wwIPStuff ADDITIVE CLEAR o=CREATE("wwIPStuff") SET MEMOWIDTH TO 200 *** Sending SMTP Mail * YOU NEED TO KNOW THE GATEWAY FOR YOUR EMAIL ACCOUNT. THE FOLLOWING IS FOR * MY WEBSERVER o.cMailServer="mail.shelbynet.com" o.cSenderEmail="john.harvey@shelbynet.com" o.cSenderName="This Would Also Be You" * IF SENDING TO MULTIPLES OPEN A TABLE AND SCAN THROUGH, OTHERWISE SEND ONE *scan * THIS IS GETTING THE EMAIL ADDRESS FROM THE EMAIL FIELD IN A TABLE. * YOU COULD ALSO JUST HARD CODE THE EMAIL ADDRESS o.cRecipient=allt(email) * THE CARBON COPY LIST (254 CHAR LIMIT - I think) * o.cCCList="rstrahl@xwest-wind.com,looser@nobody.com" * THE BLIND CARBON COPY LIST (254 CHAR LIMIT - I think) * o.cBCCList="rstrahl@west-wind.com" o.cSubject='Test' * THE TABLE HAS A MEMO FIELD (NOTE) o.cMessage='This is the body text, which could be anything' * o.cMessage=MESSAGE.NOTE * SEND AN ATTACHMENT o.cAttachment="e:\vfplibrary\web\strahl\sendmail.prg" llResult = o.SendMailAsync() && Send message and return immediately w/o result *!* llResult = o.SendMail() && Send again - wait for completion IF !llResult Wait window o.cErrorMsg ELSE Wait window nowait "Message sent..." ENDIF *ENDscan