VBA Makro Outlook 2010

[Vinzenz Mai]

Hallo,

Set olExplorer.CurrentFolder = objNS.Folders("Öffentliche Ordner - (Environ("Username"))" ) _
.Folders("Alle Öffentlichen Ordner").Folders ("Telefonliste")

Das funktioniert auch, wenn ich bei (Environ("Username") den Usernamen fest eintrage, nur so bekomme ich einen Syntax fehler.

Klar: schau Dir mal Deine Anführungszeichen an. So geht das nicht. Wenn Du Anführungszeichen in einer Zeichenkette verwenden willst, dann musst Du diese entsprechend behandeln. In VBA durch Verdopplung des Anführungszeichens.

Andererseits willst Du in Wirklichkeit auf das Ergebnis eines Ausdrucks zugreifen und diesen als Teil einer Zeichenkette verwenden. Das geht in VBA wie anderswo und in anderen Programmiersprachen auch:

a) Zeichenkette zusammenbauen
b) Zeichenkette verwenden

Dim Ordnername as String
Ordnername = "Öffentliche Ordner - " & Environ("Username")
Set olExplorer.CurrentFolder = objNS.Folders(Ordnername) ...

Freundliche Grüße

Vinzenz