ฉันจะตั้งค่า Outlook ให้ส่งการตอบกลับอัตโนมัติระหว่างชั่วโมงที่กำหนดของทุกวันได้อย่างไร

ฉันต้องการปกป้องตัวเองจากความต้องการที่ไม่สมเหตุสมผลในระหว่างวันทำงานของฉัน หนึ่งในนั้นกำลังบอกผู้คนว่าฉันจะไม่ตอบอีเมลใด ๆ ก่อน 15.00 น.

ฉันต้องการตั้งกฎในมุมมองที่ตอบกลับอีเมลทั้งหมดก่อน 15.00 น. พร้อมข้อความเฉพาะ ฉันอยากให้เรื่องนี้สำเร็จทุกวันไม่ว่าจะวันไหน

ฉันจะตั้งค่านี้ได้อย่างไร

ฉันพยายามทำให้ Google ดีที่สุดเท่าที่จะทำได้และฉันคิดว่าตามฟอรัมแลกเปลี่ยนว่าอาจจำเป็นต้องใช้สคริปต์นี้ แต่สิ่งที่ฉันพบคือสคริปต์ฝั่งเซิร์ฟเวอร์เท่านั้น ฉันต้องการบางสิ่งบางอย่างในเครื่องของฉันเอง

การอ้างอิง: http://www.telnetport25.com/2012/01/01/exchange-2010-out-of-office-fun-with-set-mailboxautoreplyconfiguration/

http://social.technet.microsoft.com/Forums/en-US/exchangesvrclientslegacy/thread/08a033ce-ea79-4dec-bd7c-4d617cc52e02/

ที่ชื่อของคุณอยู่ในกล่องถึง

Public Sub Check_ReceivedTime(newMail As Outlook.MailItem)

Dim obj As Object
Dim ReceivedHour As Integer
Dim newReply As MailItem
Dim msg As String

ReceivedHour = Hour(newMail.ReceivedTime)

If ReceivedHour < 15 Then

    Set newReply = newMail.reply
    msg = "I will respond some time after 3 pm."

    CreateMail newReply.To, msg

Else

    Debug.Print "After 3. Do not sent the automated reply."

End If

Set newReply = Nothing

End Sub


Private Sub CreateMail(ReplyAddress As String, msg As String)

Dim objMail As Outlook.MailItem

Set objMail = CreateItem(olMailItem)

With objMail
    .To = ReplyAddress
    .Body = msg

    .Display
    ' or
    ' .Send

End With

End Sub

แก้ไข: วางรหัสลงในตัวแก้ไข VBA รหัสจะเป็น availabel ใน "run a script"

ดูเพิ่มเติมที่http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/