How To Send E-mail Programmatically Using MSMAPI OLE Control

MORE INFORMATION

Code Sample

   * Create an instance of a form, and then add the MSMAPI.MAPISession and
   * MSMAPI.MAPIMessages OLE controls to that form:

   oform = CreateObject("form")
   oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
   oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")

   * Call the Signon method of the MAPISession control. If the user is not
   * logged into mail, this will prompt the user to sign on. This also sets
   * the SessionId property for the MAPIsession control:

   oform.Session1.signon

   * Set the SessionId of the MAPIMessage control to the SessionId of the
   * MAPISession control, which was just obtained:

   oform.Message1.sessionid = oform.Session1.sessionid

   * Compose an e-mail message and set the subject line and Message text:

   oform.Message1.compose
   oform.Message1.msgsubject = "Memo from my FoxPro app"
   oform.Message1.msgnotetext = "This works"

   * Sends the e-mail message. The (1) is required to send the message.

   oform.Message1.send(1)

   * Optionally, sign off from mail:

   oform.Session1.signoff

   * Optionally, release the objects if they are no longer needed:

   release oform