Μετάβαση στο κύριο περιεχόμενο

Πώς να απαντήσετε αυτόματα σε μορφή HTML στο Outlook;

Στο Microsoft Outlook, μπορούμε να διαμορφώσουμε ρυθμίσεις και να συνθέσουμε όλα τα νέα μηνύματα σε μορφή HTML, αλλά δεν μπορούμε να απαντήσουμε μηνύματα σε μορφή HTMT αυτόματα, επειδή απαντά πάντα στην αρχική μορφή των ληφθέντων μηνυμάτων. Αυτό το άρθρο θα σας παρουσιάσει κόλπα σχετικά με την αυτόματη απάντηση σε μορφή HTML στο Outlook.

Απαντήστε σε μορφή HTML μη αυτόματα με μορφοποίηση
Απαντήστε σε μορφή HTML αυτόματα με VBA
Να απαντάτε πάντα σε μορφή HTML αυτόματα με το Kutools για Outlook


Απαντήστε σε μορφή HTML μη αυτόματα με μορφοποίηση

Είναι εύκολο να μετατρέψετε τις μορφές απλού κειμένου ή εμπλουτισμένου κειμένου σε μορφή HTML όταν απαντάτε σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook.

1: Επιλέξτε το μήνυμα email που θα απαντήσετε αργότερα.

2: Κάντε κλικ στο απάντηση κουμπί για το Αρχική καρτέλα (ή στη γραμμή εργαλείων στο Outlook 2007) για να απαντήσετε στο επιλεγμένο μήνυμα email.

3: Κάντε κλικ στο HTML σχετικά με την Μορφοποίηση κειμένου καρτέλα (ή Επιλογές καρτέλα στο Outlook 2007).

Στη συνέχεια, το μήνυμα απάντησης μετατρέπεται σε μορφή HTML αμέσως.

4: Συνθέστε αυτό το μήνυμα απάντησης και κάντε κλικ στο Αποστολή κουμπί.


Απαντήστε σε μορφή HTML αυτόματα με VBA

Η ακόλουθη μέθοδος θα σας βοηθήσει να απαντήσετε αυτόματα σε όλα τα μηνύματα email σε μορφή HTML στο Microsoft Outlook.

1: Επιλέξτε το μήνυμα email που θα απαντήσετε σε μορφή HTML.

2: Πατήστε το άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

3: Κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης.

4: Επικολλήστε τον ακόλουθο κώδικα στο νέο παράθυρο λειτουργικής μονάδας.

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: Εάν θέλετε να απαντήσετε αυτό το επιλεγμένο μήνυμα μόνο σε μορφή HTML, πατήστε το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, εμφανίζεται το παράθυρο του μηνύματος απάντησης, συνθέστε το και πατήστε το Αποστολή κουμπί για να στείλετε το email.

Συμβουλές::
Αν θέλετε να απαντάτε πάντα ή συχνά σε μηνύματα ηλεκτρονικού ταχυδρομείου σε μορφή html στο Outlook, συνεχίστε τη διαμόρφωση ως εξής.
1) Κάντε κλικ στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης κουμπί στην κορδέλα του Outlook και, στη συνέχεια, κάντε κλικ στο Περισσότερες εντολές από το drop-down.

2) Στο Επιλογές του Outlook πλαίσιο διαλόγου, πρέπει:
2.1) Επιλέξτε Μακροεντολές στο Επιλέξτε εντολές από αναπτυσσόμενη λίστα;
2.2) Επιλέξτε Project1.AlwaysReplyInHTML στο πλαίσιο εντολών.
2.3) Κάντε κλικ στο Πρόσθεση κουμπί (μπορείτε να δείτε ότι η επιλεγμένη μακροεντολή προστίθεται στο δεξί πλαίσιο).
2.4) Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

3) Τώρα η μακροεντολή προστίθεται στη γραμμή εργαλείων γρήγορης πρόσβασης και εμφανίζεται ως  εικόνισμα. Κάθε φορά που πρέπει να απαντήσετε ένα email σε μορφή html, επιλέξτε το email και κάντε κλικ σε αυτό το κουμπί για να το ενεργοποιήσετε.


Να απαντάτε πάντα σε μορφή HTML αυτόματα με το Kutools για Outlook

Kutools για το Outlook : με περισσότερα από 100 εύχρηστα πρόσθετα του Outlook, δωρεάν να δοκιμάσετε χωρίς περιορισμό σε 60 ημέρες.

Εδώ σας προτείνω ένα εύχρηστο βοηθητικό πρόγραμμα - Διορθώθηκε η μορφοποίηση απάντησης of Kutools για το Outlook. Με αυτό το βοηθητικό πρόγραμμα, μπορείτε εύκολα να καθορίσετε μια μορφοποίηση απάντησης όπως HTML, απλό κείμενο και RTF και να διορθώσετε τη συγκεκριμένη μορφοποίηση ως μορφή απάντησης για όλα τα μελλοντικά μηνύματα ηλεκτρονικού ταχυδρομείου απάντησης.

1. κλικ Kutools > Διορθώθηκε η μορφοποίηση > Διορθώθηκε η μορφοποίηση απάντησης > Ορισμός μορφοποίησης απάντησης. Δείτε το στιγμιότυπο οθόνης:

2. Στο Ορισμός μορφοποίησης απάντησης πλαίσιο διαλόγου, επιλέξτε το HTML και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί.

3. Τώρα κάντε κλικ Διορθώθηκε η μορφοποίηση > Διορθώθηκε η μορφοποίηση απάντησηςΕνεργοποίηση μορφοποίησης σταθερής απάντησης κάτω από την καρτέλα Kutools για να ενεργοποιήσετε το βοηθητικό πρόγραμμα.

Από τώρα και στο εξής, το Outlook απαντά πάντα σε email σε μορφή HTML.

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (25)
No ratings yet. Be the first to rate!
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?
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
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
This comment was minimized by the moderator on the site
Thanks I'll give that a go. Have a nice day.
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... ;)
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!
This comment was minimized by the moderator on the site
Hi, you should save them respectively as three different modules. :)
This comment was minimized by the moderator on the site
Thank you!
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!
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?
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!
This comment was minimized by the moderator on the site
Thanks a lot for this macro!
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?
This comment was minimized by the moderator on the site
Same thing for me. Did you get any help?
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.
This comment was minimized by the moderator on the site
Thanks, it worked. You are da man!
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?
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations