Como enviar uma imagem no corpo do email utilizando o cdosys

olá,

Como enviar uma imagem no corpo do email utilizando o cdosys?

Estou tentando enviar uma imagem do computador local, por exemplo um arquivo .jpeg que está numa determinada pasta, no corpo do email (não atachado) através do cdosys.

Já estou conseguindo enviar dados variáveis tipo txt, mas, imagem não.

Estou montando o código assim:

Set .Configuration = w_config
   .From = "xxx"
   .Sender = "xxx@xxx"
   .Subject = "xxx - " & Me.F1_ID_CHAMA
   .HTMLBody = "xxx - " & Me.F1_ID_CHAMA & "
" & "
" & _
   "campo a: " & "" & w_ambie_opera & "" & "
" & _
   "campo b: " & "" & w_grupo_chama & "" & "
" & _
   "campo c: " & "" & w_nome_item & "" & "
" & _
   "campo d: " & "" & w_descr_item & "" & "
" & _

  "" & _

   "campo e: " & "" & w_descr_probl & ""

Os dados txt chegam ok no email destino, mas, no lugar da imagem aparece somente um 'desenho parecido com um ícone', sem exibir o conteúdo da imagem.

Por favor, caso alguém possa me esclarecer a causa do problema e me passar uma dica, será de grande ajuda.

obrigado

Bom dia

Tenho alguns bancos de dados aqui que uso para envio de e-mails como notas fiscais, solicitação de coleta, boletos e outros.

no final tem a assinatura do usuário que está mandando e está um pouco diferente do seu.

o correto é  

Código:

<img src="c:\imagem\x.jpg"

boa tarde Osmar,


obrigado pela sua atenção...
mas, ainda não obtive sucesso...

por favor, vc poderia me enviar o trecho inteiro do seu código, desde "With..." até "End With" ?
desta forma eu poderei fazer uma comparação melhor, principalmente na parte ".HTMLBody"...

a linha em questão é esta:
"<p><img src='c:\imagem\x.jpg'></p>" & _ ' IMAGEM

a construção utilizando (") e (') é por causa da montagem do ".HTMLBody",
que parece exigir uma montagem deste tipo:
.HTMLBody = "xxx"


o meu trecho inteiro está assim:

Set w_config = New CDO.Configuration

With w_config
'gmail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

Set w_msg = New CDO.Message

With w_msg

Set .Configuration = w_config
.From = "xxx"
.Sender = "xxx@gmail.com"
.Subject = "xxx"
.HTMLBody = "xxx" & Me.F1_ID_CHAMA & "<br>" & "<br>" & _
"campo a: " & "<b>" & w_ambie_opera & "</b>" & "<br>" & _
"campo b: " & "<b>" & w_grupo_chama & "</b>" & "<br>" & _
"campo c: " & "<b>" & w_nome_item & "</b>" & "<br>" & _
"campo d: " & "<b>" & w_descr_item & "</b>" & "<br>" & _

"<p><img src='c:\imagem\x.jpg'></p>" & _ ' IMAGEM

"campo e: " & "<b>" & w_descr_probl & "</b>"

.To = "xxx@hotmail.com" '
.Send

End With

Ola, Bom dia Lima

Bom, extrai de um banco de dados que tenho aqui para envio de boletos, está meio improvisado, mais dá pra ter uma noção de como fazer.

Anexo banco de dados e código abaixo caso não tenha interesse de usar tabela.

Código:

<style>
.azul {
font-family:Calibri;
font-size:14,0px;
color:#17365D;
padding-left:10px
 }
</style>
<div class="azul"><strong>A/C Depto. financeiro</strong><br/><strong></strong><br/><strong>Bom dia!!</strong><br/><strong></strong><br/><strong>Você está recebendo uma cópia da nota fiscal e boletos</strong><br/></strong><br/>Cliente: cliente1 - CNPJ : 00.000.000/0001-90</strong><br/>Nota fiscal : 55555 do dia 19/07/2022</strong><br/>Valor total: R$ 10.000,00</strong><br/></strong><br/></strong><br/>
          <tbody>
          </Style>
</strong><br/>
<strong>Atenciosamente,</strong><br/>
            <img src="c:\image\x.png" border="0" />
          </a>
    </tr>
</style>


boa tarde Osmar,

Pelo que entendi na sua solução, o e-mail é enviado através do 'client Outlook'.

Na solução que estou trabalhando, o e-mail é enviado através do cdosys, que independe de 'client de e-mail'. Sei que funciona se a imagem estiver num link da internet (<'img src=//http...'>), mas, pegando de uma pasta local (<'img src=c:\imagem\x.jpg'>), não está funcionando).

Então, devido a essa diferença, não vi como resolver a questão.

Mesmo assim, muito obrigado pela sua ajuda, pois, quando eu tiver que enviar e-mails através do 'Outlook', poderei consultar a sua solução.

obrigado

Voce não entendeu

Eu sei que são métodos diferentes porem a linguagem html é usado em ambos os métodos.

a única coisa que você vai fazer é adaptar essa linguagem html que postei no seu HTMLBody.

01 - Crie uma caixa de texto com nome "codigohtml" conforme fiz no formulário com os códigos html (recomendo que você importe a minha tabela com os códigos já feitos, e puxe as informações dela)
02 - Coloque os campos que deseja enviar no corpo do e-mail conforme exemplo que deixei em anexo, e coloque esse campo "codigohtml" no seu HTMLbody.


ASSIM:

Código:

HTMLbody = forms!nomedoformulario!codigohtml

bom dia Osmar,


obrigado pela ajuda

vou estudar a sua solução para entendê-la melhor


até mais