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

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/

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/