Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆ 添付ファイルを削除する

　

　

　

オブジェクト

メソッド

 メソッド

Attachmentsコレクション

Item(インデックス番号）

 Delete

AttachmentsコレクションのItemメソッドでAttachmentオブジェクトを取得しDeleteメソッドで削除します。

記述例：

Item.Attachments.item(1).Delete
→ Attachmentオブジェクト（添付ファイル）1を削除します。

※ Item.Attachments(1).Deleteでも可

　

記述例：

記号

現在のアイテムから添付ファイルを全て削除する

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プログラミング  ≫≫ プログラミングサンプル編