Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Imagem não aparece ...
 
Notifications
Clear all

Imagem não aparece no corpo do email?

 
2024 - VBA & Macros
Post Recente por anderdiniz 7 anos atrás
6 Posts
3 Usuários
0 Reactions
2,200 Visualizações
RSS
 anderdiniz
(@anderdiniz)
Posts: 20
Eminent Member
Topic starter
 
Sub teste()



 Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
Dim imagem As String
imagem = "C:tempteste.jpg"
    With myItem
    .To = "diniabr2011@gmail.com"
    .CC = ""
    .Subject = "A imagem está aparecendo no corpo do email? Ou só como anexo?"
    .Attachments.Add imagem
    .HTMLBody = .HTMLBody & "<br><B>TESTE</B><br>" _
                & "<img src='cid:teste.jpg'" & "width='936' height='724'><br>" _
                & "<br>Best Regards, <br>Sumit</font></span>"
    .send
    End With
End Sub

Ao utilizar esse código, o email recebido não exibe a imagem no corpo do email, mas na pasta emails enviados, aparece a imagem no corpo do email.

 
Postado : 31/10/2017 1:54 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

anderdiniz,

Boa noite!

Não se entendi bem a sua necessidade. Fiz um teste aqui, enviei para o meu próprio email e com uma imagem que eu tinha no micro e deu tudo certo. O email que eu recebi consta a imagem no corpo do email. Veja a imagem abaixo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2017 4:59 pm
 anderdiniz
(@anderdiniz)
Posts: 20
Eminent Member
Topic starter
 

Aqui no meu não aparece a imagem.

 
Postado : 01/11/2017 2:49 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

anderdiniz,

Bom dia!

Aí já não sei te dizer o que pode ser pois, como viu, no meu (Excel 2007) seu código está corretíssimo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/11/2017 7:28 am
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
 

gostei desse tb , vou adaptar aqui rsrsr.

Andre

 
Postado : 01/11/2017 2:09 pm
 anderdiniz
(@anderdiniz)
Posts: 20
Eminent Member
Topic starter
 
Option Explicit

Sub teste()


Dim MyOlapp As Object
Dim myItem As Object
Dim olMailItem As Integer

 Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
Dim imagem As String
Dim str As String
imagem = Application.GetOpenFilename()
str = recolheImagem(imagem)
    With myItem
    .To = "diniabr2011@gmail.com"
    .CC = ""
    .Subject = "Teste de Imagem"
    .Attachments.Add imagem
    .HTMLBody = .HTMLBody & "<br><B>TESTE</B><br>" _
                & "<img src='cid:" & str & "' width ='136' height='74'><br>" _
                & "<br>Best Regards, <br>Sumit</font></span>"
   .display
   .send
    End With
End Sub




Function recolheImagem(stImagem)
Dim x, ultimo_x
'vamos buscar só o nome da imagem
x = InStr(1, stImagem, "")
Do
ultimo_x = x
x = InStr(x + 1, stImagem, "")
Loop Until x = 0
recolheImagem = Mid(stImagem, InStr(ultimo_x, stImagem, "") + 1, Len(stImagem))

End Function

Descobri a solução:
No meu caso, foi necessário dar um display antes do send.

 
Postado : 03/11/2017 12:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico