Anexar um arquivo a um item de email

Este tópico mostra um procedimento que anexa um arquivo de planilha a um item de email. O procedimento, AddAttachment, pressupõe que a planilha especificada, Q496.xlsx, exista no caminho especificado, D:\Documents. AddAttachment cria uma nova mensagem de email, anexa Q496.xlsx à mensagem de email, atribui ao anexo uma legenda descritiva e exibe a mensagem de email com esse anexo.

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "D:\Documents\Q496.xlsx", _ 
 olByValue, 1, "4th Quarter 1996 Results Chart" 
 myItem.Display 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.