Como enviar e-mails personalizados em massa para uma lista do Excel via Outlook?

Por exemplo, tenho o seguinte intervalo de dados em uma planilha que contém as colunas Nome, Endereço de E-mail e Código de Registro, e agora quero enviar uma mensagem com uma saudação personalizada e seu próprio Código de Registro para os endereços de e-mail separados na coluna A. Para resolver esse problema, os seguintes métodos podem ajudá-lo.

Enviar e-mails personalizados em massa para uma lista do Excel com a função Mala Direta

Enviar e-mails personalizados em massa para uma lista do Excel com código VBA

Enviar e-mails personalizados em massa para uma lista com diferentes anexos usando o Kutools para Excel

Enviar e-mails personalizados em massa para uma lista do Excel com a função Mala Direta

Com a função Mala Direta do Word, você pode concluir essa tarefa rapidamente e facilmente; siga as etapas abaixo passo a passo:

1. Abra um novo documento em branco no Word e clique em E-mails > Selecionar Destinatários > Usar uma Lista Existente, veja a captura de tela:

2. Na janela Selecionar Fonte de Dados, escolha a pasta de trabalho que inclui o intervalo de dados que deseja usar e clique no botão Abrir, veja a captura de tela:

3. No próximo diálogo Selecionar Tabela, por favor, selecione a planilha com o intervalo de dados necessário e depois clique no botão OK, veja a captura de tela:

4. O documento principal da mensagem de e-mail e sua lista de endereços foram conectados juntos. Agora, você pode editar a mensagem de texto e adicionar marcadores de posição que indicam onde as informações únicas aparecerão em cada mensagem.

(1.) Para inserir o nome de saudação individual, clique em E-mails > Inserir Campo de Mesclagem > Nome. O nome personalizado foi inserido na mensagem, e o nome do campo é cercado por « ».

(2.) Continue digitando sua mensagem e insira o Código de Registro no local onde você precisa, veja a captura de tela:

5. Após compor a mensagem, você pode clicar em Visualizar Resultados na guia Mala Direta para visualizar mensagens de e-mail e fazer alterações antes de realmente concluir a mesclagem.

6. Depois de ter certeza de que não há problemas, você pode enviar os e-mails para os destinatários separados. Por favor, clique em E-mails > Concluir e Mesclar > Enviar Mensagem de Email, veja a captura de tela:

7. Em seguida, na caixa de diálogo Mesclar para E-mail que apareceu, faça as seguintes operações:

(1.) Na lista suspensa Para, escolha a coluna Endereço_de_Email;

(2.) Você pode digitar o assunto na caixa de texto Linha de Assunto;

(3.) Na seção Enviar Registros, selecione Todos.

8. E então clique em OK, os e-mails serão enviados aos destinatários separados com seus próprios códigos de registro imediatamente. Após o envio dos e-mails, você pode ir ao seu Outlook para garantir que os e-mails foram enviados com sucesso.

Enviar e-mails personalizados em massa para uma lista do Excel com código VBA

Além da função Mala Direta, o seguinte código VBA também pode ajudá-lo, por favor, faça o seguinte:

1. Mantenha pressionadas as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Código VBA: Enviar e-mails personalizados em massa para uma lista do Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja usar, veja a captura de tela:

4. E então clique no botão OK, os e-mails serão enviados para endereços separados com seus códigos de registro individuais um por um. Após o envio dos e-mails, você pode acessar seu Outlook para garantir que os e-mails foram enviados com sucesso.

Nota: No código acima, você pode alterar o assunto ou o corpo da mensagem conforme necessário.

Enviar e-mails personalizados em massa para uma lista com diferentes anexos usando o Kutools para Excel

Se você tem o Kutools para Excel, com seu recurso Enviar Emails, você pode enviar rapidamente e-mails personalizados para vários destinatários com diferentes anexos conforme necessário.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Clique em Kutools Plus > Enviar Emails, veja a captura de tela:

2. Na caixa de diálogo Enviar Emails, selecione o intervalo de dados que deseja usar e especifique os endereços dos destinatários, anexos e assunto conforme necessário, veja a captura de tela:

3. Na caixa de edição, insira os nomes de saudação individuais, escolha Nome na lista suspensa e clique em Inserir Marcador de Posição para inserir os nomes na mensagem, veja a captura de tela:

4. Em seguida, digite o corpo da mensagem na caixa conforme necessário, veja a captura de tela:

5. Após finalizar o corpo do e-mail, escolha o modo de envio desejado. Você pode enviar usando o Outlook ou seu servidor especificado, veja a captura de tela:

Nota:  Se você deseja usar outro servidor, clique em Configurações do Servidor de Saída para definir o modo de envio para o seu próprio, veja a captura de tela:

6. Por fim, clique no botão Enviar para enviar os e-mails. Após a conclusão, uma caixa de aviso aparecerá para informar o status do envio. Veja a captura de tela:

Clique para baixar e experimentar gratuitamente o Kutools para Excel agora!

Demonstração: Enviar e-mails personalizados em massa para uma lista do Excel via Outlook

Artigo relacionado:

Como enviar e-mail para vários destinatários em uma lista do Excel via Outlook?