◆ アイテムを特定のフォルダにコピーする  (Item.Copy)

　

オブジェクト	メソッド（移動する）
Item	Move
記述法： Item.Move フォルダ アイテムを指定したフォルダに移動します。（詳細はこちら）

記述例：

現在開いているアイテムを「下書き」フォルダへコピーする

Set MyDraftBox = Application.GetnameSpace("mapi").GetDefaultFolder(16) ★下書きフォルダを取得 　 Set MyItem = Item.GetInspector.CurrentItem ★現在開いているアイテムを取得（Inspectorオブジェクト.CurrentItemプロパティ） （オブジェクトを取得せずにItem.〜で記述しても現在のアイテムとして動作します。） Set CopyItem = MyItem.copy ★現在開いているアイテムをコピーしオブジェクトとして取得 CopyItem.move MyDraftBox ★コピーしたアイテムを下書きフォルダに移動

選択したアイテムを「下書き」フォルダへコピーする （フォルダ内で選択しているアイテムを他フォルダへコピーします。）

Set MyDraftBox = Application.GetnameSpace("mapi").GetDefaultFolder(16) ★下書きフォルダを取得 Set MySelection = Application.ActiveExplorer.Selection ★現在の選択アイテム群を取得（Selectionオブジェクト） intX = MySelection.Count ★現在の選択アイテム数を出す For i = 1 to intX Set CopyItem = MySelection.item(i).copy   ★選択した各アイテムをコピーし、オブジェクトとして取得 CopyItem.move MyDraftBox ★コピーしたアイテムを下書きフォルダに移動する Next ★アイテム数分処理を繰り返す