Hi,
I use CDO to send emails, is possible send with a signature, in this case a jpg image?
Thanks in advance.
IF IMAGEM = "S" // Assinatura Digital no Email. Joao
// NO RODAPE DA MENSAGEM.. EU SOU PLORIDA,,, KKKKKKKKKKK
oCfg:HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"
loBP := :AddRelatedBodyPart( cDirPleno + "\LOGO.JPG", "id_imagen10", 1)
WITH OBJECT loBP:Fields // Assinatura Digital no Corpo do Email
// oCfg:Item("urn:schemas:mailheader:Content-ID") = "id_imagen10" // Asi, genera WARNINGS
oCfg:Item("urn:schemas:mailheader:Content-ID"):Value := "id_imagen10" // Asi, no.
oCfg:Update()
END WITH
ENDIF
karinha wrote:
- Code: Select all Expand view
IF IMAGEM = "S" // Assinatura Digital no Email. Joao
// NO RODAPE DA MENSAGEM.. EU SOU PLORIDA,,, KKKKKKKKKKK
oCfg:HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"
loBP := :AddRelatedBodyPart( cDirPleno + "\LOGO.JPG", "id_imagen10", 1)
WITH OBJECT loBP:Fields // Assinatura Digital no Corpo do Email
// oCfg:Item("urn:schemas:mailheader:Content-ID") = "id_imagen10" // Asi, genera WARNINGS
oCfg:Item("urn:schemas:mailheader:Content-ID"):Value := "id_imagen10" // Asi, no.
oCfg:Update()
END WITH
ENDIF
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 117 guests