Como enviar e-mail com vários anexos anexados no Excel?
Este artigo fala sobre como enviar um e-mail pelo Outlook com vários anexos anexados no Excel.
Enviar e-mail com vários anexos anexados no Excel com código VBA
Enviar e-mail com vários anexos anexados no Excel com código VBA
Faça o seguinte para enviar um e-mail com vários anexos anexados em Excel.
1. Insira um botão de comando clicando em Developer > inserção > Botão de comando (controle ActiveX). Veja a imagem:
2. Após inserir o botão de comando, clique com o botão direito e selecione Ver código no menu de contexto.
3. Na abertura Microsoft Visual Basic para Aplicações janela, por favor clique Ferramentas > Referências como a imagem abaixo mostrada.
4. No Referências - VBAProject caixa de diálogo, localize e verifique o Biblioteca de objetos do Microsoft Outlook opção e, em seguida, clique no OK botão.
5. Em seguida, substitua o código original na janela Código pelo código VBA abaixo.
Código VBA: enviar e-mail anexado 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 = ""
.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
Note: especifique o destinatário, assunto e corpo do e-mail, alterando a variável em .Para = , .Subject = "teste" e .HTMLBody = "teste" linhas no código.
6. aperte o outro + Q chaves juntas para sair do Microsoft Visual Basic para Aplicações janela.
7. Clique Developer > Modo de design para desligar o modo Design. Veja a imagem:
8. Clique no botão de comando para executar o código. No surgimento Procurar janela, selecione os arquivos que você precisa para anexar ao e-mail e clique no OK botão. Veja a imagem:
9. Em seguida, um e-mail é criado com campos especificados e anexos listados. Por favor clique no ENVIAR botão para enviá-lo. Veja a imagem:
Note: O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.
Envie e-mails facilmente pelo Outlook com base nos campos da lista de e-mails criada no Excel:
A Mande emails utilidade de Kutools for Excel ajuda os usuários a enviar e-mail através do Outlook com base na lista de mala direta criada no Excel.
Baixe e experimente agora! (trilha gratuita de 30 dias)
Artigos relacionados:
- Como enviar email para endereços de email especificados nas células do Excel?
- Como enviar e-mail copiando e colando um intervalo especificado no corpo do e-mail no Excel?
- Como inserir assinatura no e-mail do Outlook ao enviar por vba no Excel?
- Como enviar e-mail se a data de vencimento foi cumprida no Excel?
- Como enviar e-mail automaticamente com base no valor da célula no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!