Hallo,
ich möchte einen auf der Festplatte liegenden Ordner (.pst Datei) mittels eines VBA Mokros in der Ordnerliste in Outlook anzeigen. Oder anderst gesagt ich möchte das übliche Prozedere \“Extras->Dienste->Hinzufügen->persönlicher Ordner->….\“ mit einem Makro automatisieren.
Hat hierzu jemand ne Idee?
Danke schonmal.
Gruss Rolli
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
Danke Rolli!