outlook

[Sergio Peres]

Boa tarde !

 

Como faço para configurar meu outlook, pois quando existe imagens no "corpo" do e-mail e vou encaminhá-lo, os arquivos ficam anexos e não mais no corpo do e-mail. O que faço para permanecer aberta as imagens quando abrir o e-mail.

 

Att,

 

Sergio

[Basole]

Sergio, segue sugestao em vba, que envia o email de acordo que voce precisa.

 

* Mas para q a imagem 'carregue' no corpo do email, como se fosse um banner, voce  precisa ter sua imagem na web,

  e informar o endereço (url) ao codigo.

 

A imagem q postei de exemplo do codigo foi no site gratuito: http://postimage.org/

Public Sub Enviar_mail()    Dim myOutlook As Object, msg As Object    Dim ImagemUrl As String    Set myOutlook = CreateObject("Outlook.Application")    Set msg = myOutlook.CreateItem(olMailItem)    ImagemUrl = "http://s30.postimg.org/wud4sq8u9/55213_Papel_de_Parede_Surf_1600x1200.jpg"    'AQUI a url da imagem hospedada    With msg        .To = "[email protected]"    'AQUI altere o email do destinatario.        .CC = ""        .BCC = ""        .Subject = "Email Teste [Corpo Imagem]"        '.Attachments.Add "c:\Temp\image002.png", olByReference, 1        .HTMLBody = "<img border='0' src=" & ImagemUrl & "width='900' height='510'>"        .Send    End WithEnd Sub

abx