helmutl
Goto Top

Exchange 2010 Raumkalender automatisch in Outlook 2010 einblenden

Hallo in die Runde,

ich hab hier einen Exchangeserver 2010 mit mehreren Raumpostfächern. (Besprechungsräume) die jeweiligen Kalender dieser Postfächer sollen bei allen Usern automatisch im Outlook 2010 erscheinen ohne dass ich an jeden einzelnen Rechner gehen muss und Kalender hinzufügen zu klicken.

Danke schon im Voraus für die Hilfe

Gruß

Helmut

Content-Key: 228544

Url: https://administrator.de/contentid/228544

Ausgedruckt am: 29.03.2024 um 00:03 Uhr

Mitglied: colinardo
colinardo 03.02.2014 aktualisiert um 23:52:30 Uhr
Goto Top
Hallo Helmut, Willkommen im Forum!
vielleicht hilft dir folgendes VBS-Script um eine bestimmmte Anzahl an Raumpostfach-Kalendern den Outlook-Postfächern auf den Clients hinzuzufügen.(In Zeile 2 sind die E-Mail-Adressen der Raumpostfächer in das Array einzutragen):
' Hier die Raumpostfächer in dem Array angeben  
postfaecher = Array("RaumPostfach1@domain.de","RaumPostfach2@domain.de","RaumPostfach3@domain.de")  

set objShell = CreateObject("Wscript.shell")  
objShell.Run "outlook.exe",1  
set objOL = CreateObject("Outlook.Application")  
set ns = objOL.GetNameSpace("MAPI")  
Set myItem = objOL.CreateItem(0)
for i = 0 to UBound(postfaecher)
  Set r = myItem.Recipients.Add(postfaecher(i))
  Set room = ns.GetSharedDefaultFolder(r, 9)
  set objExpCal = ns.GetDefaultFolder(9).GetExplorer()
  Set objNavMod = objExpCal.NavigationPane.Modules.GetNavigationModule(1)
  On Error Resume Next
  Set objNavGroup = objNavMod.NavigationGroups.GetDefaultNavigationGroup(5)
  objNavGroup.NavigationFolders.Add room
Next
Set myItem = Nothing
set objOL = Nothing
set ns = Nothing
Damit die User keine Warnung wegen Scriptgesteuertem Zugriff bekommen muss diese Sicherheitseinstellung eventuell vorübergehend dahingehend konfiguriert werden das keine Meldung erscheint.

Sonst kenne ich persönlich keine andere Möglichkeit.

Grüße Uwe