Outlookサポートナビ！ ≫≫≫ Outlookフォーム作成／VBSプログラミング
オブジェクト
メソッド
Item
saveas パス,ファイル形式
記述例： Item.Saveas "C:\test\memo.msg",olMsg
Item.Saveasメソッドについては「アイテムを指定したパスに指定した形式で保存する」を参照してください。
記述例：
Set MyInbox = Application.GetNameSpace("mapi").GetDefaultFolder(6) ★受信トレイを取得 set AllItems = MyInbox.items ★受信トレイ内の全てのアイテムを取得（Itemsコレクション） intX = AllItems.count ★受信トレイ内アイテム数を取得 For i = 1 to intX AllItems.item(i).saveas "c:\test\" & AllItems.item(i).subject & i &".msg" next ★ループ処理でアイテム数分、処理を繰り返す。ファイル名は件名とするが複数ファイルの同名保存はできないので、数値iをつけています。 ★Itemsコレクション.Item(インデックス番号）メソッドでは、フォルダ内の全アイテムからItemオブジェクトを取得できます。各アイテムに対して処理を行うことができます。 ※注：件名に”ファイル名に使えない文字”が含まれている場合はエラーが表示されます。
Set MyInbox = Application.GetNameSpace("mapi").GetDefaultFolder(6)
★受信トレイを取得
set AllItems = MyInbox.items
★受信トレイ内の全てのアイテムを取得（Itemsコレクション）
intX = AllItems.count
★受信トレイ内アイテム数を取得
For i = 1 to intX AllItems.item(i).saveas "c:\test\" & AllItems.item(i).subject & i &".msg" next
★ループ処理でアイテム数分、処理を繰り返す。ファイル名は件名とするが複数ファイルの同名保存はできないので、数値iをつけています。
★Itemsコレクション.Item(インデックス番号）メソッドでは、フォルダ内の全アイテムからItemオブジェクトを取得できます。各アイテムに対して処理を行うことができます。
※注：件名に”ファイル名に使えない文字”が含まれている場合はエラーが表示されます。
