FiveTech Software tech support forums

Code: Select all

FUNCTION SendEmailByOutLook (cReportName)            //Using Ole
	LOCAL oOutLook,;
	oMailItem,;
	oRecip,;
	oAttach


/* creating the OLE object */
	oOutLook := TOleAuto():New("Outlook.Application")

/* creating a Mail Item object*/
	oMailItem := oOutLook:Invoke("CreateItem", 0)

	// creating Recipients object and attaching addresses
	oRecip := oMailItem:Invoke("Recipients")
	oRecip:Invoke("Add", "my_email_address@msn.com")

   /* creating subject and body of the mail message using the
   SET method of the mail item object */
	oMailItem:Set("Subject", "Sending an e-mail with Outlook")
	oMailItem:Set("Body", "Email test using outlook"+CRLF+CRLF)

  /* creating an Attachment object and adding files to send */
	oAttach := oMailItem:Invoke("Attachments")

	oAttach:Invoke("Add", cReportName)

	//oMailItem:Display(.T.)

  /* Mail message created, now send the full featured message*/
  	oMailItem:Invoke("Send")

	/* Destroy all the created OLE objects
		oRecip:End()
	   oAttach:End()
		 oMailItem:End()
		oOutLook:End()
	*/

   /* done */
	MsgInfo("Email Message sent")

Code: Select all

 Time from start: 0 hours 1 mins 31 secs 
   Error occurred at: 09/04/2006, 09:52:21
   Error description: Error Outlook.Application:CREATEITEM/16389  E_FAIL: RECIPIENTS
   Args:

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:RECIPIENTS(0)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: win32ole.prg => TOLEAUTO:INVOKE(415)
   Called from: rpreview0.prg => SENDEMAILBYOUTLOOK(2069)