如何设置Outlook在每天的特定时间发送自动回复？

我想在工作期间保护自己免受不合理的要求。其中之一是告诉人们，我不会在下午3点之前回复任何电子邮件。

我想在Outlook中设置一条规则，该规则在下午3点之前回复所有带有特定消息的电子邮件。我希望每天都能做到，无论日期如何。

我该如何设置？

到目前为止，我已经尽力调查了Google，并且我认为基于Exchange论坛，可能需要为此编写脚本。但是到目前为止，我发现的只是服务器端脚本。我在自己的机器上需要一些东西。

参考：http : //www.telnetport25.com/2012/01/exchange-2010-out-of-office-fun-with-set-mailboxautoreplyconfiguration/

http://social.technet.microsoft.com/Forums/zh-CN/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编辑器中。该代码将在“运行脚本”中提供。

另请参见http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/