Attachments オブジェクト (Publisher)

差 し 込まれた電子メール メッセージへのすべての添付ファイルを表す Attachment オブジェクトのコレクション。

注釈

Attachments コレクションは、Microsoft Publisher ユーザー インターフェイスの [Emailにマージ] ダイアログ ボックスの [添付ファイル] ボックスの添付ファイルの一覧に対応します ([ファイル] メニューの [送信] Emailをポイントし、[差し込み印刷Email送信] を選択し、[オプション] を選択します)。

Attachments コレクションに Attachment オブジェクトを追加し、添付ファイルを送信する差し込みメールの添付ファイルの一覧に追加するには、Add メソッドを使用します。

メールの差し込み印刷メッセージから 1 つの添付ファイルを削除するには、Attachments コレクションから削除する特定の Attachment オブジェクトの Delete メソッドを使用します。

差し込まれたメールのすべての添付ファイルを削除し、 添付ファイル コレクションを空にするには、 ClearAll メソッドを使用します。

添付ファイル コレクションの既定のプロパティは、 Item プロパティです。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、Add メソッドを使用して電子メールの差し込み印刷メッセージに添付ファイルを追加する方法を示しています。 マクロは、ビットマップ イメージを表す Attachment オブジェクトを作業中のドキュメントの Attachments コレクションに追加します。 また、 Attachments コレクションを反復処理し、各添付ファイルの名前を [イミディエイト] ウィンドウに出力します。

このマクロを実行する前に、コンピューターの C ドライブのルートに image.bmp という名前のファイルを配置するか、マクロ内のファイルの名前とパスを変更してアタッチするファイルを指定します。

電子メールの差し込み印刷メッセージを送信するには、データ ソースに接続し、電子メールの差し込み印刷を作成してから、メッセージを送信する必要があります。 詳細については、 EmailMergeEnvelope オブジェクトを参照してください。

Public Sub Attachments_Example() 
 
 Dim pubAttachments As Publisher.Attachments 
 Dim pubAttachment As Publisher.Attachment 
 Dim pubAttachment_Added As Publisher.Attachment 
 Dim pubMailMerge As Publisher.MailMerge 
 Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope 
 
 Set pubMailMerge = ThisDocument.MailMerge 
 Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope 
 Set pubAttachments = pubEmailMergeEnvelope.Attachments 
 
 Set pubAttachment_Added = pubAttachments.Add("C:\image.bmp ") 
 
 For Each pubAttachment In pubAttachments 
 Debug.Print pubAttachment.Name 
 Next 
 
End Sub

メソッド

• Add
• ClearAll

プロパティ

• Application
• Count
• アイテム
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。