差し込んだメール メッセージのすべての添付ファイルを表す 添付ファイル オブジェクトのコレクション。
注釈
Attachments コレクションは、Microsoft Publisher ユーザー インターフェイスの [Email に差し込み] ダイアログ ボックスの [添付ファイル] ボックスの添付ファイルの一覧に対応しています ([ファイル] メニューの [Send Email] をポイントし、[Email の差し込み印刷] を選択して [オプション] を選択します)。
添 付ファイル オブジェクトを 添付ファイル コレクションに追加して、送信する差し込みメールの添付ファイルのリストに添付ファイルを追加するには、 Add メソッドを使用します。
差し込み印刷メッセージから添付ファイルを 1 つ削除するには、添付ファイル コレクションから削除する特定の添付ファイル オブジェクトの Delete メソッドを使用します。
差し込んだ電子メールのすべての添付ファイルを削除して添 付ファイル コレクションを空にするには、 ClearAll メソッドを使用します。
添付ファイル コレクションの既定のプロパティは、 Item プロパティです。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、Add メソッドを使用して、差し込み印刷メッセージに添付ファイルを追加する方法を示しています。 このマクロは、ビットマップ イメージを表す Attachment オブジェクトを、アクティブなドキュメントの 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
メソッド
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。