eine Abwesenheitsnotiz für einen abwesenden Benutzer erstellen

quelle: http://telnetport25.wordpress.com/2007/07/25/vbscript-to-set-out-of-office/
Manchmal ist ein Benutzer länger abwesend oder krank und kann für sich so keine Abwesenheitsnachricht konfigurieren.
per Script kann man als Exchangeadministrator für den Benutzer eine Out-Of-Office-Nachricht so erstellen:

OutOfOffice.vbs
Set objMAPISession = CreateObject("MAPI.Session")
strExchangeSvr = InputBox("Please provide the name of your Exchange Server")
strMailbox = InputBox("Please provide the name of the Mailbox that you wish to set OOO")
strMAPI = strExchangeSvr & vbLf & strMailbox
 
On error Resume Next
 
objMAPISession.Logon "", "", False, True, 0, False, strMAPI
 
If err <> 0 Then
Wscript.Echo "An Error occured: " & err.description
Err.clear
Wscript.Sleep 7000
Wscript.Quit
End If
 
strOOOMessage = InputBox("Please type in the OOO message for this user")
 
objMAPISession.OutOfOfficeText = strOOOMessage
objMAPISession.OutOfOffice = 1
strOOOMessage = objMAPISession.OutOfOfficeText
 
objMAPISession.Logoff
Set objMAPISession = Nothing

Das Script muss auf dem 64-Bit-Exchange 2007-Server wie folgt ausgeführt werden:

C:\windows\syswow64\cscript.exe OutofOffice.vbs

Vorsicht! Das ist eventuell Betriebsratzustimmungspflichtig.

zurück