將檔案附加至訊息項目

這個主題會示範附加試算表檔案至郵件項目的程序。 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 支援與意見反應。