◆ Attachmentsコレクション.Itemメソッド

AttachmentsコレクションからAttachmentオブジェクト（添付ファイル）を返します。

記述例：

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

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

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

　

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

添付ファイルを削除して転送する

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

★転送アイテム取得(Itemオブジェクト） ★転送アイテムの添付ファイル群取得(Attachmentsコレクション） ★添付ファイル数を取得 ★各添付ファイルに対し操作を繰り返す ★各添付ファイルを削除する 　 ★転送アイテムを表示

　

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