20638
05.08.2008, aktualisiert am 07.09.2008
30717
9
0
Exchange Server 2003 - 2007 Öffentliche Ordner
Öffentliche Ordner bei jedem Benutzer als Adressbuch anzeigen.
Hallo,
Vorgeschichte:
Ich war lange auf der suche nach einer Möglichkeit einen Öffentlichen Ordner als Adressbuch jeden in meinem Bereich zugänglich zu machen.
Leider war die aussage von MS das es nicht geht. Es sei denn jemand macht sich die Mühe und stellts es für jeden Benutzer oder Account einzeln ein.
Problem:
Soll man jeden Client ablaufen oder jeden Account bitten diesen Ordner als Adressbuch anzeigen zu lassen?
Man weiß ja das jeder User gern genau diese E-Mail mit der Anleitung ignoriert oder einfach direkt löscht.
Warum bietet MS es nicht direkt an Grundsätzlich solche Funktionen auch auf Benutzerkreise festzulegen oder zu pushen.
Lösung:
Daher sich eh jeder Benutzer ob er will oder nicht einmal anmelden oder den Rechner neu starten muss.
Warum nicht das Anmelde Skript verwenden?
Der folgende Code ist für VB / VBS und für Outlook 2003/2007 geeignet.
Somit hat jeder Benutzer das Adressbuch und es wird in der Liste der Adressbücher angezeit.
Die letzten drei Zeilen sind nur eine Prüfung könnten auch weggelassen werden.
Viel erfolg, für die welche so eine Funktion schon gesucht haben.
Mit freundlichem Gruß
Sign_JT
*Probleme sind nicht gefundene Lösungen*
Hallo,
Vorgeschichte:
Ich war lange auf der suche nach einer Möglichkeit einen Öffentlichen Ordner als Adressbuch jeden in meinem Bereich zugänglich zu machen.
Leider war die aussage von MS das es nicht geht. Es sei denn jemand macht sich die Mühe und stellts es für jeden Benutzer oder Account einzeln ein.
Problem:
Soll man jeden Client ablaufen oder jeden Account bitten diesen Ordner als Adressbuch anzeigen zu lassen?
Man weiß ja das jeder User gern genau diese E-Mail mit der Anleitung ignoriert oder einfach direkt löscht.
Warum bietet MS es nicht direkt an Grundsätzlich solche Funktionen auch auf Benutzerkreise festzulegen oder zu pushen.
Lösung:
Daher sich eh jeder Benutzer ob er will oder nicht einmal anmelden oder den Rechner neu starten muss.
Warum nicht das Anmelde Skript verwenden?
Der folgende Code ist für VB / VBS und für Outlook 2003/2007 geeignet.
Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set objkontaktordner = oOutlook.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Kontakte").Folders.Item("Adressbuch")
Set objitems = objkontaktordner.Items
'
If objkontaktordner = "Adressbuch" Then
objkontaktordner.showasoutlookab = True
End If
Somit hat jeder Benutzer das Adressbuch und es wird in der Liste der Adressbücher angezeit.
Die letzten drei Zeilen sind nur eine Prüfung könnten auch weggelassen werden.
Viel erfolg, für die welche so eine Funktion schon gesucht haben.
Mit freundlichem Gruß
Sign_JT
*Probleme sind nicht gefundene Lösungen*
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 93643
Url: https://administrator.de/contentid/93643
Ausgedruckt am: 23.11.2024 um 10:11 Uhr
9 Kommentare
Neuester Kommentar
Hallo zusammen,
ich bin der Neue
Die Freude war gross als ich diesen Tipp gelesen habe. Ich habe also kurz einen Kontaktordner mit dem Namen test2 in "Alle öffentliche Ordner" angelegt und das Script wie folgt angepasst.
Das Script läuft auch ohne zu mucken druch, leider wird das Häkchen bei "Diesen Ordner als E-Mail-Adressbuch anzeigen" nicht gesetzt.
Was mach ich falsch?
Gruß Mark
OL2003 SP1 | SBS 2003 SP2 | Exchange-System Version: 6.5.7638.1
ich bin der Neue
Die Freude war gross als ich diesen Tipp gelesen habe. Ich habe also kurz einen Kontaktordner mit dem Namen test2 in "Alle öffentliche Ordner" angelegt und das Script wie folgt angepasst.
Das Script läuft auch ohne zu mucken druch, leider wird das Häkchen bei "Diesen Ordner als E-Mail-Adressbuch anzeigen" nicht gesetzt.
Was mach ich falsch?
Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set objkontaktordner = oOutlook.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("test2")
Set objitems = objkontaktordner.Items
If objkontaktordner = "Adressbuch" Then
objkontaktordner.showasoutlookab = True
End If
Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set objkontaktordner = oOutlook.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("test2")
Set objitems = objkontaktordner.Items
If objkontaktordner = "Adressbuch" Then
objkontaktordner.showasoutlookab = True
End If
Gruß Mark
OL2003 SP1 | SBS 2003 SP2 | Exchange-System Version: 6.5.7638.1
Einen Öffentlichen Kontaktordner als Standardkontaktordner.
Mit dem Skript taucht dieser öffentliche Kontaktordner ja schon als Adressbuch auf, ist aber eben noch nicht das Standardadressbuch. Ich würde das auch gerne über das Skript realisieren, da ich das sonst bei relativ vielen Arbeitsplätzen im Outlook manuell einstellen müsste.
Gruß
Mit dem Skript taucht dieser öffentliche Kontaktordner ja schon als Adressbuch auf, ist aber eben noch nicht das Standardadressbuch. Ich würde das auch gerne über das Skript realisieren, da ich das sonst bei relativ vielen Arbeitsplätzen im Outlook manuell einstellen müsste.
Gruß