Enviando individualmente e-mails em massa, com imagem no corpo do e-mail - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Enviando individualmente e-mails em massa, com imagem no corpo do e-mail

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!

Published quinta-feira, 31 de janeiro de 2013 11:13 by Paleo

Filed under:

Comments

# Enviando e-mail em massa com anexo e imagens@ sexta-feira, 8 de fevereiro de 2013 2:40

Tenho recebido dúvidas se seria possível enviar anexos também com o meu script. Parece que muita gente

Tecnologias

# re: Enviando individualmente e-mails em massa, com imagem no corpo do e-mail@ segunda-feira, 27 de maio de 2013 7:35

Bons dias Carlos,

Belo script, trabalho excelente, ajuda imenso a personalizar os mails e não divulgar os endereços.

Muito obrigado.

Gostava, se fosse possivel, que desses um exemplo de como personalizar a mensagem,para evitar colocar as imagens no fim de todo o conteúdo.

Muito Obrigado,

Grande abraço

Francisco

# re: Enviando individualmente e-mails em massa, com imagem no corpo do e-mail@ sexta-feira, 21 de junho de 2013 15:17

Francisco, tenho outro script aqui no blog que envia na forma de anexo, dá uma conferida.

Paleo

Leave a Comment

(required) 
(required) 
(optional)
(required)