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 Desenvolvedor > 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ência 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 = "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
Anote os: especifique o destinatário, assunto e corpo do e-mail, alterando a variável em .To = happy.xuebi@163.com, .Subject = "teste" Chanel .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 Desenvolvedor > 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:
Anote os: 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:
O 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! (30- dia de trilha livre)