nicht angemeldet
Hallo zusammen,
meine Frage ist jetzt ausserhalb von Webprogrammierung aber vielleicht kann mir ja doch jemand weiter helfen:
Ich möchte mit Folgendem Makro in Outlook 2010 einen Öffentlichen Ordner öffnen:
Public Sub Telefonliste()
Dim objNS As NameSpace
Dim olExplorer As Outlook.Explorer
Set olExplorer = Application.ActiveExplorer
Set objNS = Application.GetNamespace("MAPI")
Set olExplorer.CurrentFolder = objNS.Folders("Öffentliche Ordner - (Environ("Username"))" ) _
.Folders("Alle Öffentlichen Ordner").Folders ("Telefonliste")
End Sub
Das funktioniert auch, wenn ich bei (Environ("Username") den Usernamen fest eintrage, nur so bekomme ich einen Syntax fehler.
Für eine Hilfe wäre ich dankbar.
Gruß
Jan