CDO email with signature

CDO email with signature

Postby Wanderson » Thu Dec 14, 2017 5:36 pm

Hi,

I use CDO to send emails, is possible send with a signature, in this case a jpg image?

Thanks in advance.
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Re: CDO email with signature

Postby karinha » Thu Dec 14, 2017 5:48 pm

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
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7151
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: CDO email with signature

Postby Wanderson » Fri Dec 15, 2017 4:19 pm

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
 


It's work, thank you!
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 14 guests