☰

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

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010 auto-reply
如何设置 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/en-US/exchangesvrclientslegacy/thread/08a033ce-ea79-4dec-bd7c-4d617cc52e02/

答案1

您的姓名位于收件人框中。

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/

答案2

我无意厚颜无耻地宣传我的应用程序，但我已经开发了一个在线应用程序来尝试解决这个确切的问题。

该工具可以帮助您解决以下情况：

  • 特定日期/时间经常不在办公室
  • 提前计划一次或多次一次性外出
  • 管理多条外出消息

更多信息，https://www.notin.today

鲍勃

注意：我一直在寻找想要使用此工具并提供反馈的人。实际反馈，以便我可以进一步改进该工具。谢谢！

相关内容