如何在工作时间之外使Outlook自动回复邮件?

时间:2019-02-11 22:43:45

标签: vba outlook outlook-vba

我的PC始终处于打开状态,而Outlook始终处于打开状态。我想编写一个宏,以便每天在工作时间以外收到邮件时回复给任何发件人。

外出自动回复的日期和时间范围太有限了。

有人可以协助吗?

1 个答案:

答案 0 :(得分:1)

以下内容...

Option Explicit
Public Sub Example(Item As Outlook.MailItem)
    If Now() > DateSerial(Year(Now), Month(Now), Day(Now) _
            ) + #5:00:00 PM# _
        Or Now() < DateSerial(Year(Now), Month(Now), Day(Now) _
            ) + #7:00:00 AM# Then

        ' your code here

    End If
End Sub

在此处查看Outlook Reply or ReplyAll to an Email