Wenn Sie die Outlook-Regel zum automatischen Antworten verwenden, werden Sie feststellen, dass die automatische Antwort die ursprüngliche Nachricht nicht in den Text aufnehmen kann. In diesem Artikel wird eine einfache Methode vorgestellt, mit der die ursprüngliche E-Mail und der vordefinierte Text über Outlook VBA in den Text der automatischen Antwort eingefügt werden können.
In Outlook können Benutzer mit den Exchange-Konten automatische Antworten direkt über die Schaltfläche "Automatische Antworten" auf der Registerkarte "Info" im Menü "Datei" festlegen, wie im folgenden Screenshot dargestellt:
Wenn Sie jedoch das Internet-E-Mail-Konto verwenden, unabhängig von IMAP oder POP3, ist die Schaltfläche "Automatische Antworten" nicht verfügbar. Die einzige Möglichkeit, eine automatische Antwort zu aktivieren, besteht darin, eine Regel für die automatische Antwort zu erstellen, die wie folgt dargestellt ist:
Diese Art von automatischer Antwort per Outlook-Regel kann die Originalnachricht jedoch nicht automatisch einfügen. In der Praxis möchten die meisten Nutzer die Original-E-Mail im Nachrichtentext der automatischen Antwort anhängen. In solchen Fällen kann eine automatische Antwortregel dies nicht realisieren. Daher müssen wir Outlook-VBA-Code verwenden. Wenn Sie interessiert sind, lesen Sie weiter, um die detaillierten Schritte und den VBA-Code zu erhalten.
Automatische Antwort mit der Original-E-Mail und einem vordefinierten Text
- Zunächst sollten Sie zur Registerkarte "Entwickler" wechseln und auf die Schaltfläche "Visual Basic" klicken.
- Dann müssen Sie im neuen Fenster "Microsoft Visual Basic für Applikationen" auf der linken Seite auf das Projekt "ThisOutlookSession" doppelklicken.
- Danach wird das Projekt „ThisOutlookSession“ geöffnet. Jetzt sollten Sie die folgenden VBA-Codes kopieren und einfügen.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim olReply As MailItem
If Item.Class = olMail Then
Set olReply = Item.Reply
Else
Exit Sub
End If
With olReply
'Type Your Own Auto Reply
'Change "John Smith" to Your Own Name
.Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
.Send
End With
End Sub
- Als nächstes sollten Sie diesen Code wie gewohnt signieren und die Makroeinstellungen weiter ändern, um nur digital signierte Makros zuzulassen.
- Nachdem Sie die obigen Schritte ausgeführt haben, sendet Outlook automatisch eine Antwort mit den ursprünglichen Nachrichteninformationen im Text. Es würde wie im Bild unten aussehen:
Hinweis: Unabhängig von der Regel für die automatische Antwort mithilfe der Regel oder der automatischen Antwort mithilfe von VBA-Codes können beide nur dann Auswirkungen haben, wenn Outlook ausgeführt wird.
Adressieren Sie Outlook-Datenfehler
Ohne Zweifel kann Outlook nicht gegen Fehler immun sein. Daher ist es für reguläre Outlook-Benutzer wichtig, einige Tricks zu erhalten, um sie anzusprechen. Offensichtlich der beste Weg, um damit umzugehen Outlook-Datenschaden erstellt regelmäßig ein Backup. Solange Sie über ein effektives Backup verfügen, können Sie sich auch bei einem Absturz von Outlook problemlos ausruhen. Außerhalb der Versicherung sollten Sie natürlich auch ein leistungsstarkes Reparaturwerkzeug bereithalten.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Reparieren Sie die Beschädigung der SQL-MDF-Datei und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX