Jak skonfigurować program Outlook, aby codziennie wysyłał automatyczną odpowiedź o określonej godzinie dziennie?


8

Chciałbym uchronić się przed nieuzasadnionymi wymaganiami w ciągu dnia pracy. Jednym z nich jest mówienie ludziom, że nie będę odpowiadać na żadne e-maile przed 15:00.

Chciałbym ustawić regułę w programie Outlook, która będzie odpowiadać na wszystkie wiadomości e-mail przed godziną 15:00 określoną wiadomością. Chciałbym, aby to robić codziennie, bez względu na datę.

Jak to skonfigurować?

Do tej pory przeszukiwałem Google najlepiej, jak potrafię, i sądzę, że na podstawie forum Exchange może być potrzebny skrypt. Ale do tej pory znalazłem tylko skrypty po stronie serwera. Potrzebuję czegoś na własnej maszynie.

referencje: 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
Którą wersję pakietu MS Office posiadasz?
avirk

najpóźniej, 2010
Avik,


@avirk „zakres czasu” w tym artykule odnosi się do daty i godziny, a nie godziny na każdy dzień. Do tej pory przeglądałem google najlepiej, jak potrafię, myślę, że do tego może być potrzebny skrypt.
Avik,

Właśnie dostałem „popularną odznakę pytania”, ale ani jednego głosowania :(
Avik

Odpowiedzi:


8

Gdzie twoje imię znajduje się w polu Do.

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

Edycja: Wklej kod do edytora VBA. Kod będzie dostępny w „Run a script”.

Zobacz także http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/


1
Czy możesz wyjaśnić trochę, jak to zadziała?
avirk

Dziękuję,
zaznaczę
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.