Ir para o conteúdo principal

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.

doc enviar e-mails personalizados 1

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


seta azul bolha direita 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:

doc enviar e-mails personalizados 2

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:

doc enviar e-mails personalizados 3

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:

doc enviar e-mails personalizados 4

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 «».

doc enviar e-mails personalizados 5

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

doc enviar e-mails personalizados 6

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:

doc enviar e-mails personalizados 7

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.

doc enviar e-mails personalizados 8

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!

doc enviar e-mails personalizados 18 1


seta azul bolha direita 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:

doc enviar e-mails personalizados 9

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.


seta azul bolha direita 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:

doc enviar e-mails personalizados 9

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:

doc enviar e-mails personalizados 9

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

doc enviar e-mails personalizados 9

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:

doc enviar e-mails personalizados 9

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:

doc enviar e-mails personalizados 9

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:

doc enviar e-mails personalizados 9

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

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

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

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

guia kte 201905


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations