Clipper On Line • Ver Tópico - Inserir uma imagem ao Corpo da Mensagem do Email

Inserir uma imagem ao Corpo da Mensagem do Email

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 17:01

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é M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 17:13

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 19 Jan 2016 18:42

Quintas,

Com GMail.
Desta forma funciona com CDOSYS

//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, "")
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 19 Jan 2016 18:45

Quintas,

Você pode fazer um teste enviando uma imagem para um email do gmail
pode ser até o meu se quiser (asimoesluz@gmail.com)
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 19:08

O que postei primeiro, imagem do thunderbird, é da minha conta do gmail.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 19:12

email gmail.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 19 Jan 2016 19:24

Quintas,

Eita mistério!

Não tem como você postar a sua rotina de envio de email para eu testar aqui?
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 19:40

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

Ao que parece, estão deixando passar muita coisa.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 19 Jan 2016 19:43

José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 19 Jan 2016 20:17

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
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 19 Jan 2016 21:04

Quintas,

Infelizmente não funcionou para mim.

De qualquer forma obrigado.
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 20 Jan 2016 20:27

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) Visualizado 3330 vezes


O código do teste:

 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
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 20 Jan 2016 22:44

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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor asimoes » 21 Jan 2016 07:21

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/-QVwBnkr04oA/Vp0Pa7miUII/AAAAAAAABBg/jh0iCxs2bMA/s279-Ic42/ASAPREV1.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!
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
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Inserir uma imagem ao Corpo da Mensagem do Email

Mensagempor JoséQuintas » 21 Jan 2016 08:46

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13529
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Anterior Próximo



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro