Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Exchange Server 2003 - 2007 Öffentliche Ordner

Anleitung Microsoft Outlook & Mail

Mitglied: JT

JT (Level 2) - Jetzt verbinden

05.08.2008, aktualisiert 07.09.2008, 29049 Aufrufe, 9 Kommentare

Ö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.

01.
Set oOutlook = CreateObject("Outlook.Application") 
02.
Set oNameSpace = oOutlook.GetNamespace("MAPI") 
03.
Set objkontaktordner = oOutlook.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Kontakte").Folders.Item("Adressbuch") 
04.
Set objitems = objkontaktordner.Items 
05.
06.
If objkontaktordner = "Adressbuch" Then 
07.
    objkontaktordner.showasoutlookab = True 
08.
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*
Mitglied: latino21
18.08.2008 um 08:41 Uhr
Wüsstest du vielleicht noch eine Ergänzung für dein Skript, die dieses Adressbuch dann auch noch zum Standard-Kontakt-Ordner macht?

Danke
Roman
Bitte warten ..
Mitglied: JT
20.08.2008 um 16:27 Uhr
Hi Roman,

Ja irgendwo hatt ich das auch mal geschrieben.
Muss ich aber noch mal suchen.
*Bin quasi dabei*

Gruß
JT
Bitte warten ..
Mitglied: latino21
07.09.2008 um 14:10 Uhr
Das wäre genial!

Gruß
Roman
Bitte warten ..
Mitglied: Mark371
30.01.2009 um 16:46 Uhr
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?

>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

Gruß Mark

OL2003 SP1 | SBS 2003 SP2 | Exchange-System Version: 6.5.7638.1
Bitte warten ..
Mitglied: JT
08.02.2009 um 14:50 Uhr
Hi,

Wieso denn der Teil hier?
>If objkontaktordner = "Adressbuch" Then

objkontaktordner.showasoutlookab = True

>End If

änder das mal auf
>If objkontaktordner = "test2" Then

objkontaktordner.showasoutlookab = True

>End If
Die If_schleife kntrolliert nur ob der Ordner existiret nicht ob er ein Adressbuch ist.

Gruß
JT

Anlage: Vielleicht für die Nachwelt zur Erklärung:
Also Punkt Adressbuch steht hier für den Namen des Ordners und nicht für die Funktion des Ordners.
Es ist nur eine Überprüfung, ob der richtige Ordner ausgewählt wurde. Kann man auch weg lassen.
Bitte warten ..
Mitglied: latino21
08.02.2009 um 17:17 Uhr
Danke JT, bei mir klappts. Hast du vielleicht noch einen Tipp, wie man einen bestimmten Kontaktordner zum Standardkontaktordner machen kann?

Gruß
Bitte warten ..
Mitglied: JT
09.02.2009 um 11:24 Uhr
Hi,

Meinst du für alle? oder nur bei einen user?
Einen lokalen oder einen Öffentlichen?
Wenn es nur bei einem User ist kannst du das ja schnell im Outlook einstellen.
Aber bei mehreren bin ich auch noch deinem Vorgänger ne Antwort schuldig

Ich such aber noch mal. *Schäm schlamperei*

Gruß
JT
Bitte warten ..
Mitglied: latino21
09.02.2009 um 11:28 Uhr
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ß
Bitte warten ..
Mitglied: JT
09.02.2009 um 12:10 Uhr
hi,
Ja das Problem hatten wir auch. Hatte ich auch gemacht wurde dann aber gestrichen, daher der User selbst entscheiden soll.
Ich suche und find es nicht mehr. Wir wollten es über das Loggon Script machen, damit alle die Einstellung haben.
Aber wie das noch mal war???? denk**schwitz

Gruß
JT
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Öffentliche Ordner Exchange 2016 (4)

Frage von HeinrichM zum Thema Exchange Server ...

Exchange Server
Exchange Online Öffentliche Ordner werden nicht angezeigt (10)

Frage von Hans3003 zum Thema Exchange Server ...

Exchange Server
Exchange 2016 - Öffentliche Ordner und Postfachumzug (5)

Frage von diemilz zum Thema Exchange Server ...

Exchange Server
Exchange 2003 auf 2007 Implace Migration (18)

Frage von Herbrich19 zum Thema Exchange Server ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...