Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

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/

share|improve this question
1  
Which version of MS office do you have? –  avirk Dec 13 '12 at 11:46
    
the latest, 2010 –  Avik Dec 13 '12 at 12:15
    
Check out this article it.cornell.edu/services/outlook/howto/email/out-of-office.cfm –  avirk Dec 13 '12 at 12:50
    
@avirk "time range" in that article is referring to a date and time, not a time per for every day. I've scoured google best I can so far, I think a script might be needed for this. –  Avik Dec 13 '12 at 12:55
    
Just got the "popular question badge" But not a single upvote :( –  Avik Jul 10 '13 at 8:37

1 Answer 1

up vote 2 down vote accepted

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/

share|improve this answer
    
Can you explain little bit how will it get work? –  avirk Dec 14 '12 at 2:24
    
Thank you, I'll mark the answer correct when I confirm it works :) –  Avik Dec 16 '12 at 14:22

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.