เป็นไปได้ไหมที่จะสร้างการตอบกลับอัตโนมัติแบบมาตรฐานในมุมมองหากปฏิทินแสดงว่าฉัน "ไม่อยู่ที่สำนักงาน"?
อาจเป็นเพียงไม่กี่ชั่วโมงที่ฉัน "ไม่อยู่ที่สำนักงาน" ดังนั้นข้อความจะต้องระบุระยะเวลาโดยอัตโนมัติ
ขอบคุณสำหรับการตอบกลับ.
คำตอบ:
Outlook ไม่ทำสิ่งนี้โดยตรง แต่คุณสามารถทำได้ด้วยแมโคร
OOF (Out Of Office) Automation เป็นระบบอัตโนมัติที่ใช้ VBScript ในการสลับ OOF Assistant โดยอัตโนมัติเมื่อผู้ใช้ที่เกี่ยวข้องได้ทำการนัดหมาย "ออกไป" และกลับไปปิดเมื่อไม่มีการนัดหมาย "ไม่อยู่" อีกต่อไป
สามารถใช้งานได้โดยใช้ประโยชน์จาก CDO ภายนอกโดยใช้ Task Scheduler เช่นทั้งหมด 30 นาที นอกจากนี้ยังมีวิธีแก้ปัญหาภายในที่สามารถพบได้ที่ CDOLive อย่างไรก็ตามฉันมีปัญหา MAPI เมื่อใช้งานเนื่องจากข้อความ OOF ของ Outlook ของฉันไม่สอดคล้องกับข้อความที่ถูกแก้ไขภายในสคริปต์ในทันที
'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)"
อย่างไรก็ตามจำเป็นต้องกำหนดค่าก่อนใช้งาน:
'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"
แหล่งที่มาสำหรับทุกรายละเอียดข้างต้นและรายละเอียดเพิ่มเติมเช่นการติดตั้งและช่วยในการใช้งาน Scheudler