Subject Simple MAPI Test
From Pablo Botella
Date Mon, 4 May 2009 22:29:38 +0200
Newsgroups ot4xb.examples
Attachment(s) TestMAPI.zip

   WITH OBJECT TMapiSendMsg():New()
      .:Sender(,"Sender Name") // or  .:Sender("sender@address,"Sender Name")
      .:Recipient("anybody@anydomain.com")
      .:Recipient("anybody2@anydomain.com","Recipient Name Optional")
      // more recipients ...
      .:Subject("TMapiSendMsg")
      .:Body("Testing MAPI")
      .:File(cPathCombine(cAppPath(),"TestMapi.prg"),"TestMapi.prg" )
      .:File(cPathCombine(cAppPath(),"TMapiSendMsg.prg"),"TMapiSendMsg.prg" )
     // more attachments ...
      ? iif( .:Send() , "OK" , "Fail" )
   END WITH