Wie kann man in Outlook automatisch mit der ursprünglichen E-Mail-Nachricht antworten?
Normalerweise erstellen wir eine Regel, um E-Mails automatisch außerhalb des Büros zu beantworten, aber die ursprüngliche Nachricht im Text wird nicht einbezogen. Wie könnten Sie E-Mails mit der Originalnachricht in Outlook automatisch beantworten? In diesem Artikel werde ich über einen VBA-Code sprechen, der Ihnen hilft, diese Aufgabe so schnell wie möglich in Outlook zu erledigen.
E-Mails mit Originalnachricht in Outlook mit VBA-Code automatisch beantworten
E-Mails mit Originalnachricht in Outlook mit VBA-Code automatisch beantworten
Die normale Outlook-Regel kann Ihnen nicht bei dieser Aufgabe helfen, aber mit dem folgenden VBA-Code können Sie dies schnell und einfach erledigen. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications doppelt auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.
VBA-Code: Automatische Antwort auf E-Mails mit Originalnachricht:
Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
.HTMLBody = xStr & .HTMLBody
.Send
End With
End Sub
3. Speichern und schließen Sie dann das Codefenster, schließen Sie Outlook oder starten Sie es neu, damit der VBA-Code wirksam wird. Jetzt wird Outlook, wenn Sie E-Mails erhalten, automatisch eine Antwort mit der Originalnachricht senden, wie im folgenden Screenshot gezeigt:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!
Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...
📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...
📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...
👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar
Dringend empfohlen: Kutools für Office (5-in-1)
Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!
- ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
- 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
- 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint