8

I would like to protect myself from unreasonable demands during my work day. One of those is telling people that I will not respond to any emails before 3pm.

I'd like to set up a rule in outlook that replies to all emails before 3pm with a specific message. I'd like this to be done every day, no matter the date.

How do I set this up?

I've scoured Google best I can so far, and I think, based on a Exchange forum, that a script might be needed for this. But what I found so far was only server side scripts. I need something on my own machine.

references: 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/

Avik
  • 193

2 Answers2

8

Where your name is in the To box.

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

Edit: Paste the code into the VBA editor. The code will be availabel in "run a script".

See also http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/

Tobias Kienzler
  • 4,629
niton
  • 1,832
0

It's not the intention to shamelessly advertise my application, but I have developed an online application where I try to solve this exact problem.

The tool can help you with the following situations:

  • recurring out of office's for specific days / hours
  • plan upfront on or more one-off out of office's
  • manage multiple out of office messages

More info, https://www.notin.today

bob

note: I am always looking for people who want to use this tool and give feedback. Hands-on feedback so that I can further improve the tool. Thanks!

bob
  • 236