Enviar emails para uma lista de destinatários usando o Excel e o Outlook

O exemplo de código a seguir mostra como enviar um email para uma lista de destinatários com base em dados armazenados em uma pasta de trabalho. Os endereços de email dos destinatários deverão estar na coluna A e o texto do corpo do email deverá estar na primeira caixa de texto da planilha ativa.

Código de exemplo fornecido por: Holy Macro! Livros, Holy Macro! É 2,500 exemplos do VBA Excel VBA

Sub Sample()
   'Setting up the Excel variables.
   Dim olApp As Object
   Dim olMailItm As Object
   Dim iCounter As Integer
   Dim Dest As Variant
   Dim SDest As String
   
   'Create the Outlook application and the empty email.
   Set olApp = CreateObject("Outlook.Application")
   Set olMailItm = olApp.CreateItem(0)
   
   'Using the email, add multiple recipients, using a list of addresses in column A.
   With olMailItm
       SDest = ""
       For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
           If SDest = "" Then
               SDest = Cells(iCounter, 1).Value
           Else
               SDest = SDest & ";" & Cells(iCounter, 1).Value
           End If
       Next iCounter
       
    'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
       .BCC = SDest
       .Subject = "FYI"
       .Body = ActiveSheet.TextBoxes(1).Text
       .Send
   End With
   
   'Clean up the Outlook application.
   Set olMailItm = Nothing
   Set olApp = Nothing
End Sub

Sobre o colaborador

A Holy Macro! Books publica livros divertidos para pessoas que usam o Microsoft Office. Consulte o catálogo concluído em MrExcel.com.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.