Attachment.Delete メソッド (Publisher)

電子メールの差し込み印刷メッセージの Attachments コレクションから Attachment オブジェクトを削除します。

構文

式。削除

式Attachment オブジェクトを表す変数。

注釈

Delete メソッドは、 添付ファイル のコレクションを元に戻せない操作を実行します。 コレクションのオブジェクトへの参照、 添付ファイル を 閉じたり を呼び出します。 添付ファイルを別の参照がある場合は、プロパティとメソッドにアクセスできますが、決して再度関連付けることができます他のコレクションでは、 Add メソッドは、常に新しいオブジェクトを作成するためです。 Nothing または別の添付ファイルへの参照変数を設定するのにには、 Set キーワードを使用します。

添付ファイル オブジェクトの最終的なリリースが行われる も何も 、参照変数を割り当てるとき、または 削除 を呼び出すときに他の参照がなかった場合。 この時点で、オブジェクトはメモリから削除します。 CdoE_INVALID_OBJECT マイクロソフト コラボレーション データ オブジェクトのエラーを返します解放されたオブジェクトにアクセスしようとしています。

コレクションのメンバーを削除すると、コレクションがすぐに更新されるため、その Count プロパティは 1 つ減少し、そのメンバーは、インデックスを再作成ことです。 以前削除されたコレクションのメンバーの後にいるメンバーにアクセスするに、新しいインデックス値を使用する必要があります。

現在の電子メール の差し込み印刷メッセージのすべての添付ファイルを削除するには、Attachments コレクションの ClearAll メソッドを使用します。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、電子メールの差し込み印刷でメッセージへの添付ファイルを削除する方法を示しています。 コードでは、 添付ファイル コレクション内の最初のインデックス位置に添付ファイルを削除し、削除された添付ファイルと、[ イミディ エイト] ウィンドウ内のメッセージに添付ファイルを現在の数の名前を出力します。

このコードを実行する前に、現在の電子メール の差し込み印刷メッセージに少なくとも 1 つの添付ファイルがあることを確認します。

Public Sub Delete_Example() 
 
 Dim pubAttachments As Publisher.Attachments 
 Dim pubAttachment 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 = pubAttachments(1) 
 Debug.Print pubAttachments.Count 
 Debug.Print pubAttachment.Name 
 
 pubAttachment.Delete 
 
End Sub

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

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