Wie richte ich Outlook so ein, dass täglich zu einer bestimmten Tageszeit eine automatische Antwort gesendet wird?

8

Ich möchte mich während meines Arbeitstages vor unangemessenen Anforderungen schützen. Eine davon ist, den Leuten zu sagen, dass ich vor 15 Uhr nicht auf E-Mails antworten werde.

Ich möchte in Outlook eine Regel einrichten, die auf alle E-Mails vor 15 Uhr mit einer bestimmten Nachricht antwortet. Ich möchte, dass dies jeden Tag gemacht wird, egal zu welchem ​​Datum.

Wie richte ich das ein?

Ich habe Google bisher so gut wie möglich durchsucht und denke, basierend auf einem Exchange-Forum, dass hierfür möglicherweise ein Skript erforderlich ist. Bisher habe ich jedoch nur serverseitige Skripte gefunden. Ich brauche etwas auf meiner eigenen Maschine.

Referenzen: 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/

Avik
quelle
1
Welche Version von MS Office haben Sie?
Avirk
spätestens 2010
Avik
Lesen
avirk
@avirk "Zeitbereich" in diesem Artikel bezieht sich auf ein Datum und eine Uhrzeit, nicht auf eine Uhrzeit pro Tag. Ich habe Google bisher so gut wie möglich durchsucht. Ich denke, dafür wird möglicherweise ein Skript benötigt.
Avik
Ich habe gerade das "beliebte Frage-Abzeichen" erhalten, aber keine einzige Gegenstimme :(
Avik

Antworten:

8

Wo sich Ihr Name im Feld An befindet.

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

Bearbeiten: Fügen Sie den Code in den VBA-Editor ein. Der Code wird in "Skript ausführen" verfügbar sein.

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

Niton
quelle
1
Können Sie ein wenig erklären, wie es funktionieren wird?
Avirk
Vielen Dank, ich werde die Antwort richtig markieren, wenn ich bestätige, dass es funktioniert :)
Avik