persönlichen Ordner anzeigen mit VBA

Jetzt hab ich\’s doch noch selbst rausgefunden.
Für diejenigen die sich ebenso gefragt haben wie das geht, hab ich noch den Code angehängt:
\‘———————————————————————————————-
Sub Gesendet_2003()
Dim sFileName$

sFileName = (\“C:\\Exchange\\Das_ging_raus_2003.pst\“)
OpenFolder sFileName
End Sub

\‘———————————————————————————————-
Sub OpenFolder(strFileName As String)
Dim oOutlook As Outlook.Application
Dim oNSpace As Outlook.NameSpace

Set oOutlook = CreateObject(\“Outlook.Application\“)
Set oNSpace = oOutlook.GetNamespace(\“MAPI\“)
oNSpace.AddStore strFileName

Set oOutlook = Nothing
Set oNSpace = Nothing

End Sub

Viel Grüsse
Rolli