CLEAR o=CREATE("wwIPStuff") SET MEMOWIDTH TO 200 *** Sending SMTP Mail IF .F. o.cMailServer="mail.mailserver.net" o.cSenderEmail="rstrahl@west-wind.com" o.cSenderName="Bill Bopp" o.cRecipient="loser@west-wind.com,rstrahl@agorge.net" o.cCCList="rstrahl@xwest-wind.com,looser@nobody.com" o.cBCCList="rstrahl@west-wiund.com" o.cSubject="wwIPStuff Test Message" o.cMessage="Who said this had to be difficult?" * o.cAttachment="c:\config.sys" *? 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 ENDIFCetin