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

25796
Avik

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

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

1 ответ на вопрос

8
niton

Where your name is in the To box.

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

Edit: Paste the code into the VBA editor. The code will be availabel in "run a script".

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

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

Похожие вопросы