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.