#DEFINE cret Chr(13)+Chr(10)
#DEFINE dret cret+cret
 
PRIVATE obj
obj = CreateObject("MapiSendMail")
 
WITH obj
 
    * though the Sender object is implemented I never managed to make it
    * something else but the default address for the local email client
 
    .AddSender("A.A.", "someone@somwhere.mail")
 
    * add one or more recipients 
    * note that the following ones will not work, just an example
 
    .AddRecipient("Chivas Regal", "info@chivasregal.mail")
    .AddRecipient("Jim Beam", "info@.jimbeam.mail")
    .AddRecipient("John Walker", "info@.johnwalkermail")
    .AddRecipient("Canadian Club", "info@.canclubmail")
 
    .MsgSubject = "Test Message"
 
    .MsgBody ="This text will be put into body of your message." + dret +;
        "You can also use table fields and Text and Edit Boxes." + dret +;
        "Source:" + cret +;
        "http://www.news2news.com/vfp"
 
    * adding file attachments
    * make sure that all files are available
 
    .AddAttachment("C:\myfiles\Resume\cover.txt")
    .AddAttachment("C:\myfiles\Resume\cv.doc")
    .AddAttachment("C:\myprogs\sample.PRG")
 
    .SndMessage
ENDWITH