To send email with image

Kleyton · Post by **Kleyton** » Wed Aug 09, 2006 12:35 pm

it has as to below insert image in the sending of email in the example?

#include "fivewin.ch"
****************
FUNCTION SendMail
*****************
LOCAL oOutLook,oMailItem,oRecip,oAttach

oOutLook := TOleAuto():New("Outlook.Application")

oMailItem := oOutLook:Invoke("CreateItem", 0)

oRecip := oMailItem:Invoke("Recipients")
oRecip:Invoke("Add", "lara.softhouse@gmail.com")
oRecip:Invoke("Add", "cleiton.softhouse@bol.com.br")

oMailItem:Set("Subject", "Testing e-mail via ole fw")

oMailItem:Set("Body", "Assunto, referente fatura 0001 no valor de "+CRLF+ ;
"R$ 1.500,00"+CRLF+CRLF+"Tudo Informática"+CRLF)

oAttach := oMailItem:Invoke("Attachments")
oAttach:Invoke("Add", "c:\autoexec.bat")
oAttach:Invoke("Add", "c:\config.sys")

oMailItem:Invoke("Send")

oRecip:End()
oAttach:End()
oMailItem:End()
oOutLook:End()

MsgInfo("Mensagem enviado com sucesso !")

RETURN NIL

Post by **Antonio Linares** » Thu Aug 10, 2006 5:28 pm

Kleyton,

Code: Select all

oMailItem:Set( "HTMLBody", '<HTML><HEAD></HEAD><BODY><img src="http://www.fivetechsoft.com/images/logo5t2.gif"</BODY></HTML>' )

Kleyton · Post by **Kleyton** » Fri Aug 11, 2006 11:25 am

Antonio Linares, Debtor for the aid, but did not give certain, did not insert the image in the body of the email.

He has as to use this process of sending of email for the OutlookExpress?

James Bott · Post by **James Bott** » Sat Aug 12, 2006 5:48 am

Kleyton,

You cannot use OLE with Outlook Express, but you can use FW's TMail class. See my reponse to your message in the FWH section.

James

Post by **Antonio Linares** » Sat Aug 12, 2006 6:42 am

Kleyton,

Here it works fine with Outlook 2003 (not Outlook Express).