Note: The other languages of the website are Google-translated. Back to English
English English

Comment répondre automatiquement au format HTML dans Outlook?

Dans Microsoft Outlook, nous pouvons configurer les paramètres et composer tous les nouveaux messages au format HTML, mais nous ne pouvons pas répondre automatiquement aux messages au format HTMT, car il répond toujours au format initial des messages reçus. Cet article vous présentera des astuces pour répondre automatiquement au format HTML dans Outlook.

Répondre manuellement au format HTML avec mise en forme
Répondre automatiquement au format HTML avec VBA
Répondez toujours automatiquement au format HTML avec Kutools for Outlook


Répondre manuellement au format HTML avec mise en forme

Il est facile de convertir les formats de texte brut ou de texte enrichi au format HTML lorsque vous répondez à un message électronique dans Outlook.

1: Sélectionnez le message électronique auquel vous répondrez plus tard.

2: Cliquez sur le Répondre bouton sur la Accueil (ou sur la barre d'outils dans Outlook 2007) pour répondre au message électronique sélectionné.

3: Cliquez sur le HTML sur le Format du texte onglet (ou Options onglet dans Outlook 2007).

Ensuite, le message de réponse est immédiatement converti au format HTML.

4: Composez ce message de réponse et cliquez sur le bouton Envoyer .


Répondre automatiquement au format HTML avec VBA

La méthode suivante vous aidera à répondre automatiquement à tous les messages électroniques au format HTML dans Microsoft Outlook.

1: Sélectionnez l'e-mail auquel vous répondrez au format HTML.

2: Appuyez sur le autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3: Cliquez sur le insérer > Module.

4: Collez le code suivant dans la nouvelle fenêtre de module.

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: Si vous souhaitez répondre uniquement à ce message sélectionné au format html, appuyez sur le bouton F5 clé pour exécuter le code. Ensuite, la fenêtre du message de réponse apparaît, veuillez le composer et appuyez sur le bouton Envoyer bouton pour envoyer l'e-mail.

Conseils::
Si vous souhaitez toujours ou fréquemment répondre aux e-mails au format html à l'avenir dans Outlook, veuillez poursuivre la configuration comme suit.
1) Cliquez sur le Personnaliser la barre d'outils Accès rapide bouton dans le ruban Outlook, puis cliquez sur Plus de commandes depuis le menu déroulant.

2) Dans le Options d'Outlook boîte de dialogue, vous devez:
2.1) Sélectionnez Macros dans le Choisissez les commandes de la liste déroulante;
2.2) Sélectionnez Projet1.ToujoursRépondreEnHTML dans la boîte de commande;
2.3) Cliquez sur le Ajouter bouton (vous pouvez voir que la macro sélectionnée est ajoutée dans la case de droite);
2.4) Cliquez sur le OK bouton. Voir la capture d'écran:

3) La macro est maintenant ajoutée dans la barre d'outils d'accès rapide et affichée sous forme de  icône. Chaque fois que vous devez répondre à un e-mail au format html, veuillez sélectionner l'e-mail et cliquez sur ce bouton pour l'activer.


Répondez toujours automatiquement au format HTML avec Kutools for Outlook

Kutools pour Outlook : avec plus de 100 compléments Outlook pratiques, gratuit pour essayer sans limitation dans 60 jours.

Ici, je vous recommande un utilitaire pratique - Formatage des réponses fixe of Kutools pour Outlook. Avec cet utilitaire, vous pouvez facilement spécifier un format de réponse tel que HTML, texte brut et RTF, et fixer le formatage spécifié comme format de réponse pour tous les futurs e-mails de réponse.

1. Cliquez Kutools > Formatage fixe > Formatage des réponses fixe > Définir le formatage des réponses. Voir la capture d'écran:

2. dans le Définir le formatage des réponses boîte de dialogue, sélectionnez le HTML option, puis cliquez sur le OK .

3. Cliquez maintenant sur Formatage fixe > Formatage des réponses fixeActiver le formatage des réponses fixes sous l'onglet Kutools pour activer l'utilitaire.

Désormais, Outlook répond toujours à un e-mail au format HTML.

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (25)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
VOUS ÊTES UN MAGICIEN !!! :lol: Le script VBA fonctionne parfaitement, je n'ai plus besoin de supprimer ma signature, de la convertir manuellement en HTML puis de réinsérer ma signature sur CHAQUE message que j'envoie !
Ce commentaire a été minimisé par le modérateur sur le site
T'es un copain de génie !!! Merci... J'ai une autre question. Savez-vous comment supprimer les marqueurs de paragraphe lorsqu'ils apparaissent automatiquement lors de la rédaction d'une réponse dans Outlook. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Superbe, héros ! Cela fonctionne vraiment, économise du temps et de l'énergie.
Ce commentaire a été minimisé par le modérateur sur le site
Je l'utilise et l'aime depuis un mois (merci !), mais aujourd'hui, il s'est cassé. D'autres recherches en ligne me disent que c'est peut-être une mise à jour d'Outlook qui l'a cassé - des idées ?
Ce commentaire a été minimisé par le modérateur sur le site
Cela semble fonctionner pour l'expéditeur dont j'ai reçu l'e-mail txt, mais pas pour les autres expéditeurs. Dois-je réexécuter cela pour chaque expéditeur ? Pour votre information, Outlook 365 pour un compte de messagerie Exchange sur une machine exécutant Windows 7.
Ce commentaire a été minimisé par le modérateur sur le site
excellent travail mais cela me donne une erreur : Set oMsgReply = oMsg.Reply could't sed msg
Ce commentaire a été minimisé par le modérateur sur le site
Bon travail. mais en fait j'ai une petite erreur qui pourrait être en conflit avec l'option en cours d'exécution : Set oMsgReply = oMsg.Reply pouvez-vous me dire si vous rencontrez une telle erreur liée à la ligne de code ci-dessus. rgds
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cela, mais j'ai des problèmes. J'ai copié/collé et le numéro a été mis au-dessus du texte quand je l'ai collé et j'ai reçu le message d'erreur - "erreur de compilation : procédure extérieure invalide" Ensuite, j'ai essayé d'effacer simplement les chiffres et de quitter le test et j'ai obtenu : Erreur d'exécution - n'a pas pu envoyer de message. - J'ai ensuite cliqué sur Debug et j'ai eu la même erreur que les autres : Set oMsgReply = oMsg.Reply
Ce commentaire a été minimisé par le modérateur sur le site
N'ouvrez pas l'e-mail, mettez-le uniquement en surbrillance dans Outlook. Alt + F11 insérer le module F5 Le nouvel e-mail doit s'ouvrir au format HTML pour répondre
Ce commentaire a été minimisé par le modérateur sur le site
Merci, ça a marché. T'es un mec !
Ce commentaire a été minimisé par le modérateur sur le site
S'il vous plaît, connaissez-vous les touches 'Alt F11' et 'F5' appropriées lorsque vous utilisez Outlook 2016 sur un Mac ?
C'est certainement une omission gênante de Microsoft. Merci beaucoup. J'espère que vous pouvez aider.
Ce commentaire a été minimisé par le modérateur sur le site
cela ne change que l'e-mail que j'ai sélectionné. comment le changez-vous pour tous les e-mails ?
Ce commentaire a été minimisé par le modérateur sur le site
Même chose pour moi. Avez-vous reçu de l'aide ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour cette macro !
Ce commentaire a été minimisé par le modérateur sur le site
J'ai suivi toutes les étapes répertoriées, mais lorsque j'appuie sur F5 pour exécuter le module, je reçois un message d'erreur indiquant que les macros de ce projet ont été désactivées. J'ai même essayé d'aller dans les paramètres d'Outlook et de dire à Outlook d'activer toutes les macros. Toute aide serait grandement appréciée!
Ce commentaire a été minimisé par le modérateur sur le site
L'exécution de la macro fonctionne pour une instance, mais comment la répliquer pour qu'elle se produise sur chaque instance ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Cela fonctionne très bien, merci. Mais... ça ne répond pas à tout. Seul l'expéditeur de l'e-mail reçu est ajouté à la réponse. Que dois-je changer dans le code pour qu'il fasse "Répondre à tous" au lieu de "Répondre" ?


Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

quant à répondre à tout le monde - c'est très simple - il suffit de changer la 31ème ligne de code :

Set oMsgReply = oMsg.Reply --> changer "oMsg.ReplyAll" ou changer "oMsg.Forward"

Et pour postuler à "tous les e-mails", procédez comme suit :
Au lieu de créer des boutons en accès rapide, créez de nouveaux boutons directement dans le ruban (Personnaliser le ruban), créez-y un "Personnalisé" ("Nouveau groupe") et créez des boutons à partir de macros (première macro pour "répondre à tous", deuxième macro pour "avant").

Et le groupe "Répondre" d'origine peut être supprimé du ruban ;)

Quoi qu'il en soit, extendoffice.com est un super site à partir duquel je puise parfois des données - merci beaucoup... ;)
Ce commentaire a été minimisé par le modérateur sur le site
C'est formidable et résout une frustration à long terme avec les perspectives ! En tant que personne non expérimentée avec le codage VBA, pourrais-je obtenir un peu plus de conseils sur la façon de configurer la fonctionnalité de réponse et de transfert. J'ai le 'replyinHTML' qui fonctionne (avec un bouton de ruban personnalisé pour cela) mais je ne sais pas comment faire fonctionner les autres options. Dois-je créer un nouveau projet ou un nouveau module dans le projet existant avec le code modifié à la ligne 31 ?
Toute aide appréciée - merci!
Ce commentaire a été minimisé par le modérateur sur le site
Salut, vous devez les enregistrer respectivement en trois modules différents. :)
Ce commentaire a été minimisé par le modérateur sur le site
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
J'utilise cette macro depuis quelques années maintenant. Malheureusement, il a commencé à changer le jeu de caractères de l'e-mail de réponse en un jeu de caractères inconnu, par exemple "整瑸栯浴㭬挠慨獲瑥甽晴㠭㸢਍䴼呅⁁䅎䕍∽敇" qui n'est pas traduisible. Quelqu'un a-t-il déjà rencontré ce problème et si oui avez-vous trouvé une solution ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut,

Veuillez essayer le code ci-dessous :
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
Ce commentaire a été minimisé par le modérateur sur le site
Merci je vais essayer. Passez une bonne journée.
Ce commentaire a été minimisé par le modérateur sur le 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
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés