Como enviar e-mails em massa personalizados a partir de uma lista do Excel utilizando o Outlook?
Por exemplo, tenho o seguinte intervalo de dados numa folha de cálculo, com as colunas Nome, Endereço de Email e Código de Registo, e pretendo enviar uma mensagem personalizada — incluindo uma saudação e o respetivo Código de Registo — para cada endereço de email listado na coluna A. Os métodos seguintes poderão ajudá-lo a resolver este desafio.
Envie emails em massa personalizados a partir de uma lista no Excel com código VBA
Envie emails em massa personalizados a uma lista com anexos diferentes utilizando Kutools para Excel
Envie emails em massa personalizados a partir de uma lista no Excel com a função Correspondência de Mala Direta
Com a função Correspondência de Mala Direta do Word, pode concluir esta tarefa de forma rápida e fácil. Siga os passos seguintes:
1.Inicie um novo documento em branco do Word e, em seguida, clique em Correspondência>Selecionar Destinatário>Utilizar uma Lista Existente, veja a captura de ecrã:
2. Na janela Origem da Seleção de Dados, selecione o livro que contém o intervalo de dados que pretende utilizar e clique no botão Abrir. Veja a captura de ecrã:
3. Na caixa de diálogo Selecionar Tabela que surge, selecione a folha de cálculo com o intervalo de dados necessário e, em seguida, clique no botão OK. Veja a captura de ecrã:
4. A mensagem de e-mail do documento principal e a sua lista de endereços foram ligadas. Agora, pode editar a mensagem e adicionar marcadores que indiquem onde a informação personalizada irá aparecer em cada mensagem.
(1.) Para inserir o nome individual de saudação, clique em Correspondência > Inserir Campo de Combinação > Nome. O nome personalizado será inserido na mensagem, e o Nome da condição aparecerá rodeado por « ».
(2.) Continue a escrever a sua mensagem e insira o Código de Registono local pretendido, veja a captura de ecrã:
5. Após redigir a mensagem, pode clicar em Visualizar Resultado no separador Correspondência para pré-visualizar as mensagens de e-mail e efetuar alterações antes de concluir a combinação.
6. Após confirmar que não há problemas, pode enviar os e-mails aos respetivos destinatários. Clique em Correspondência > Concluir e Combinar > Enviar Mensagem de Email. Veja a captura de ecrã:
7. Em seguida, na caixa de diálogo Combinar para Email que surge, realize as seguintes operações:
(1.) Na lista suspensa Para, selecione a coluna Endereço_Email;
(2.) Pode introduzir o assunto na caixa de texto da linha Assunto;
(3.) Na secção Enviar registos, selecione Todos.
8. Em seguida, clique em OK e os e-mails são enviados imediatamente para os respetivos destinatários com o seu próprio código de registo. Após o envio dos e-mails, pode aceder ao Outlook para confirmar se foram enviados com sucesso.
Envie emails personalizados para múltiplos destinatários com anexos diferentes: Com a funcionalidade Kutools para Excel's Enviar Emails, pode enviar rapidamente e-mails personalizados para múltiplos destinatários com anexos diferentes diretamente do Excel através do Outlook, conforme necessário. Ao mesmo tempo, também pode incluir cópias (CC) ou cópias ocultas (Bcc) das mensagens para uma pessoa específica.Transfira e experimente gratuitamente Kutools para Excel agora!
|
Envie emails em massa personalizados a partir de uma lista no Excel com código VBA
Além da função Correspondência de Mala Direta, o código VBA seguinte também poderá ser útil. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Envie emails em massa personalizados a partir de uma lista no 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, prima a tecla F5 para executar este código. Surgirá uma caixa de aviso a solicitar que selecione o intervalo de dados que pretende utilizar. Veja a captura de ecrã:
4. Em seguida, clique no botão OK e os e-mails serão enviados individualmente para os respetivos endereços com o seu código de registo. Após o envio dos e-mails, pode aceder ao Outlook para confirmar se foram enviados com sucesso.
Nota: No código acima, pode personalizar o assunto ou o corpo da mensagem conforme as suas necessidades.
Envie emails em massa personalizados a uma lista com anexos diferentes utilizando Kutools para Excel
Se tiver o Kutools para Excel, com a sua funcionalidade Enviar Emails, pode enviar rapidamente e-mails personalizados a múltiplos destinatários, com anexos diferentes, conforme necessário.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Enviar Emails. Veja a captura de ecrã:
2. Na caixa de diálogo Enviar Emails, selecione o intervalo de dados que pretende utilizar e especifique os endereços dos destinatários, os anexos e o assunto, conforme necessário. Veja a captura de ecrã:
3. Na caixa de edição, para inserir os nomes individuais de saudação, selecione Nome na lista suspensa e, em seguida, clique em Inserir Marcador de Posição para adicionar os nomes à mensagem. Veja a captura de ecrã:
4. Em seguida, redija o corpo da mensagem na caixa, conforme necessário — veja a captura de ecrã:
5. Após concluir o corpo do e-mail, selecione o modo de envio pretendido. Pode enviar através do Outlook ou de um servidor por si especificado — veja a captura de ecrã:
Nota: Se pretender utilizar outro servidor, clique em Configurações SMTPpara definir o modo de envio conforme desejar, veja a captura de ecrã:
6. Por fim, clique no botão Enviar para enviar os e-mails. Após a conclusão, surgirá uma caixa de aviso a indicar o estado do envio — veja a captura de ecrã:
Clique para transferir e experimentar gratuitamente o Kutools para Excel agora!
Demonstração: Envie emails em massa personalizados a partir de uma lista no Excel através do Outlook
Artigo relacionado:
Como enviar um e-mail para vários destinatários de uma lista no Excel através do Outlook?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos