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

　

◆ 複数アイテムを一括して転送する  (Item.Forward）

　

　

　

　

　

オブジェクト

メソッド

MailItem

Forward

記述例： Set FwdItem = Item.Forward

→ 転送アイテムを取得します。

　

記述例：

記号

複数アイテムを一括して転送する
→ 選択した全アイテムを一括して同じ宛先に転送します。

Set MySelection = Application.ActiveExplorer.Selection

x = MySelection.Count

For i = 1 to x

Set FwdItem = MySelection.item(i).Forward

FwdItem.to = "Taro@a.com"

FwdItem.Send

Next

★選択アイテムの集合を取得（Selectionコレクション）

★選択アイテム数を取得

★選択アイテム数分、処理を繰り返す

★各選択アイテムの転送アイテムを取得

★宛先を設定

★転送アイテムを送信

　

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ プログラミングサンプル編