Como enviar e-mail para vários destinatários em uma lista do Excel via Outlook?
Se você tem vários endereços de e-mail em uma coluna da planilha e agora deseja enviar um e-mail para esta lista de destinatários diretamente do Excel, sem abrir o Outlook. Neste artigo, falarei sobre como enviar e-mail para vários destinatários do Excel ao mesmo tempo.
Envie e-mail para vários destinatários do Excel com código VBA
Envie e-mail para vários destinatários com a pasta de trabalho atual como anexo usando o código VBA
Envie e-mail para vários destinatários do Excel com código VBA
Você pode usar um código VBA para enviar mensagem a vários destinatários de uma vez, faça o seguinte:
1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Janela 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. E, em seguida, pressione F5 para executar este código, uma caixa de prompt aparecerá para lembrá-lo de selecionar a lista de endereços, veja a captura de tela:
4. Então clique OKe um Outlook Mensagem janela for exibida, você pode ver que todos os endereços de e-mail selecionados foram adicionados ao Para campo, e então você pode inserir o assunto e redigir sua mensagem, veja a captura de tela:
5. Após terminar a mensagem, por favor clique ENVIAR botão, e esta mensagem será enviada a esses destinatários em sua lista de planilhas.
Envie e-mail para vários destinatários com a pasta de trabalho atual como anexo usando o código VBA
Se você precisar enviar uma mensagem a vários destinatários com a pasta de trabalho atual como anexo, poderá aplicar o seguinte código VBA.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Janela 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. Depois de colar o código, pressione F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar os endereços para os quais deseja enviar a mensagem, consulte a captura de tela:
4. Então clique OK botão e um Outlook Mensagem janela for exibida, todos os endereços de e-mail foram adicionados ao Para , e sua pasta de trabalho atual também foi inserida como anexo, e então você pode inserir o assunto e redigir sua mensagem, veja a captura de tela:
5. Então clique ENVIAR para enviar esta mensagem à lista de destinatários com a pasta de trabalho atual como anexo.
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. Clique para baixar o Kutools para Excel! |
Artigo relacionado:
Como enviar e-mails em massa personalizados para 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!