asked on
PROCEDURE EnviaEmailBOCl
LPARAMETERS EmailCl, Assunto, Texto, Ficheiro
LOCAL EnviaOk
EnviaOk = .t.
IF EnviaOk
#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2
oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
oOutLookObject = oEmailItem.GetInspector
ADIR(aHtmSig,GETENV("APPDATA")+"\Microsoft\Signatures\*.htm")
xfile = GETENV("APPDATA")+"\Microsoft\Signatures\"+aHtmSig(1,1)
x= FILETOSTR(xfile)
WITH oEmailItem
.Recipients.Add(EmailCL) && uses the Recipients collection
&&.CC="assistente@acidados.pt"
.Subject = Assunto
.Importance = IMPORTANCENORMAL
**.Display()
.HtmlBody = "Adding text!!<br>" + x
.Attachments.Add(Ficheiro) && Note that the fully qualified path and file is required.
**.Send
.Display
ENDWITH
RELEASE oEmailItem
RELEASE oOutLookObject
ENDIF
ENDPROC