Как настроить Outlook для отправки автоответчика каждый день в определенное время дня?

8

Я хотел бы защитить себя от необоснованных требований в течение моего рабочего дня. Один из них говорит людям, что я не буду отвечать на письма до 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/

Авик
источник
1
Какая версия MS Office у вас есть?
avirk 13.12.12
последний, 2010
Avik
Проверьте эту статью it.cornell.edu/services/outlook/howto/email/out-of-office.cfm
avirk 13.12.12
@avirk «временной диапазон» в этой статье относится к дате и времени, а не ко времени для каждого дня. До сих пор я отыскивал Google лучше всего, думаю, для этого может понадобиться скрипт.
Avik
Только что получил «значок популярного вопроса», но ни одного возражения :(
Авик

Ответы:

8

Где ваше имя в поле Кому.

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/

нитон
источник
1
Можете ли вы объяснить немного, как это будет работать?
avirk 14.12.12
Спасибо, я отмечу ответ правильный, когда я подтверждаю, что он работает :)
Avik