Wie kann man in Outlook automatisch auf eingehende Nachrichten antworten, während man als „beschäftigt“ markiert ist?
Manchmal möchten Sie automatisch auf eingehende Nachrichten in Outlook antworten, während Sie über einen bestimmten Zeitraum beschäftigt sind. Outlook bietet dafür zwar keine integrierte Funktion – doch ich stelle Ihnen hier einen VBA-Code zur Verfügung, der diese Aufgabe zuverlässig übernimmt.
Automatische Antwort, wenn Sie mit einem VBA-Code beschäftigt sind
Automatische Antwort, wenn Sie mit einem VBA-Code beschäftigt sind
Hier ist ein VBA-Code, der die automatische Antwort aktiviert, solange sich Termine in Ihrem Outlook-Kalender befinden – und sie deaktiviert, sobald der Kalender leer ist.
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Bereich Project1 auf ThisOutlookSession, und fügen Sie den folgenden Code in das Skript ein.
VBA: Automatische Antwort, während Sie im Kalender beschäftigt sind
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. Speichern Sie diesen Code und starten Sie Outlook neu. Ab sofort wird automatisch eine Antwort versendet, sobald während Ihres Terminzeitraums E-Mails eingehen.
Tipps:
(1) Im Code können Sie den Antworttext ganz nach Bedarf anpassen – zum Beispiel in diesem Skript:„Es tut mir leid, dass ich Ihnen momentan nicht antworten kann. Ich werde Ihnen später schreiben." & _
(2) Dieses VBA-Makro kann automatisch auf eingehende Nachrichten im Posteingang der Standarddatendatei antworten.
KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
- Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
- Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Stichwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!
Beste Office-Produktivitätswerkzeuge
Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!
📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …
📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …
📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …
🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...
👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...
👩🏼🤝👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!
🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins
Stark empfohlen: Kutools for Office (5-in-1)
Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!
- ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
- 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
- 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint