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.

Moderador: Moderadores
//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, "")
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
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
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes