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