Come configuro Outlook per inviare ogni giorno una risposta automatica durante una determinata ora del giorno?

Vorrei proteggermi da richieste irragionevoli durante la mia giornata di lavoro. Uno di questi sta dicendo alla gente che non risponderò alle e-mail prima delle 15:00.

Vorrei impostare una regola in Outlook che risponda a tutte le e-mail prima delle 15:00 con un messaggio specifico. Mi piacerebbe che questo fosse fatto ogni giorno, indipendentemente dalla data.

Come lo installo?

Finora ho cercato su Google meglio di me e penso, sulla base di un forum di Exchange, che uno script potrebbe essere necessario per questo. Ma quello che ho trovato finora erano solo gli script lato server. Ho bisogno di qualcosa sulla mia macchina.

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

microsoft-outlook microsoft-outlook-2010 auto-reply

— avik
fonte

Quale versione di MS Office hai?

— avirk,

l'ultimo, 2010

— Avik,

Dai

— avirk

@avirk "intervallo di tempo" in quell'articolo si riferisce a una data e ora, non a un'ora per ogni giorno. Finora ho cercato su Google meglio che posso, penso che potrebbe essere necessario uno script per questo.

— Avik,

Ho appena ricevuto il "badge della domanda popolare" Ma non un singolo voto :(

— Avik

Dove si trova il tuo nome nella casella A.

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

Modifica: incolla il codice nell'editor VBA. Il codice sarà disponibile in "esegui uno script".

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

— Niton
fonte

Puoi spiegarci un po 'come funzionerà?

— avirk,

Grazie, segnerò la risposta corretta quando confermo che funziona :)

— Avik