Note: The other languages of the website are Google-translated. Back to English

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

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

Nota: 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

Nota: 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 Download e avaliação gratuita Kutools for Excel Now!


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?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (47)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Este código funcionou muito bem, muito obrigado a isso. Mas estou com um pequeno problema, estou tentando alterar o código para pré-determinar as células que quero pegar os emails e enviar porque da forma que criei meu arquivo excel. Eu gostaria de mudar a caixa de seleção para uma determinada matriz de células. Exemplo: corrigir todos os meus dados ficarão entre A2:C6 então quando eu executar a macro não preciso selecioná-la novamente. Muito obrigado por tudo que você explicou acima
Este comentário foi feito pelo moderador no site
Você pode modificar o código para anexar vários arquivos no e-mail? Isso seria de grande ajuda. Desde já, obrigado.
Este comentário foi feito pelo moderador no site
é possível adicionar código para que ele também puxe minha assinatura de e-mail normal? além disso, ao selecionar meu intervalo para e-mail, minha planilha do Excel é filtrada, mas quando executo a macro, ela também puxa as linhas ocultas.
Este comentário foi feito pelo moderador no site
Eu gostaria de saber sobre isso também!
Este comentário foi feito pelo moderador no site
como adicionar cc no código acima
Este comentário foi feito pelo moderador no site
Excelente maneira

Só preciso te perguntar sobre a possibilidade de mudar de assunto toda vez com base no email??
Este comentário foi feito pelo moderador no site
Olá, Aziz,
Ao aplicar o Kutools for Excel, ele pode ajudá-lo a inserir os assuntos com base nos valores das células, basta selecionar o cabeçalho da coluna de assunto na caixa de diálogo conforme a captura de tela mostrada a seguir:

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Olá Skyyang,

Eu tenho tentado e tentando fazer minha assinatura de e-mail aparecer, mas simplesmente não consigo acertar! Você tem um pouco de código que eu possa adicionar para fazer isso acontecer?
Este comentário foi feito pelo moderador no site
Post de loucura esse é, esse é falso e não acredite nesse conteúdo
Este comentário foi feito pelo moderador no site
Olá amigo,
isso é fantástico, preciso de uma ajuda, preciso anexar um arquivo pdf diferente a um e-mail diferente a cada vez.
Alguém pode me ajudar por favor?
Este comentário foi feito pelo moderador no site
oi Skyyang,
eu preciso anexar arquivo pdf diferente para cada e-mail. pode ajudar por favor??
Este comentário foi feito pelo moderador no site
Olá, Arvind,
O Kutools pode ajudá-lo a adicionar vários anexos diferentes ao enviar e-mails.
Primeiro você deve inserir o caminho dos anexos nas células, e depois aplicar o Kutools, veja a seguinte captura de tela:
Espero que possa ajudá-lo, obrigado!
Este comentário foi feito pelo moderador no site
oi Skyyang,
Eu usei seu código abaixo para enviar e-mails e está funcionando perfeitamente, há algo que você possa me ajudar a modificar no código para enviar anexos em pdf.
Eu preciso enviar mais de 100 e-mails, então é difícil anexar o arquivo a cada vez. o Kutools funciona de acordo com o caminho fornecido e envia e-mails automaticamente?
Este comentário foi feito pelo moderador no site
Ei,
você pode me ajudar com a função attachment.add? com o seu código VBA acima eu preciso enviar anexo.
eu não posso usar Kutools :(
Este comentário foi feito pelo moderador no site
como cc pessoas nisso?
Este comentário foi feito pelo moderador no site
e se eu tiver dados para muitos clientes e alguns clientes tiverem mais de 1 dado ... e eu não quiser enviar e-mails separados para os clientes, mas talvez enviá-los em formato tabular no e-mail. Como posso enviar apenas 1 e-mail para um cliente.
Este comentário foi feito pelo moderador no site
Oi Steven, você encontrou uma maneira de fazer isso. Podemos ajudá-lo com um portal online simples
Este comentário foi feito pelo moderador no site
Olá, você conseguiu resolver?
Este comentário foi feito pelo moderador no site
Eu quero saber como fazer. Você pode me dizer?
Este comentário foi feito pelo moderador no site
Obrigado!!

Mas estou tentando fazer o teste e nada está mandando para o emai. Também nenhuma mensagem de erro.. Posso saber o que aconteceu?
Este comentário foi feito pelo moderador no site
Tenho uma lista de endereços de e-mail no excel para os quais preciso enviar e-mails O assunto e o corpo estão em células além do endereço de e-mail e tenho o script abaixo mas preciso enviar 100 e-mails por 1 hora como posso agradar seu suporte

Sub EnviarEm()
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")
Para i = 2 Para lr
Com Mail_Object.CreateItem(o)
.Assunto = 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)
.Mandar

'.display 'desabilite a exibição e habilite o envio para enviar automaticamente
Terminar com
Proximo eu
MsgBox "E-mail enviado com sucesso", 64
Application.DisplayAlerts = False
Definir Mail_Object = Nada
End Sub
Este comentário foi feito pelo moderador no site
Olá, hiba,
Nosso Kutools for Excel's Send Emails pode ajudá-lo a resolver seu problema. Por favor, defina as condições como a seguinte captura de tela mostrada:
Com esse recurso, você também pode aplicar o recurso CC, BCC e inserir vários anexos.
Este comentário foi feito pelo moderador no site
administrador do HI


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Este comentário foi feito pelo moderador no site
Por alguma razão, este código tem onde ele envia todos os outros e-mails da lista. Existe uma razão pela qual ele não vai enviar cada um? Copiei diretamente o código que estava acima e não alterei nada
Este comentário foi feito pelo moderador no site
O código VBA funciona bem, obrigado, mas como adicionar Cc? tentei e falhei...
Este comentário foi feito pelo moderador no site
O código VBA funciona bem, obrigado, mas como adicionar Cc? Eu tentei com:


Dim xCc como string
então
xCc = xRg.Cells(i, 9) (o endereço está na 9ª coluna)


e falhou...
Este comentário foi feito pelo moderador no site
Olá, Jean,

Para resolver seu problema, aplique o código abaixo: (Nota: Você deve adicionar a coluna CC na Coluna C)

#If VBA7 e Win64 Então
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias ​​"ShellExecuteA" ( _
ByVal hwnd como LongPtr, ByVal lpOperation como string, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Senão
Função de declaração privada 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
#Fim se
Sub Enviar E-mail()
Dim xEmail As String
Dim xSubj As String
Dim xMsg As String
Dim xURL como string
Dim i As Integer
Dim k como duplo
Dim xCell como intervalo
Dim xRg como intervalo
Dim xTXT As String
Dim xCC como string
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Por favor, selecione o intervalo de dados:", "Kutools for Excel", xTxt, , , , , 8)
Se xRg não for nada, saia do sub
Se xRg.Columns.Count <> 4 Then
MsgBox " Erro de formato regional, verifique", , "Kutools for Excel"
Exit Sub
Se acabar
Para i = 1 Para xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Células(i, 3)
xSubj = "Seu código de registro"
xMsg = ""
xMsg = xMsg & "Prezado " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " Este é o seu código de registro "
xMsg = xMsg & xRg.Cells(i, 4).Texto & "." & vbCrLf & vbCrLf
xMsg = xMsg & " por favor, experimente e fico feliz em receber seu feedback!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Seguinte
End Sub
Este comentário foi feito pelo moderador no site
Eu usei o código VBA acima mencionado em "Enviar e-mails em massa personalizados para uma lista do Excel com código VBA". Eu queria saber se eu poderia enviar um e-mail para certas pessoas que precisam ser notificadas com base no Excel me dizendo para enviar lembretes para aqueles que têm contratos prestes a expirar? Não consigo fazer com que o Excel envie os e-mails e sei que é por causa do próprio código. Alguém por favor pode me ajudar a resolver esse problema?
Este comentário foi feito pelo moderador no site
Quero enviar os e-mails com linha de assunto exclusiva, como posso fazer isso com este VBA?
Este comentário foi feito pelo moderador no site
Olá a todos!

Eu tenho uma lista de e-mails em uma planilha e o rascunho de e-mail em outra.
Preciso de um código para enviar automaticamente o rascunho de e-mail da planilha 2 para cada 5 membros da lista fornecida na planilha 1.
Assim que os 5 primeiros forem enviados, o código deve marcá-los como "Enviados" em uma nova coluna dedicada e aguardar 60 segundos antes de enviar o próximo conjunto de 5 e-mails.
O código deve ser executado até o final de toda a lista.

O código pode usar o Outlook para enviar os e-mails do perfil padrão no Outlook.

Por favor me ajude.

Deixe-me saber se você precisar de mais esclarecimentos
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL