Inserir uma imagem ao Corpo da Mensagem do Email

[JoséQuintas]

Disse que abriu o html e mostrou imagem, sinal de que é um html válido.

Então o CDO restringe isso.

Deixa eu olhar de novo os posts, se deixei escapar alguma coisa.

[JoséQuintas]

Deixei passar um importante: onde diz que o gmail não permite mensagens no corpo do email.

Aqui não uso gmail.
E em todas as contas de email que uso funciona.

[asimoes]

Quintas,

Com GMail.
Desta forma funciona com CDOSYS

Código: Selecionar todos

//Imagem no computador (local)
cImagem:="asaprev1.png"
cImagem1:='<img src="asaprev1.png" alt="AsaPrev">'
//Imagem de uma URL (nuvem)
//cIm := 'https://lh3.googleusercontent.com/-lJ9SOHOjv1Y/Vp0QG_sXorI/AAAAAAAABBs/PW7a4aIYjz8/s574-Ic42/screenshot.png'
//cImagem1:= '<p><IMG SRC="&cIm"></p>'
//
//Métodos do objeto CDO.Message
//
:AddRelatedBodyPart(hb_DirBase()+cImagem, cImagem, 1)
:Fields:Item("urn:schemas:mailheader:Content-ID"):Value          := "<"+cImagem+">"
:HTMLBody := cMsg + QuebraHTML + IF(!Empty(cImagem), cImagem1, "")

[asimoes]

Quintas,

Você pode fazer um teste enviando uma imagem para um email do gmail
pode ser até o meu se quiser (asimoesluz@gmail.com)

[JoséQuintas]

O que postei primeiro, imagem do thunderbird, é da minha conta do gmail.

[JoséQuintas]

[asimoes]

Quintas,

Eita mistério!

Não tem como você postar a sua rotina de envio de email para eu testar aqui?

[JoséQuintas]

Já postei há muito tempo por aqui, talvez há mais de um ano.

Ao que parece, estão deixando passar muita coisa.

[JoséQuintas]

Uia

Abril/2013

Vai fazer quase 2 anos.

https://pctoledo.org/forum/viewto ... para+email

[asimoes]

Quintas,

Excelente contribuição, pelo que eu entendi para eu realizar um teste aqui, vou usar o método SendUsingHarbour que é o que você usa correto?
Esse código sofreu alguma atualização, pergunto porque eu uso o harbour 3.4 e a função do método SendUsingHarbour hb_sendmail não tem na 3.4 só na versão 3.2

[asimoes]

Quintas,

Infelizmente não funcionou para mim.

De qualquer forma obrigado.

[asimoes]

Quintas,

Novidades descobri algo interessante.

Fazendo um teste com tip_Mainsend que é a função de email do harbour 3.4
Instalei o thunderbird mo meu notebook, até tenho instalado em outro computador desktop.
A imagem aparece no corpo do email (thunderbird): veja

No Google Chrome ou Internet Explorer:

Screen Shot 01-20-16 at 09.23 PM.PNG (10.07 KiB) Exibido 10832 vezes

O código do teste:

Código: Selecionar todos

 cHtmlText := [<img src=] + HtmlEncodeJPEG( PNGAsa() ) + [ width="150" height="150">]

 cBody  := "<strong>"+AzulHTML   +"Log de confirma‡Æo de envio de email em: "+HB_DtoC(Date(),"DD/MM/YYYY") +;
            QuebraHTML+;
            VermelhoHTML+"Feito pelo harbour."+"</strong>" +;
            QuebraHTML +;
            QuebraHTML +;
            "VersÆo: "+Version()+" "+hb_compiler() +;
            QuebraHTML +;
            cHtmlText + ;
            QuebraHTML
 
 cBodyTemp   := "BODY.HTM"
 
 nFileHandle := fCreate(cBodyTemp)
                fWrite(nFileHandle, cBody)
                fClose(nFileHandle)

lRet  := tip_MailSend(cHost, ;
                       nPorta, ;
                       cAlias, ;
                       cTo, ;
                       cCC, ;
                       {} , ;
                       cBodyTemp , ;
                       cSubJect , ;
                       aAnexo , ;
                       cUser, ;
                       cPassword, ;
                       "", ;
                       nPriority , ;
                       lRead , ;
                       .F. , ;
                       .F., ;
                       nTimeOut , ;
                       NIL , ;
                       .T. , ;
                       lSSL, ;
                       NIL , ;
                       NIL , ;
                       NIL )

FUNCTION PNGAsa()
   #pragma __binarystreaminclude "asaprev1.png" | RETURN %s

[JoséQuintas]

Pela internet não mostra.
Tentei no celular também e não mostra.

À primeira vista, eles bloqueiam e removem a imagem, e depois clicando pra mostrar não tem mais a imagem....
Eles não desfazem o que fizeram... rs

[asimoes]

Quintas,

Que coisa hein!

Eu tava aqui batendo cabeça, e o problema estava no browse, eu pensei no thunderbird quando você mencionou.
Ai eu pensei, será que no thunderbird vai mostrar a imagem? e mostrou!
Então fica a dica para quem quiser utilizar a dica da imagem no corpo da mensagem.

Obs.: Assim: a imagem usando a variável cImagem mostra no browser, cHtmlText não.
No thunderbird mostra ambas.

cHtmlText := [<img src=] + HtmlEncodeJPEG( PNGAsa() ) + [ width="150" height="150">]

cIm := [https://lh3.googleusercontent.com/-QVwB ... APREV1.PNG]
cImagem:= '<p><IMG SRC="&cIm"></p>'

A vantagem deste método acima é que a imagem está na nuvem, no meu teste no picasa, e funciona no browser e thunderbird vai entender!

Código: Selecionar todos

cIm := [https://lh3.googleusercontent.com/-QVwBnkr04oA/Vp0Pa7miUII/AAAAAAAABBg/jh0iCxs2bMA/s279-Ic42/ASAPREV1.PNG]
cImagem:= '<p><IMG SRC="&cIm"></p>'
 cBody  := "<strong>"+AzulHTML   +"Log de confirma‡Æo de envio de email em: "+HB_DtoC(Date(),"DD/MM/YYYY") +;
            QuebraHTML+;
            VermelhoHTML+"Feito pelo harbour."+"</strong>" +;
            QuebraHTML +;
            QuebraHTML +;
            "VersÆo: "+Version()+" "+hb_compiler() +;
            QuebraHTML +;
             cImagem +;
             QuebraHTML +;
            cHtmlText + ;
            QuebraHTML

Imagem no browser a primeira usando o picasa a segunda usando cHtmlText

[JoséQuintas]

E como eu só uso thunderbird, não via isso.
Só prestei atenção pelo celular depois que mencionou.

Agora é olhar algum email que funciona, salvar como txt, e olhar como fazem.

Talvez seja interessante fazer um teste com o BLAT pra ver como ele faz.

No html é <img src="cid:nome"> e no arquivo usamos embed. Tem naquele meu fonte, é o que eu usava antes.
Seria salvar o email pra ver em formato fonte.

Ficar enviando imagem pra servidor não sei se é interessante, mas depois que a Microsoft removeu Outllook do Windows, parece que ninguém mais instala programa de email, só nós mesmo.... rs

Talvez melhor deixar como sendo o primeiro anexo, assim abre automático, mas seria enviar o emblema da empresa pronto pra uso.