¿Cómo configuro Outlook para enviar una respuesta automática durante una determinada hora del día todos los días?

Me gustaría protegerme de demandas irracionales durante mi jornada laboral. Una de ellas es decirle a la gente que no responderé a ningún correo electrónico antes de las 3 p.m.

Me gustaría configurar una regla en Outlook que responda a todos los correos electrónicos antes de las 3 p.m. con un mensaje específico. Me gustaría que esto se haga todos los días, sin importar la fecha.

¿Cómo configuro esto?

Hasta ahora he buscado en Google lo mejor que puedo, y creo que, según un foro de Exchange, podría ser necesario un script para esto. Pero lo que encontré hasta ahora eran solo scripts del lado del servidor. Necesito algo en mi propia máquina.

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

Donde está su nombre en el cuadro Para.

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

Editar: pegue el código en el editor de VBA. El código estará disponible en "ejecutar un script".

Ver también http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/