Hallo,
vielen Dank für die Antwort.
wenn das öO-AB als Standard definiert ist, könnte es über ein Outlook-Profil gehen
Damit ist das Register "Adressbuch" o. ä. in den Profileigenschaften gemeint, oder? Ich befürchte, dass es nicht auf Standard eingestellt ist, da wir auch ein Adressbuch für die "internen Adressen" haben. Aber ich werde mal nachschauen.
Und nun zum Skript-Thema: da ich mich leider wenig mit Programmierung beschäftigt habe, weiß ich nicht, ob dieses Skript funktioniert. Ist es das richtige Skript? Wo muss ich den Namen des ÖO eintragen?
Sub ShowAsAddressBookChange()
Dim olApp As Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.MAPIFolder
Set olApp = Outlook.Application
'Create instance of namespace
Set nmsName = olApp.GetNamespace("Mapi")
Set fldFolder = nmsName.GetDefaultFolder(olFolderContacts)
'Display the folder as Outlook Address Book
fldFolder.ShowAsOutlookAB = True
End Sub
