Comment configurer Outlook pour envoyer une réponse automatique à une certaine heure de la journée chaque jour?

Je voudrais me protéger contre des demandes déraisonnables pendant ma journée de travail. L'un d'eux dit aux gens que je ne répondrai à aucun e-mail avant 15 heures.

Je voudrais mettre en place une règle dans Outlook qui répond à tous les e-mails avant 15 heures avec un message spécifique. J'aimerais que cela se fasse tous les jours, peu importe la date.

Comment configurer cela?

J'ai parcouru Google du mieux possible jusqu'à présent, et je pense, sur la base d'un forum Exchange, qu'un script pourrait être nécessaire pour cela. Mais ce que j'ai trouvé jusqu'à présent n'était que des scripts côté serveur. J'ai besoin de quelque chose sur ma propre machine.

références: 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/

Où se trouve votre nom dans la zone À.

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

Modifier: collez le code dans l'éditeur VBA. Le code sera disponible dans "exécuter un script".

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