◆ Item.Moveメソッド

アイテムを指定したフォルダに「移動」します。

現在のアイテムの場合は「保存して移動」する為、「特定のフォルダに保存する」という動作が可能です。

記述例：

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

Set MyNameSpace = Application.GetNameSpace("mapi") Set DraftBox = MyNameSpace.GetDefaultFolder(16) Set NewItem = Application.CreateItem(0) NewItem.subject = "test" item.move DraftBox

★Outlookルートオブジェクトを取得 ★下書きフォルダを取得 ★新規メッセージを作成 ★新規メッセージの件名を”test”とする ★新規メッセージを下書きに保存する

選択アイテムを指定フォルダ(ex.下書き）に移動する

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オブジェクト取得 ★選択しているアイテム群取得 ★選択アイテム数を変数に格納 　 ★選択アイテム数分、処理を繰り返す

フォルダ内の全アイテムを別フォルダ(ex.選択フォルダ）に移動する

Set MyInBox = Application.GetNameSpace("mapi").GetDefaultFolder(6) Set ItemsCol = MyInBox.Items x = ItemsCol.Count Set MyCurrentFolder = Application.ActiveExplorer.CurrentFolder 　 For i = x to 1 Step -1 ItemsCol.item(i).move MyCurrentFolder Next

★受信トレイを取得 ★受信トレイ内のItemsコレクション取得 ★受信トレイ内のアイテム数を取得 ★現在選択しているフォルダを取得 　 ★受信トレイ内アイテム数分処理を繰り返す ★アイテムを選択フォルダへ移動

　

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