Outlook VBA Ordner öffnen in selber Instanz

Ich habe mir ein kleines Outlook macro erstellt, das mir einen bestimmten öffentlichen Ordner öffnet. Das Ganze funktioniert soweit auch, nur eben öffnet sich leider eine neue Outlook Instanz.

Ich hoffe mir kann hier jemand weiterhelfen.

publicFolder = "Öffentliche Ordner - " & Outlook.Session.DefaultStore
Set mordner = Session.Folders(publicFolder).Folders(„Alle Öffentlichen Ordner“).Folders(„Ordner“)
mordner.Display

Ich habe mir ein kleines Outlook macro erstellt, das mir einen
bestimmten öffentlichen Ordner öffnet. Das Ganze funktioniert
soweit auch, nur eben öffnet sich leider eine neue Outlook
Instanz.

Hallo Grußlose®,

mein Office 2007 ist Home & Student, also fehlt da u.a. auch OL.
Mein OL 2000 mag aber deinen Code nicht, unbekannte Namen.

Siehst du im taskmanager zweimal Outlook.exe nach Codeausführung?

Bei meinen folgenden Rumspielereien nicht, da ist nur eine Instanz.
Vllt. hilft dir das ja irschendwie weiter:

Option Explicit

Sub tt()
Dim myOlApp, myItem, myInspector
Set myOlApp = GetObject(, „Outlook.Application“)
Set myItem = myOlApp.CreateItem(olMailItem)
Set myInspector = myItem.GetInspector
myInspector.Display
End Sub

Sub nn()
Dim mordner
Set mordner = Session.Folders(„Persönliche Ordner“).Folders(„Gelöschte Objekte“)
mordner.Display
End Sub

Gruß
Reinhard