Direkt zum Inhalt

Wie antworte ich in Outlook automatisch im HTML-Format?

In Microsoft Outlook können wir Einstellungen konfigurieren und alle neuen Nachrichten im HTML-Format verfassen, Nachrichten im HTMT-Format jedoch nicht automatisch beantworten, da sie immer im ursprünglichen Format der empfangenen Nachrichten antworten. In diesem Artikel werden Tricks zum automatischen Antworten im HTML-Format in Outlook vorgestellt.

Antworten Sie manuell im HTML-Format mit Formatierung
Antworten Sie automatisch im HTML-Format mit VBA
Antworten Sie immer automatisch im HTML-Format mit Kutools for Outlook

Antworten Sie manuell im HTML-Format mit Formatierung

Es ist einfach, die Formate von Nur-Text oder Rich-Text in das HTML-Format zu konvertieren, wenn Sie eine E-Mail-Nachricht in Outlook beantworten.

1: Wählen Sie die E-Mail-Nachricht aus, die Sie später beantworten möchten.

2: Klicken Sie auf antworten Taste auf der Home Registerkarte (oder in der Symbolleiste in Outlook 2007), um die ausgewählte E-Mail-Nachricht zu beantworten.

3: Klicken Sie auf HTML auf die Text formatieren Registerkarte (oder Optionen Registerkarte in Outlook 2007).

Anschließend wird die antwortende Nachricht sofort in das HTML-Format konvertiert.

4: Verfassen Sie diese Antwortnachricht und klicken Sie auf Absenden .

Antworten Sie automatisch im HTML-Format mit VBA

Mit der folgenden Methode können Sie alle E-Mail-Nachrichten im HTML-Format in Microsoft Outlook automatisch beantworten.

1: Wählen Sie die E-Mail-Nachricht aus, die Sie im HTML-Format beantworten möchten.

2: Drücken Sie die Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

3: Klicken Sie auf Insert > Modul.

4: Fügen Sie den folgenden Code in das neue Modulfenster ein.

Sub AlwaysReplyInHTML()
Dim oSelection As Outlook.Selection
Dim oItem As Object
'Get the selected item
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oSelection = Application.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
MsgBox "Please select an item first!", vbCritical, "Reply in HTML"
Exit Sub
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
Case Else
MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", _
vbCritical, "Reply in HTML"
Exit Sub
End Select
    Dim oMsg As Outlook.MailItem
Dim oMsgReply As Outlook.MailItem
Dim bPlainText As Boolean
'Change the message format and reply
If oItem.Class = olMail Then
Set oMsg = oItem
If oMsg.BodyFormat = olFormatPlain Then
bPlainText = True
End If
oMsg.BodyFormat = olFormatHTML
Set oMsgReply = oMsg.Reply
If bIsPlainText = True Then
oMsg.BodyFormat = olFormatPlain
End If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox "No message item selected. Please select a message first.", _
vbCritical, "Reply in HTML"
Exit Sub
End If
'Cleanup
Set oMsgReply = Nothing
Set oMsg = Nothing
Set oItem = Nothing
Set oSelection = Nothing
End Sub

5: Wenn Sie diese ausgewählte Nachricht nur im HTML-Format beantworten möchten, drücken Sie bitte die Taste F5 Schlüssel zum Ausführen des Codes. Dann erscheint das Fenster für die Antwortnachricht. Bitte verfassen Sie es und drücken Sie die Taste Absenden Schaltfläche zum Senden der E-Mail.

Tipps::
Wenn Sie in Zukunft in Outlook immer oder häufig E-Mails im HTML-Format beantworten möchten, konfigurieren Sie diese wie folgt.
1) Klicken Sie auf Anpassen der Symbolleiste für den Schnellzugriff Klicken Sie in der Outlook-Multifunktionsleiste auf die Schaltfläche und klicken Sie dann auf Mehr Befehle aus der Dropdown-Liste.

2) In der Outlook-Optionen Dialogfeld müssen Sie:
2.1) Wählen Sie Makros der Wählen Sie Befehle aus Dropdown-Liste;
2.2) Wählen Sie Project1.AlwaysReplyInHTML im Befehlsfeld;
2.3) Klicken Sie auf Speichern Schaltfläche (Sie können sehen, dass das ausgewählte Makro im rechten Feld hinzugefügt wird);
2.4) Klicken Sie auf OK Taste. Siehe Screenshot:

3) Jetzt wird das Makro in der Symbolleiste für den Schnellzugriff hinzugefügt und als angezeigt  Symbol. Wenn Sie eine E-Mail im HTML-Format beantworten müssen, wählen Sie die E-Mail aus und klicken Sie auf diese Schaltfläche, um sie zu aktivieren.

Antworten Sie immer automatisch im HTML-Format mit Kutools for Outlook

Kutools for Outlook : mit mehr als 100 praktischen Outlook-Add-Ins, Kostenlos ohne Einschränkung in 60 Tagen zu versuchen.

Hier empfehle ich Ihnen ein praktisches Hilfsprogramm - Antwortformatierung behoben of Kutools for Outlook. Mit diesem Dienstprogramm können Sie einfach eine Antwortformatierung wie HTML, Nur-Text und RTF angeben und die angegebene Formatierung als Antwortformat für alle zukünftigen Antwort-E-Mails festlegen.

1 Klicken Kutoolen > Formatierung korrigiert > Antwortformatierung behoben > Antwortformatierung einstellen. Siehe Screenshot:

2. In dem Antwortformatierung einstellen Wählen Sie im Dialogfeld HTML Option und klicken Sie dann auf OK .

3. Klicken Sie jetzt bitte auf Formatierung korrigiert > Antwortformatierung behoben > Aktivieren Sie die Formatierung für feste Antworten Klicken Sie auf der Registerkarte Kutools auf, um das Dienstprogramm zu aktivieren.

Von nun an beantwortet Outlook eine E-Mail immer im HTML-Format.

Wenn Sie dieses Dienstprogramm kostenlos testen möchten, gehen Sie zu Laden Sie die Software kostenlos herunter Wenden Sie zuerst die Operation gemäß den obigen Schritten an.

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (25)
No ratings yet. Be the first to rate!
S. Hodgson
S. Hodgson
This comment was minimized by the moderator on the site
I've been using this macro for a couple years now. Unfortunately it has started to change the character set of the replied email to some unknown character set eg"整瑸栯浴㭬挠慨獲瑥甽晴㠭㸢਍䴼呅⁁䅎䕍∽敇" that is not translatable. Has anyone else come across this issue and if so were you able to find a fix?
Reply
0
0
Amanda Lee
Amanda Lee     S. Hodgson
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Sub AlwaysReplyInHTML()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem
'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select
If xItem.Class = olMail Then
  Set xMail = xItem
  Set xMailReply = xMail.Reply
  xMailReply.Display
  xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If
Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
Reply
Report
0
0
Vincent
Vincent     Amanda Lee
This comment was minimized by the moderator on the site
Merci beaucoup.
Je l’ai modifié un peu, et ça fonctionne de nouveau chez moi, sans la transformation en Chinois…

Sub AlwaysReplyInHTML_Kutools()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem

'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select

If xItem.Class = olMail Then
  Set xMail = xItem
  'Changer le format ici, afin que la réponse inclu notre signature en html…!
        xMail.BodyFormat = olFormatHTML
  
  Set xMailReply = xMail.Reply
  xMailReply.Display
  'xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If

Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
Reply
1
0
Simon Hodgson
Simon Hodgson     Amanda Lee
This comment was minimized by the moderator on the site
Thanks I'll give that a go. Have a nice day.
Reply
1
0
Stoupa
Stoupa
This comment was minimized by the moderator on the site
Hi,

as for answering everyone - it's very simple - just change the 31st line of code:

Set oMsgReply = oMsg.Reply --> change "oMsg.ReplyAll" or change "oMsg.Forward"

And to apply for "all emails" just do this:
Instead of creating buttons in quick access, create new buttons directly in the ribbon (Customize Ribbon), create a "Custom" ("New Group") there and create buttons from macros (first macro to "reply to all", second macro to "forward").

And the original "Reply" group can be removed from the ribbon ;)

Anyway, extendoffice.com is a great site from which I sometimes draw data - many thanks... ;)
Reply
0
0
Mark
Mark     Stoupa
This comment was minimized by the moderator on the site
This is great and solves a long term frustration with outlook! As someone not experienced with VBA coding could I get a little more advice on how to set up the replyall and forward functionality. I have the 'replyinHTML' working (with a custom ribbon button for it) but am not sure how the get the other options working. Should I be creating a new project or new module within the existing project with the modified code at line 31?
Any help appreciated - thanks!
Reply
0
0
Amanda Lee
Amanda Lee     Mark
This comment was minimized by the moderator on the site
Hi, you should save them respectively as three different modules. :)
Reply
Report
0
0
Mark
Mark     Amanda Lee
This comment was minimized by the moderator on the site
Thank you!
Reply
0
0
Jeroen
Jeroen
This comment was minimized by the moderator on the site
Hello,

This works very well, thanks. But... it does not reply to all. Only the sender of the email received is added to the reply. What should I change in the code so it does "Reply to all" instead of "Reply"?


Thanks!
Reply
0
0
kevin
kevin
This comment was minimized by the moderator on the site
Running the macro works for one instance, but how to replicate it to occur on every instance?
Reply
0
0
Natalie
Natalie
This comment was minimized by the moderator on the site
I followed all of the steps listed about but when I press F5 to run the Module I get an error message saying that the Macros for this project have been disabled. I even tried going into Outlooks settings and telling Outlook to enable all Macros. Any help would be greatly appreciated!
Reply
0
0
antoine
antoine
This comment was minimized by the moderator on the site
Thanks a lot for this macro!
Reply
0
0
charlotte
charlotte
This comment was minimized by the moderator on the site
this only changes the email i have selected. how do you change it for all emails?
Reply
0
0
Darrell
Darrell     charlotte
This comment was minimized by the moderator on the site
Same thing for me. Did you get any help?
Reply
0
0
Adrian Young
Adrian Young
This comment was minimized by the moderator on the site
Please, do you know the appropriate 'Alt F11' and 'F5' keys when using Outlook 2016 on a Mac?
This sure is an annoying omission by Microsoft. Many thanks. Hope you can help.
Reply
0
0
John
John
This comment was minimized by the moderator on the site
Thanks, it worked. You are da man!
Reply
0
0
Clair
Clair
This comment was minimized by the moderator on the site
Thank you for this, but i am having issues. I copy/pasted and the number were put above the text when i pasted it and I got the error message - "compile error: invalid outside procedure" Then i tried to just erase the numbers and leave the test and got : Run time Error - could not send message. - I then clicked Debug and got the same error as others: Set oMsgReply = oMsg.Reply Thoughts?
Reply
0
0
Anthony
Anthony     Clair
This comment was minimized by the moderator on the site
Dont open the email, only highlight it in outlook. Alt +F11 insert the module F5 New email should open as HTML to reply
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations