PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Inserir uma imagem ao Corpo da Mensagem do Email

https://pctoledo.org/viewtopic.php?t=16846

Página 3 de 4

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 18:01
por 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.

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 18:13
por 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.

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 19:42
por 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, "")

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 19:45
por 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)

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 20:08
por JoséQuintas
O que postei primeiro, imagem do thunderbird, é da minha conta do gmail.

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 20:12
por JoséQuintas
email gmail.png

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 20:24
por asimoes
Quintas,

Eita mistério!

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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 20:40
por JoséQuintas
Já postei há muito tempo por aqui, talvez há mais de um ano.

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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 20:43
por JoséQuintas
Uia

Abril/2013

Vai fazer quase 2 anos.

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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 21:17
por 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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 19 Jan 2016 22:04
por asimoes
Quintas,

Infelizmente não funcionou para mim.

De qualquer forma obrigado.

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 20 Jan 2016 21:27
por 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
Screen Shot 01-20-16 at 09.19 PM.PNG
No Google Chrome ou Internet Explorer:
Screen Shot 01-20-16 at 09.23 PM.PNG
Screen Shot 01-20-16 at 09.23 PM.PNG (10.07 KiB) Exibido 10835 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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 20 Jan 2016 23:44
por 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

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 21 Jan 2016 08:21
por 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
Screen Shot 01-21-16 at 08.23 AM.PNG

Inserir uma imagem ao Corpo da Mensagem do Email

Enviado: 21 Jan 2016 09:46
por 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.
Todos os horários são UTC-03:00
Página 3 de 4

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB