前回、Outlookで作成した テストプログラム http://d.hatena.ne.jp/ken3memo/20101015/1287145506 をVBSから動かしたかったので 少し本編から脱線して遊んでみました。 元のプログラムは、下記のような感じのテストプログラムです。 '連絡先のアイテムを探る。。。 Sub tset() Dim oNamespace As NameSpace Dim oItem As Object 'Outlook 配布リストを.msgから読み込む Dim oFolder As Folder '連絡先のフォルダー ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = Application.GetNamespace("MAPI") ' 既定の連絡先フォルダへの参照を取得し、フォルダを表示します。 Set oFolder