2010-12-09

Outlookを立ち上げた状態で以下のスクリプトをコマンドプロンプトからcscript hoge.vbsとして実行すると、動きます。

Main

Sub Main()
   Set outlook = CreateObject("Outlook.Application")
   Set namespace = outlook.GetNamespace("MAPI")

   Set rootFolder = namespace.PickFolder
   PrintFolderNames rootFolder,0
End Sub

Sub PrintFolderNames(parentFolder, ByVal depth)
   For Each subFolder in parentFolder.Folders
       On Error Resume Next
       for i=1 To depth Step 1
           WScript.StdOut.Write ","
       Next
       WScript.Echo subFolder.Name
       PrintFolderNames subFolder, depth + 1
   Next
End Sub