Outlook macht dies nicht direkt, aber Sie können dies mit einem Makro tun.
OOF (Out Of Office) -Automation ist eine VBScript-basierte Automatisierung, bei der der OOF-Assistent automatisch eingeschaltet wird, wenn der jeweilige Benutzer einen Abwesenheitstermin eingegeben hat, und wieder deaktiviert wird, wenn kein Abwesenheitstermin mehr vorhanden ist.
Dies funktioniert, indem CDO extern mit dem Taskplaner verwendet wird, z. B. alle 30 Minuten. Es gibt auch eine interne Lösung bei CDOLive. Ich hatte jedoch ein MAPI-Problem bei der Implementierung, da meine Outlook-OOF-Nachricht plötzlich nicht mehr mit der im Skript geänderten Nachricht synchron war.
'TO CONFIGURE: Change "ServerName" to the name of your Exchange Server Const sServerName = "OEBFASRV02" 'TO CONFIGURE: Change "MailboxName" to the name 'of an administrative mailbox on the server specified above Dim sProfileInfo ' the MAPI logon profile sProfileInfo = sServerName & vbLf & "Administrator" 'TO CONFIGURE: Change placeholders and 'infixes to reflect your used languages '(2 at most, if more are needed then change the code yourself...) Const placeHolderLang1 = "<Datum>" Const placeHolderLang2 = "<Date>" Const infixFrom1 = "von " Const infixFrom2 = "from " Const infixTo1 = " bis " Const infixTo2 = " to " Const infixOn1 = "am " Const infixOn2 = "on " 'TO CONFIGURE: Send Mails to these people in case of error. Const ErrMailDistributionList = "rkapl" Log.vbs
Log.vbs is a separately usable, simple Logger class. It can be used in other scripts as follows: Set WshShell = WScript.CreateObject("WScript.Shell") ExecuteGlobal CreateObject(_ "Scripting.FileSystemObject").OpenTextFile("Log.vbs", 1).ReadAll ' PathToLogFolder.. (default = defaultLogPath in Log.vbs) ' NameOfLogFile.. (default = scriptname) ' maxLevelToBeLogged.. 0 = ERROR, _ ' 1 = WARN, 2 = INFO, 3 = DEBUG (default) ' CommaSeparatedErrMailDistributionListString... ' e.g. "admin1, admin2, admin3" (default = defaultMailRecipients in Log.vbs) ' ErrMailSender.. (default = defaultMailSender in Log.vbs) ' ErrMailSubject.. (default = defaultMailSubject in Log.vbs) Set theLogger = new_Logger(Array(PathToLogFolder,NameOfLogFile,_ maxLevelToBeLogged,CommaSeparatedErrMailDistributionListString, _ ErrMailSender,ErrMailSubject)) theLogger.LogInfo "Info Message" theLogger.LogWarn "Warning Message" theLogger.LogError "Error Message" theLogger.LogStream (WshShell.Exec object) 'logs stderr output of Exec object as 'LogError messages, all other are logged as LogInfo theLogger.LogFatal "Fatal Message (stops the script)" Es muss jedoch auch vor der Verwendung konfiguriert werden:
'TO CONFIGURE: Send Mails to these default 'people in case of error (if not set by using script). Const defaultMailRecipients = "rkapl,mkovacs,gnebenfuehr,mhoessl,gschrenk" 'TO CONFIGURE: The default sender of the error mails Const defaultMailSender = "Administrator@oebfa.co.at" 'TO CONFIGURE: The default subject of error mails Const defaultMailSubject = "Process Error" 'TO CONFIGURE: The file, where internal errors are logged Const internalLogFile = _ "\\oebfasrv01\marktdaten\Logs\Log.vbs.internalErrs.log" 'TO CONFIGURE: The folder, where log files are being put Const defaultLogPath = "\\oebfasrv01\marktdaten\Logs" Quelle für alle oben genannten und zusätzliche Details wie Installation und Hilfe mit Task Scheudler