If you want to use Outlook:
loOutlook=CreateObject("Outlook.Application") loMsg = loOutlook.CreateItem(0) loMsg.BodyFormat= 2 && olFormatHTML loMsg.HtmlBody="<p>HTML body text</p>" loMsg.Body = "Plain body text for clients without HTML mail support." loMsg.Subject="Subject" loMsg.Recipients.Add("someguy@somewhere.com") loMsg.Recipients.Add("somegal@anotherplace.com") loMsg.Attachments.Add("attach1.txt", 1) loMsg.Attachments.Add("attach2.txt", 1) loMsg.Attachments.Add("attach3.txt", 1)
Try llSent = loMsg.Send() Catch to loException && handle it Finally release loMsg release loOutlook Endtry
HOWEVER
There are some drawbacks to this.
- Despite it sending via Outlook, you will find that any Outlook signatures or stationery that would normally apply won't get used on the programmatically created message.
- You may find that the dread Outlook security message ('A program is trying to send mail on your behalf...') will crop up, depending on Outlook and Exchange Server version.