outlookVBA

質問

これはVBSのコードでしょうか？
http://himagine.s20.xrea.com/pc/olfolder.html

当方オフィス２００７です。
私がやりたい事は、受信トレイのサブフォルダ名を取得し、イミディエイト ウィンドウに表示させたいのですが、
リンク先のコードをoutlookの標準モジュールに貼りつけて「Sub Main」を実行しても何も起りません。

リンク先のコードをどう改造すれば、サブフォルダの一覧をイミディエイト ウィンドウに表示させる事が出来るのでしょうか？

ご教授よろしくお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

keithin · ベストアンサー

ご覧になったコードはフォルダをコピーするＶＢＳです。ＯＬを起動しておいて、Ｗクリックして実行するようにとも書かれていますね。

＞受信トレイのサブフォルダ名を取得し、イミディエイト ウィンドウに表示させたい

それで、いいのでしたら例えば次のような具合で。

sub macro1()
　dim f as outlook.folder
　for each f in application.getnamespace("MAPI").getdefaultfolder(olfolderinbox).folders
　debug.print f.name
　next
end sub

＃実はもっと違う事がしたいのでしたら、このご相談は解決で一回閉じてから、もうちょっと詳しくご質問内容を書きなおして、新しいご相談として投稿し直して下さい。

お礼

出来ました！ありがとうございました。大変参考になりました。