Enviar Emails Com O Corpo Do Email Com Figuras Ao Invés De Anexos ?

[Leo Lobo]

Gostaria de saber se alguém sabe o código para ,ao invés de anexar arquivos , inserir figuras em seu corpo.

Necessito desta informação pois os anexos dependendo do provedor ficam bloqueados.

Grato,

Leo

[Graymalkin]

Você está se referindo ao componente Py.Sendmail? Se for, use o método InsertImage().

Abraços,

Graymalkin

[Guest --Leo Lobo --]

Olá agradeço seu retorno. Porém sou um iniciante em tentar programar e automatizar tarefas. Conto com sua ajuda.

O código abaixo funciona , mas quando coloco o metodo insert image não sei se estou colocando algo errado . Peço sua correção:

Private Sub Comando2_Click()

Dim AppOut As Outlook.Application

Dim msg As Outlook.MailItem

Set AppOut = New Outlook.Application

Set msg = AppOut.CreateItem(olMailItem)

msg.BCC = Me.EMAIL

msg.Subject = "Obrigado por sua visita!"

msg.Body = "Obrigado por sua visita!"

msg.insertimage ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg")

msg.Attachments.Add ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg")

msg.Send

End Sub

[Leo Lobo]

Olá agradeço seu retorno. Porém sou um iniciante em tentar programar e automatizar tarefas. Conto com sua ajuda.

O código abaixo funciona , mas quando coloco o metodo insert image não sei se estou colocando algo errado . Peço sua correção:

Private Sub Comando2_Click()

Dim AppOut As Outlook.Application

Dim msg As Outlook.MailItem

Set AppOut = New Outlook.Application

Set msg = AppOut.CreateItem(olMailItem)

msg.BCC = Me.EMAIL

msg.Subject = "Obrigado por sua visita!"

msg.Body = "Obrigado por sua visita!"

msg.insertimage ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg")

msg.Attachments.Add ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg")

msg.Send

End Sub

[Graymalkin]

Ops... você não está usando o Py.Sendmail... eu pensei que você fosse o mesmo desta dúvida aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108767

Então, no caso, pode esquecer o que eu falei sobre o método InsertImage().

Abraços,

Graymalkin

[Leo Lobo]

Você está se referindo ao componente Py.Sendmail? Se for, use o método InsertImage().

Abraços,

Graymalkin

GOSTARIA DE SABER SE SERIA POSSIVEL ENTÃO ME PASSAR COMO FICARIA A PARTE DO CÓDIGO UTILIZANDO O INSERT IMAGE , POIS NÃO ESTOU CONSEGUINDO.

O CAMINHO DA IMAGEM É:

C:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg

GOSTARIA DE SABER SE SERIA POSSIVEL ENTÃO ME PASSAR COMO FICARIA A PARTE DO CÓDIGO UTILIZANDO O INSERT IMAGE DO PY SENDMAIL , POIS NÃO ESTOU CONSEGUINDO.

O CAMINHO DA IMAGEM É:

C:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg

[Graymalkin]

A sintaxe é:

obj.InsertImage "caminho da imagem"

Onde "caminho da imagem" é um caminho como "c:\pasta\arquivo.jpg". Além disso, você também deve acrescentar o seguinte código HTML ao corpo da sua mensagem:

<img src="cid:0" />

Neste local aparecerá a imagem indicada pelo índice (0 para a primeira, 1 para a segunda, 2 para a terceira, e assim por diante).

Dê uma olhada no exemplo de VB e você verá este procedimento no botão que adiciona imagens na mensagem.

Abraços,

Graymalkin