Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Siluvia Last modified

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:

click Command Button from Developer tab

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.

select View Code from the context menu

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.

click Tools > References

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.

check the Microsoft Outlook Object Library option in the dialog box

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:

Click Design Mode to turn off the Design Mode

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:

run code to select the files you need to attach in the email

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:

an email is created with specified fields and attachments listed out

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

Envie facilmente e-mails pelo Outlook com base nos campos da lista de envio criada no Excel:

O Enviar Email utilitário do Kutools para Excel ajuda os usuários a enviar e-mails pelo Outlook com base na lista de envio criada no Excel.
Baixe e experimente agora! (30-dia de teste grátis)

send email with attachments by kutools

Artigos relacionados:

Melhores Ferramentas de Produtividade para Office

🤖 Kutools AI Aide: Revolucione a análise de dados com: Execução Inteligente   |  Gerar Código  |  Criar Fórmulas Personalizadas  |  Analisar Dados e Gerar Gráficos  |  Chamar Funções Aprimoradas…
Recursos Populares: Localizar, Destacar ou Marcar Duplicatas   |  Excluir Linhas em Branco   |  Consolidar Colunas ou Células sem Perder Dados   |   Arredondar...
Super PROC: Procura por múltiplos critérios  |   Procura por múltiplos valores  |   Procura em várias planilhas   |   Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente Lista suspensa  |  Lista suspensa dependente  |  Lista suspensa com múltipla seleção ...
Gerenciador de Colunas: Adicionar número específico de colunas  | Mover Colunas  | Alternar status de visibilidade de Colunas ocultas |  Comparar Intervalos & Colunas...
Recursos em Destaque: Grade de foco   |  Visualização de Design  |  Barra de fórmulas aprimorada   |  Gerenciador de Pasta de trabalho & Planilha   |  Biblioteca de AutoTexto (Auto Text)   |  Selecionador de Data   |  Mesclar Dados   |  Criptografar/Descriptografar Células   |  Enviar Email por Lista   |  Super Filtro   |   Filtro Especial (filtrar negrito/itálico/tachado...) ...
Os 15 Principais Conjuntos de Ferramentas: 12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...)  | 50+ Tipos de Gráficos (Gráfico de Gantt, ...)  | 40+ Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...)  | 19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem pelo Caminho, ...)  | 12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...)  | 7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ...e muito mais
Use o Kutools no idioma de sua preferência – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 idiomas!

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.

Excel Word Outlook Tabs PowerPoint
  • 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