OutLookVBA 指定のフォルダをアクティブ化

質問

こんばんは、よろしくお願いいたします。

OUTLOOK VBAで指定のフォルダをアクティブにするコードが分かりません。

Windows:VISTA
OutLook:2007

○.Display

とすると、別ウィンドウが立ち上がってそのフォルダが表示されます。

○.Activate

とするとエラーになります。

別ウィンドウではなくアクティブフォルダが遷移する、とするにはそう
すればいいでしょうか？

ご指導お願いいたします。

Sub foldpl()
Dim ns As NameSpace
Dim mf As MAPIFolder
Set ns = GetNamespace("MAPI")
Set mf = ns.Folders("個人用フォルダ").Folders("送信済みアイテム")
mf.Display '別ウィンドウで表示されてしまします
Set mf = Nothing
Set ns = Nothing
End Sub

回答No.1

m3_maki · ベストアンサー

Explorer.CurrentFolder プロパティ (Outlook)(機械翻訳)
http://msdn.microsoft.com/ja-jp/library/office/ff866719(v=office.15).aspx

上記を参考にして手を入れると

Sub ChangeCurrentFolder()
　　Dim myNamespace As Outlook.NameSpace

　　Set myNamespace = Application.GetNamespace("MAPI")

　　Set Application.ActiveExplorer.CurrentFolder = _
　　myNamespace.Folders("個人用フォルダ").Folders("送信済みアイテム")

End Sub

というところですかね？

お礼

m3_makiさん、ご回答ありがとうございます。

ご教示いただきましたコードで解決しました。

「Outlook 2013 開発者用リファレンス」もこれからいろいろ勉強させていただきます。
ありがとうございました。