Como enviar e-mails em massa personalizados 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, Código de registro e, agora, desejo 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 métodos a seguir podem ajudá-lo.
Envie e-mails em massa personalizados para uma lista do Excel com a função Mail Merge
Envie e-mails em massa personalizados para uma lista do Excel com código VBA
Envie e-mails em massa personalizados para uma lista com diferentes anexos usando o Kutools para Excel
Envie e-mails em massa personalizados para uma lista do Excel com a função Mail Merge
Com as palavras Mala Direta função, você pode terminar este trabalho de forma rápida e fácil, execute o seguinte passo a passo:
1. Abra um novo documento do Word em branco e clique em mailings > Selecione Destinatários > Use uma lista existente, veja a captura de tela:
2. No Selecione a fonte de dados janela, escolha a pasta de trabalho que inclui o intervalo de dados que deseja usar e clique em Abra botão, veja a captura de tela:
3. Na vinda Selecionar tabela caixa de diálogo, escolha a planilha com o intervalo de dados que você precisa e clique em OK botão, veja a captura de tela:
4. E o documento principal da mensagem de e-mail e sua lista de endereços foram conectados, agora você pode editar a mensagem de texto e adicionar espaços reservados que indicam onde as informações exclusivas aparecerão em cada mensagem.
(1.) Para inserir seu nome de saudação individual, clique em mailings > Inserir campo de fusão > 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 Registo no lugar onde você precisa, veja a captura de tela:
5. Depois de escrever a mensagem, você pode clicar Resultados de pré-visualização sob a Correspondência para visualizar as mensagens de e-mail e fazer alterações antes de realmente concluir a mesclagem.
6. Depois de se certificar de que não há problema, você pode enviar os e-mails para os destinatários separados, por favor clique mailings > Concluir e fundir > Enviar mensagem de e-mail, veja a captura de tela:
7. Em seguida, o pop out Mesclar para e-mail caixa de diálogo, faça as seguintes operações:
(1.) Do Para lista suspensa, por favor escolha Endereço de e-mail coluna;
(2.) Você pode digitar o assunto no Assunto caixa de texto de linha;
(3.) Do Enviar registros seção, selecione Todos os Produtos.
8. E, em seguida, clique em OK, os emails são enviados para destinatários distintos com o seu próprio código de registo de uma só vez, após o envio dos emails, pode aceder ao seu Outlook para se certificar de que os emails foram enviados com sucesso.
Envie e-mails personalizados para vários destinatários com diferentes anexos:
Com o Kutools for Excel's Mande emails recurso, você pode enviar rapidamente e-mails personalizados para vários destinatários com diferentes anexos do Excel via Outlook conforme necessário. Ao mesmo tempo, você também pode CC ou Cco as mensagens para uma pessoa específica. Baixe e teste grátis Kutools para Excel agora! |
Envie e-mails em massa personalizados para uma lista do Excel com código VBA
Com exceção da função Mala direta, o seguinte código VBA também pode lhe fazer um favor, faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: Envie e-mails em massa personalizados 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. Então aperte F5 para executar este código e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja usar, consulte a captura de tela:
4. E, em seguida, clique em OK , os emails serão enviados para endereços separados com o seu código de registo individual um a um, após o envio dos emails, pode ir ao Outlook para se certificar de que os emails foram enviados com sucesso.
Note: No código acima, você pode alterar o assunto ou o corpo da mensagem conforme sua necessidade.
Envie e-mails em massa personalizados para uma lista com diferentes anexos usando o Kutools para Excel
Se você tem Kutools for Excel, Com o seu Mande emails recurso, você pode enviar rapidamente e-mails personalizados para vários destinatários com diferentes anexos conforme necessário.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Clique Kutools Plus > Mande emails, veja a captura de tela:
2. No Enviar Emials caixa de diálogo, selecione o intervalo de dados que deseja usar e, em seguida, especifique os endereços dos destinatários, anexos e assunto conforme necessário, consulte a captura de tela:
3. Na caixa de edição, insira os nomes das saudações individuais, por favor, escolha Nome na lista suspensa e clique em Inserir espaço reservado para inserir os nomes na mensagem, consulte a captura de tela:
4. Em seguida, digite o corpo da mensagem na caixa conforme necessário, consulte a captura de tela:
5. Depois de terminar o corpo do e-mail, escolha o modo de envio que você deseja, você pode enviar usando o Outlook ou o servidor especificado, veja screesnhot:
Note: Se você quiser usar outro servidor, clique Configurações do servidor de saída para definir o modo de envio para o seu próprio, veja screesnhot:
6. Finalmente, clique em ENVIAR para enviar os e-mails, após concluí-los, uma caixa de aviso aparecerá para lembrá-lo do status de envio. veja screesnhot:
Clique em Baixar e testar gratuitamente o Kutools para Excel agora!
Demonstração: Envie e-mails em massa personalizados 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!