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

　

◆ 特定のフォルダに移動する  (Item.Move)

　

オブジェクト

メソッド（移動する）

Item

Move

記述法： Item.Move 指定フォルダ

アイテムを指定フォルダへ移動します。

現在のアイテムの場合、保存して移動するため「指定したフォルダへ保存」することができます。

　

(例）現在のアイテムをPrivateフォルダへ保存する （＝移動する）

Set PrivateFolder = Application.GetNameSpace("mapi").GetDefaultFolder(6).Folders("Private")
Item.Move PrivateFolder

　

　

記述例：

記号

現在のアイテムを下書きに保存する

Set MyNameSpace = Application.GetNameSpace("mapi")

Set DraftBox = MyNameSpace.GetDefaultFolder(16)
item.move DraftBox

★Outlookルートオブジェクトを取得

★下書きフォルダを取得

★現在のアイテムを下書きに保存
記号

新規メッセージを下書きに保存する

Set MyNameSpace = Application.GetNameSpace("mapi")

Set DraftBox = MyNameSpace.GetDefaultFolder(16)
Set NewItem = Application.CreateItem(0)

NewItem.subject = "test"

item.move DraftBox

★Outlookルートオブジェクトを取得

★下書きフォルダを取得

★新規メッセージを作成

★新規メッセージの件名を”test”とする

★新規メッセージを下書きに保存する
記号

フォルダ内で選択しているアイテムを指定フォルダに移動する
（移動先フォルダ：受信トレイ\Private)

Set MyNameSpace = Application.GetNameSpace("mapi")

Set MyInbox = MyNameSpace.GetDefaultFolder(6)

Set PrivateFolder = MyInbox.Folders("Private")

Set MyExplorer = Application.ActiveExplorer

Set MySelection = MyExplorer.Selection

intX = MySelection.Count

　

For i = intX to 1 Step -1

MySelection.item(i).Move PrivateFolder

Next

★Outlookルートオブジェクトを取得

★受信トレイを取得

★移動先フォルダ（Private)を取得

★現在のExplorerオブジェクト取得

★選択しているアイテム群取得

★選択アイテム数を変数に格納

　

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