Du musst zuerst noch die Makros aktivieren, in Outlook sind diese standardmäßig deaktiviert. Datei=>Optionen=>Trust Center=>Einstellungen für das Trust Center...=>Makroeinstellungen, dort kannst Du Alle Makros aktivieren.
Bei Set olFolder = olNamespace.Session.Folders("Andi Schulze").Folders("Kontakte") musst Du auch noch den Namen des Postfaches anpassen, also anstelle von "Andi Schulze" musst Du den Namen Deines Postfaches angeben (der Name entspricht dem Namen der Datendatei).
Bei Set olFolder = olNamespace.Session.Folders("Andi Schulze").Folders("Kontakte") musst Du auch noch den Namen des Postfaches anpassen, also anstelle von "Andi Schulze" musst Du den Namen Deines Postfaches angeben (der Name entspricht dem Namen der Datendatei).