Como enviar um e-mail com vários anexos diretamente do Excel?
Este artigo explica como enviar um e-mail pelo Outlook com vários anexos diretamente do Excel.
Enviar e-mail com múltiplos anexos no Excel com código VBA
Enviar e-mail com múltiplos anexos no Excel com código VBA
Siga os passos abaixo para enviar um e-mail com vários anexos diretamente do Excel.
1. Insira um botão de comando clicando em Programador > Inserir > Botão de Comando (Controlo ActiveX). Veja a imagem:
2. Após inserir o Botão de Comando, clique com o botão direito do rato e selecione Ver Código no menu de contexto.
3. Na janela Microsoft Visual Basic para Aplicações que se abre, clique em Ferramentas > Referências, conforme mostrado na imagem seguinte.
4. Na caixa de diálogo Referências – VBAProject, localize e selecione a opção Microsoft Outlook Object Library e, em seguida, clique no botão OK.
5. Substitua de seguida o código original na janela de Código pelo código VBA abaixo.
Código VBA: Enviar e-mail com múltiplos 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 SubNota: especifique o destinatário, o assunto e o corpo do seu e-mail alterando as variáveis em .To = happy.xuebi@163.com, .Subject = «teste» e .HTMLBody = «teste» nas linhas do código.
6. Prima em simultâneo as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
7. Clique em Programador > Modo de Estrutura para desativar o Modo de Estrutura. Veja a imagem:
8. Clique no botão de comando para executar o código. Na janela Procurar que surge, selecione os ficheiros que pretende anexar ao e-mail e, em seguida, clique no botão OK. Veja a imagem:
9. Será então criado um e-mail com os campos e anexos especificados listados. Clique no botão Enviar para o enviar. Veja a imagem:
Nota: O código VBA só funciona se utilizar o Outlook como cliente de correio eletrónico.
Envie facilmente e-mails através do Outlook com base nos campos de Lista de Emails criados no Excel:
A funcionalidade Enviar E-mails do Kutools para Excel permite aos utilizadores enviar e-mails através do Outlook com base numa lista de endereços criada no Excel.
Transfira e experimente já! (teste gratuito de 30 dias)
Artigos relacionados:
- Como enviar um e-mail para o endereço de e-mail especificado nas células do Excel?
- Como enviar um e-mail com um intervalo limitado copiado e colado diretamente no corpo da mensagem no Excel?
- Como inserir uma assinatura num e-mail do Outlook ao enviá-lo por VBA no Excel?
- Como enviar um e-mail quando a condição «Data de Vencimento» for cumprida no Excel?
- Como enviar automaticamente um e-mail com base no valor de uma célula no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos