How to automate Outlook to reply to mail outside of working hours?

Question

My PC is always on, and Outlook is always open. I want to write a macro that replies to any sender if a mail is received outside of working hours, every day.

The out of office auto reply's date and time range is too limited for this.

Can anyone assist?

Have you tried nothing yet? – GabrieleMartini Feb 11 '19 at 22:45 — GabrieleMartini, Feb 11 '19 at 22:45

score 1 · Accepted Answer · answered Feb 11 '19 at 22:52

1

How about the following...

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

See here Outlook Reply or ReplyAll to an Email

answered Feb 11 '19 at 22:52

0m3r

12,286
15
35
71

1

Thanks for this. I changed the OR to AND, Works great – opperman.eric Feb 12 '19 at 00:36

How to automate Outlook to reply to mail outside of working hours?

1 Answers1