Як налаштувати Outlook, щоб щодня надсилати автоматичну відповідь протягом певної години дня?

Я хотів би захистити себе від необгрунтованих вимог протягом робочого дня. Один із них - це сказати людям, що я не відповім на жодні листи до 15:00.

Я хотів би встановити правило в Outlook, яке відповідає на всі електронні листи до 15:00 конкретним повідомленням. Я хотів би, щоб це робилося щодня, незалежно від дати.

Як це встановити?

Я до сих пір обмірковував Google, і можу вважати, що на базі форуму Exchange, для цього може знадобитися сценарій. Але я знайшов поки що лише серверні скрипти. Мені потрібно щось на власній машині.

посилання: 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/

Там, де ваше ім’я, у полі Ко.

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

Правка: Вставте код у редактор VBA. Код буде доступний в "запустити сценарій".

Дивіться також http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/