Comment supprimer le brouillon en cours de modification sans supprimer l’e-mail d’origine dans Outlook ?

AuteurSiluvia Date de modification2024-09-13

Par défaut, Microsoft Outlook 2013 et les versions ultérieures ouvrent les réponses aux e-mails dans le volet de lecture. Imaginons que vous rédigiez une réponse, qu’Outlook l’enregistre automatiquement comme brouillon au bout de trois minutes, puis que vous décidiez finalement de ne pas l’envoyer et souhaitiez simplement supprimer ce brouillon. Certains utilisateurs cliquent alors sur le bouton **Supprimer** de l’onglet **Accueil** pour effacer le brouillon depuis le volet de lecture (voir la capture d’écran ci-dessous). Attention : cette action supprime non seulement le brouillon, mais aussi l’e-mail d’origine.

supprimer le brouillon actuellement modifié sans supprimer l’e-mail d’origine dans Outlook

Dans ce tutoriel, nous vous proposons deux codes VBA pour ajouter facilement deux commandes à la barre d’outils Accès rapide, vous permettant de supprimer instantanément le brouillon en cours de modification sans toucher à l’e-mail d’origine dans Outlook.

Supprimer le brouillon actuellement en cours de modification dans le volet de lecture
Supprimer le brouillon actuellement en cours de modification dans une nouvelle fenêtre

Supprimer le brouillon actuellement en cours de modification dans le volet de lecture

Si vous avez l’habitude de répondre aux e-mails depuis le volet de lecture, appliquez le code VBA suivant pour supprimer le brouillon en cours de modification sans toucher à l’e-mail d’origine dans Outlook.

1. Lancez Outlook, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur Projet1 > Objets Microsoft Outlook > ThisOutlookSession pour ouvrir la fenêtre ThisOutlookSession (Code). Copiez ensuite le code VBA suivant dans la fenêtre Code.

Code VBA : Supprimer le brouillon actuellement en cours de modification dans le volet de lecture

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Enregistrez le code, puis appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.

Vous avez désormais besoin d’un bouton pour lancer la macro.

4. Cliquez sur Personnaliser la barre d’outils Accès rapide > Autres commandes.

5. Dans la boîte de dialogue Options Outlook, procédez comme suit.

5,1) Dans la liste Choisir les commandes dansListe déroulante, sélectionnez Macros ;

5,2) Sélectionnez la macro que vous avez ajoutée à l’étape précédente ;

5,3) Cliquez sur le bouton Ajouterpour ajouter cette macro à la zone Personnaliser la barre d’outils Accès rapide.

6. Gardez le script sélectionné dans la zone de droite, puis cliquez sur le bouton Modifier. Dans la boîte de dialogue Modifier le bouton, attribuez un nouveau bouton au script, puis cliquez sur OK.

7. Cliquez sur OK dans la boîte de dialogue Options Outlook pour enregistrer les modifications.

Le bouton que vous avez spécifié à l’étape 6 est alors ajouté à la barre d’outils Accès rapide.

8. Redémarrez Outlook pour activer le code.

Désormais, lorsque vous répondez à un e-mail dans le volet de lecture, vous pouvez supprimer la réponse ainsi que le brouillon en cliquant sur le bouton de la barre d’outils Accès rapide.

Remarque : Après avoir exécuté le script, sélectionnez un autre e-mail dans la Liste des e-mails pour actualiser l’affichage des messages dans le Dossier actuel.

Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !

Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.

Cette fonctionnalité prend en charge :

Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées – personnalisées, précises et immédiatement utilisables.
Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

Réponses intelligentes aux e-mails
Contenu optimisé
Brouillons basés sur des mots-clés
Extension intelligente du contenu
Résumé d’e-mails
Traduction multilingue

N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!

a name="a2"> Supprimer le brouillon actuellement en cours de modification dans une nouvelle fenêtre

Si vous préférez répondre aux e-mails dans une nouvelle fenêtre, le code VBA suivant vous permet de supprimer facilement la réponse ainsi que le brouillon dans Outlook.

1. Lancez Outlook, puis appuyez sur les touches Alt+F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module. Copiez ensuite le code VBA suivant dans la fenêtre du module.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Appuyez sur les touches Alt + F11 pour fermer la fenêtre Microsoft Visual Basic pour Applications.

Vous avez maintenant besoin d’un bouton pour exécuter la macro.

4. Cliquez sur Accueil > Nouveau message pour créer un nouvel e-mail. Dans la fenêtre du message, cliquez sur Personnaliser la barre d’outils Accès rapide > Autres commandes.

5. Répétez ensuite les étapes ci-dessus de 5 à 7 pour créer un bouton dédié à votre scriptet l’ajouter à la barre d’outils Accès rapidede la fenêtre de message.

Désormais, lorsque vous répondez à un e-mail dans une nouvelle fenêtre de message, vous pouvez supprimer cette réponse ainsi que le brouillon en cliquant sur le bouton de la barre d’outils Accès rapide.

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite ⬇ Télécharger la Suite 💳 Acheter la Suite