Как автоматизировать Outlook, чтобы отвечать на почту вне рабочего времени?

Question

Мой компьютер всегда включен, а Outlook всегда открыт.Я хочу написать макрос, который отвечает любому отправителю, если письмо получено вне рабочего времени, каждый день.

Дата и время автоматического ответа об отсутствии на работе слишком ограничены для этого.

Кто-нибудь может помочь?

Answer 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 Outlook или ReplyAll на электронную почту