Como enviar um e-mail com vários anexos no Excel?

Este artigo trata de como enviar um e-mail pelo Outlook com vários anexos no Excel.

Enviar e-mail com vários anexos no Excel usando código VBA

Enviar e-mail com vários anexos no Excel usando código VBA

Por favor, siga os passos abaixo para enviar um e-mail com vários anexos no Excel.

1. Por favor, insira um botão de comando clicando em Desenvolvedor > Inserir > Botão de Comando (Controle ActiveX). Veja a captura de tela:

2. Após inserir o Botão de Comando, clique com o botão direito nele e selecione Visualizar Código no menu de contexto.

3. Na janela Microsoft Visual Basic for Applications que se abre, por favor, clique em Ferramentas > Referências conforme mostrado na captura de tela abaixo.

4. Na caixa de diálogo Referências – VBAProject, encontre e marque a opção Microsoft Outlook Object Library e depois clique no botão OK.

5. Em seguida, substitua o código original na janela Código pelo seguinte código VBA.

Código VBA: Enviar e-mail com vários anexos no Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Observação: especifique o destinatário do e-mail, o assunto e o corpo alterando as variáveis em .To = happy.xuebi@163.com, .Subject = "test" e .HTMLBody = "test" nas linhas do código.

6. Pressione as teclas Alt + Q juntas para sair da janela Microsoft Visual Basic for Applications.

7. Clique em Desenvolvedor > Modo de Design para desativar o Modo de Design. Veja a captura de tela:

8. Clique no Botão de Comando para executar o código. Na janela Procurar que aparece, selecione os arquivos que você precisa anexar ao e-mail e depois clique no botão OK. Veja a captura de tela:

9. Em seguida, um e-mail será criado com os campos especificados e os anexos listados. Por favor, clique no botão Enviar para enviá-lo. Veja a captura de tela:

Observação: O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.

Artigos relacionados:

• Como enviar e-mail para endereços de e-mail especificados em células no Excel?
• Como enviar e-mail copiando e colando um intervalo específico no corpo do e-mail no Excel?
• Como inserir uma assinatura no e-mail do Outlook ao enviar por VBA no Excel?
• Como enviar um e-mail se a data de vencimento foi atingida no Excel?
• Como enviar automaticamente um e-mail com base no valor da célula no Excel?