[Resolvido] Anexar Imagem no corpo do email usando VBA Excel e o Outlook

Esta é uma Imagem! .

Marcelo G Prudencio disse:

. . . O email foi enviado mas a imagem nao aparece no destino.
O erro: "A imagem vinculada nao pode ser exibida, talvez o arquivo tenha sido movido renomeado ou excluido...."

Esta é uma Imagem! .

Basole disse:

A imagem do meu exemplo, está aqui https://www.hardware.com.br/static/c/avatars/l/908/908394.jpg se estiver on-line, é só clicar pra ver, não foi renomeada nem excluída.

Não sei qual o método utilizou, mas com o exemplo abaixo funciona perfeitamente.

Vou deixar o exemplo completo, para quem precisar futuramente.

[code=vb]
Sub MandaEmail()
Dim EnviarPara As String

Const urlImg As String = "https://www.hardware.com.br/static/c/avatars/l/908/908394.jpg"

EnviarPara = "e-mail_do_destinatario@gmail.com"
If EnviarPara <> "" Then
Envia_Emails EnviarPara, urlImg
End If

End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
Dim OutlookApp As Object
Dim OutlookMail As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = EnviarPara
.CC = ""
.BCC = ""
.Subject = "Teste de Envio de E-mail corpo com Imagem"
.HTMLBody = "

Esta é uma Imagem! .

" & _
""
.Display ' para envia o email diretamente defina o código .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
[/code]