共用方式為


附件。新增 Outlook (方法)

Attachments 集合中建立一個新的附件。

語法

表情新增 (來源類型位置顯示名稱)

一個代表 Attachments 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Source 必要 Variant 附件的來源。 可以是檔案 (以完整的檔案系統路徑及檔案名稱表示) 或 Outlook 項目產生的附件。
類型 選用 Long 附件的類型。 可能是 OlAttachmentType 的常數之一。
位置 選用 Long 此參數僅適用於使用富文本格式的電子郵件:它指的是附件應該放在訊息正文中的位置。 Position 參數的值為 1 會指定在郵件本文的開頭放置附件。 電子郵件正文中字元數大於 n 的值,表示附件應置於郵件末尾。 0 值會隱藏附件。
DisplayName 選用 字串 此參數僅適用於郵件項目為富文本 格式且類型 設為 olByValue 時:該名稱會在附件的 檢查器 物件中顯示,或在查看附件屬性時。 如果郵件項目為純文字或 HTML 格式,附件則會以 Source 參數中的檔案名稱顯示。

傳回值

一個代表新依附的依 物件。

註解

Attachments 新增到項目的 Attachment 集合時,在儲存該項目之前,AttachmentType 屬性一定都會傳回 olOLE (6)。 若要確保一致的結果,一定要在新增或移除 Attachments 集合中的物件之前儲存項目。

範例

下列 Microsoft Visual Basic/Visual Basic for Applications (VBA) 範例會建立郵件項目、藉由將附件內嵌在訊息本文的開頭來新增附件,並顯示該附件。 若要執行這個範例,請確認此附件是 C:\ 資料夾中檔名為 Test.Doc 的檔案。

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", _ 
 olByValue, 1, "Test" 
 myItem.Display 
End Sub

另請參閱

附件物件

將檔案附加到郵件項目Outlook 聯絡項目附加到 Email 訊息限制附件大小為 Email 訊息修改 修改 Outlook Email 訊息的附件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應