Làm cách nào để thiết lập Outlook để gửi trả lời tự động trong một giờ nhất định mỗi ngày?

Tôi muốn bảo vệ bản thân khỏi những đòi hỏi vô lý trong ngày làm việc. Một trong số đó là nói với mọi người rằng tôi sẽ không trả lời bất kỳ email nào trước 3 giờ chiều.

Tôi muốn thiết lập một quy tắc trong triển vọng trả lời tất cả các email trước 3 giờ chiều với một thông báo cụ thể. Tôi muốn điều này được thực hiện mỗi ngày, bất kể ngày nào.

Làm thế nào để tôi thiết lập điều này?

Tôi đã tìm kiếm Google tốt nhất từ ​​trước đến nay và tôi nghĩ, dựa trên diễn đàn Exchange, có thể cần một kịch bản cho việc này. Nhưng những gì tôi tìm thấy cho đến nay chỉ là các kịch bản phía máy chủ. Tôi cần một cái gì đó trên máy của riêng tôi.

tài liệu tham khảo: http://www.telnetport25.com/2012/01/exchange-2010-out-of-office-fun-with-set-mailboxautoreplyconfiguration/

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

Tên của bạn nằm trong hộp To.

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

Chỉnh sửa: Dán mã vào trình soạn thảo VBA. Mã này sẽ có sẵn trong "chạy tập lệnh".

Xem thêm http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/