Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie antworte ich automatisch mit der ursprünglichen E-Mail-Nachricht in Outlook?

Wenn wir eine Regel erstellen, mit der die E-Mail automatisch abwesend ist, wird die ursprüngliche Nachricht im Text normalerweise nicht berücksichtigt. Wie können Sie die E-Mails mit der ursprünglichen Nachricht in Outlook automatisch verlassen? In diesem Artikel werde ich über einen VBA-Code sprechen, damit Sie diesen Job in Outlook so schnell wie möglich beenden können.

Automatische Antwort von E-Mails mit Originalnachricht in Outlook mit VBA-Code


Automatische Antwort von E-Mails mit Originalnachricht in Outlook mit VBA-Code

Die normale Outlook-Regel kann Ihnen beim Umgang mit Jobs nicht helfen, aber mit dem folgenden VBA-Code können Sie dies schnell und einfach beenden. Bitte machen Sie Folgendes:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick ThisOutlookSession von der Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: E-Mails mit Originalnachricht automatisch beantworten:

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. Wenn Sie jetzt E-Mails erhalten, sendet Outlook eine automatische Antwort mit der ursprünglichen Nachricht, wie im folgenden Screenshot gezeigt:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.