向邮件项附加文件

本主题显示了一个将电子表格文件附加到邮件项目的过程。 过程 AddAttachment假定指定的电子表格Q496.xlsx存在于指定的路径 D：\Documents 中。 AddAttachment 会创建一封新邮件，将 Q496.xlsx 附加到该邮件，为附件指定描述性标题，然后显示附加了此附件的邮件。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。