◆ Attachmentsコレクション.Countプロパティ

Attachmentsコレクション （添付ファイルの集合）内のオブジェクト数を取得します。

（＝添付ファイル数を取得）

記述例：

添付ファイル数を表示する

Set MyAttachments = Item.Attachments msgbox Item.Attachments.Count

★添付ファイルの集合を取得(Attachmentsコレクション) ★添付ファイル数を表示

添付ファイルを全て削除する

Set MyAttachments = Item.Attachments x = MyAttachments.Count For i = x to 1 Step -1 MyAttachments.item(i).Delete Next

★添付ファイルの集合を取得(Attachmentsコレクション） ★添付ファイル数を取得 ★各添付ファイルに対し操作を繰り返す ★個々のAttachmentオブジェクト（添付ファイル）を削除する

　

※既存アイテムから添付ファイルを削除できます。（手動ではできない操作も可能）

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ