Recebi vários questionamentos no meu post anterior (Enviando individualmente e-mails em massa), sobre como fazer para alterar o código e adicionar imagens a ele. Pois aquele código foi elaborado para o envio de texto simples, para adicionar imagens precisamos alterá-lo para o envio como HTML.
IMPORTANTE: LEIA TUDO ANTES DE EXECUTAR, PARA EVITAR EFEITOS INDESEJADOS. Se possível, não use para SPAM.
Realize os mesmos passos descritos na minha postagem anterior, mas utilize o código abaixo, ao invés daquele original.
Public Sub SepareDrafts()
Dim lDraftItem As Long
Dim myOutlook As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolders As Outlook.Folders
Dim myDraftsFolder As Outlook.MAPIFolder
Dim objMailMessage As Outlook.MailItem
Dim emlBody, sendTo As String
Dim TOs
Set myOutlook = Outlook.Application
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders
Set myDraftsFolder = myNameSpace.PickFolder
For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1
TOs = Split(myDraftsFolder.Items.Item(lDraftItem).To, ";")
For i = 0 To UBound(TOs)
Set objMailMessage = myOutlook.CreateItem(olMailItem)
With objMailMessage
.BodyFormat = olFormatHTML
.To = TOs(i)
.Subject = myDraftsFolder.Items.Item(lDraftItem).Subject
.HTMLBody = myDraftsFolder.Items.Item(lDraftItem).HTMLBody & "<img src='C:\Imagem\image001.png'>" ‘Lembre de ajustar a parte entre os apóstrofos para o caminho correto de sua imagem
.Display
.Send
End With
Next
Next lDraftItem
Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing
End Sub
Todas as explicações sobre o funcionamento estão no post anterior, por isso é importante ler ele antes de executar.
Este novo código irá adicionar uma imagem no final do seu texto. Caso deseje adicioná-la no meio dele, você criar o texto inteiro, com as imagens através do código, o que lhe dará a possibilidade de personalizar ainda mais suas mensagens.
Antes de usar o código em produção, leia o post anterior (Enviando individualmente e-mails em massa), faça um teste para contas de e-mail suas e verifique se o resultado obtido é o que deseja, pois depois de ter enviado o e-mail para seus contatos não adiantará mais ficar insatisfeito!