Como enviar e-mail para vários destinatários em uma lista do Excel via Outlook?
Se você tiver vários endereços de e-mail em uma coluna da planilha e quiser enviar um e-mail para essa lista de destinatários diretamente do Excel sem abrir o Outlook, este artigo mostrará como enviar e-mails para múltiplos destinatários ao mesmo tempo.
Enviar e-mail para vários destinatários a partir do Excel com código VBA
Enviar e-mail para vários destinatários com a pasta de trabalho atual como anexo usando código VBA
Enviar e-mail para vários destinatários a partir do Excel com código VBA
Você pode usar um código VBA para enviar mensagens para vários destinatários de uma só vez. Por favor, siga os passos abaixo:
1. Pressione e segure as teclas ALT + F11 para 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-mail para vários destinatários
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Em seguida, pressione a tecla F5 para executar este código. Uma caixa de aviso aparecerá para lembrá-lo de selecionar a lista de endereços, veja a captura de tela:
4. Depois clique em OK, e uma janela de Mensagem do Outlook será exibida. Você verá que todos os endereços de e-mail selecionados foram adicionados no campo Para, e então você pode inserir o assunto e compor sua mensagem, veja a captura de tela:
5. Após finalizar a mensagem, clique no botão Enviar, e esta mensagem será enviada aos destinatários da sua lista na planilha.
Enviar e-mails personalizados para vários destinatários com diferentes anexos: Com o recurso Enviar Emails do Kutools para Excel, você pode rapidamente enviar e-mails personalizados para múltiplos destinatários com diferentes anexos do Excel via Outlook conforme necessário. Ao mesmo tempo, você pode CC ou Bcc as mensagens para uma pessoa específica também. Clique para baixar Kutools para Excel!
|
Enviar e-mail para vários destinatários com a pasta de trabalho atual como anexo usando código VBA
Se você precisar enviar uma mensagem para vários destinatários com a pasta de trabalho atual como anexo, você pode aplicar o seguinte código VBA.
1. Pressione e segure as teclas ALT + F11 para 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-mail para vários destinatários com a pasta de trabalho atual como anexo
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Após colar o código, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de selecionar os endereços para os quais deseja enviar a mensagem, veja a captura de tela:
4. Depois clique no botão OK, e uma janela de Mensagem do Outlook será exibida. Todos os endereços de e-mail foram adicionados no campo Para, e sua pasta de trabalho atual foi inserida como anexo também. Então você pode inserir o assunto e compor sua mensagem, veja a captura de tela:
5. Em seguida, clique no botão Enviar para enviar esta mensagem para a lista de destinatários com a pasta de trabalho atual como anexo.
Artigo relacionado:
Como enviar e-mails personalizados em massa para uma lista do Excel via Outlook?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins