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

25870
Avik

Ich möchte mich während meines Arbeitstages vor unvernünftigen Anforderungen schützen. Eine davon sagt den Leuten, dass ich vor 15 Uhr keine E-Mails beantworten werde.

Ich möchte in Outlook eine Regel einrichten, die alle E-Mails vor 15 Uhr mit einer bestimmten Nachricht beantwortet. Ich möchte, dass dies jeden Tag gemacht wird, unabhängig vom Datum.

Wie richte ich das ein?

Ich habe Google so gut wie möglich durchsucht, und ich denke, basierend auf einem Exchange-Forum, dass dafür möglicherweise ein Skript benötigt wird. Was ich bisher gefunden habe, waren nur serverseitige Skripte. 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/

8
Welche Version von MS Office haben Sie? avirk vor 11 Jahren 1
das späteste 2010 Avik vor 11 Jahren 0
In diesem Artikel finden Sie http://www.it.cornell.edu/services/outlook/howto/email/out-of-office.cfm avirk vor 11 Jahren 0
@avirk "Zeitbereich" in diesem Artikel bezieht sich auf Datum und Uhrzeit, nicht auf einen Tag für jeden Tag. Ich habe google so gut wie möglich durchforstet, ich denke, dafür ist möglicherweise ein Skript erforderlich. Avik vor 11 Jahren 0
Habe gerade das "beliebte Frage-Abzeichen" bekommen, aber keine einzige positive Bewertung :( Avik vor 10 Jahren 0

1 Antwort auf die Frage

8
niton

Wo ist Ihr Name in der An-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

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/

Kannst du ein bisschen erklären, wie es funktionieren wird? avirk vor 11 Jahren 1
Danke, ich werde die Antwort als richtig markieren, wenn ich bestätige, dass es funktioniert :) Avik vor 11 Jahren 0

Verwandte Probleme