Comment supprimer le brouillon actuellement modifié sans supprimer l'e-mail d'origine dans Outlook ?

Microsoft Outlook 2013 et les versions ultérieures ouvrent les réponses par e-mail dans le volet de lecture par défaut. Supposons que vous répondiez à un e-mail et qu'après 3 minutes, Outlook enregistre automatiquement la réponse en tant que brouillon. Mais ensuite, vous décidez de ne pas envoyer cette réponse et supprimez le brouillon avec elle. Certains utilisateurs d'Outlook ont tendance à cliquer sur le bouton Supprimer sous l'onglet Accueil pour supprimer le brouillon du volet de lecture (voir capture d'écran ci-dessous). Mais cette action supprime également l'e-mail d'origine.

Dans ce didacticiel, nous fournissons deux codes VBA pour vous aider à ajouter deux commandes sur la barre d'outils d'accès rapide pour supprimer rapidement le brouillon actuellement modifié sans supprimer l'e-mail d'origine dans Outlook.

Supprimer le brouillon actuellement modifié dans le volet de lecture
Supprimer le brouillon actuellement modifié dans une nouvelle fenêtre

Supprimer le brouillon actuellement modifié dans le volet de lecture

Si vous avez l'habitude de répondre aux e-mails dans le volet de lecture, vous pouvez appliquer le code VBA suivant pour supprimer le brouillon actuellement modifié sans supprimer l'e-mail d'origine dans Outlook.

1. Lancez votre Outlook, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Project1 > Objets Microsoft Outlook > Cette session Outlook ouvrir le Cette session Outlook (code) la fenêtre. Copiez ensuite le code VBA suivant dans la fenêtre Code.

Code VBA : supprimer le brouillon actuellement modifié 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 et appuyez sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Maintenant, vous avez besoin d'un bouton pour exécuter la macro.

4. Cliquez Personnaliser la barre d'outils Accès rapide > Plus de commandes.

5. dans le Options d'Outlook boîte de dialogue, vous devez configurer comme suit.

5.1) Dans le Choisissez les commandes de liste 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 Ajouter pour ajouter cette macro au Personnaliser la barre d'outils Accès rapide boîte.

6. Gardez le script sélectionné dans la case de droite, puis cliquez sur le modifier bouton. dans le Modifier le bouton boîte de dialogue, affectez un nouveau bouton au script et cliquez sur D'ACCORD.

7. Cliquez OK dans l' Options d'Outlook boîte de dialogue pour enregistrer les modifications.

Le bouton que vous avez spécifié à l'étape 6 est alors ajouté au Barre d'outils d'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 d'accès rapide.

Remarque: Après avoir exécuté le script, vous devez sélectionner un autre e-mail dans la liste de diffusion pour actualiser l'affichage du courrier dans le dossier actuel.

Supprimer le brouillon actuellement modifié dans une nouvelle fenêtre

Si vous souhaitez répondre aux e-mails dans une nouvelle fenêtre. Le code VBA suivant peut aider à supprimer facilement l'e-mail de réponse avec le brouillon dans Outlook.

1. Lancez votre Outlook, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module. Copiez ensuite le code VBA suivant dans la fenêtre 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. appuie sur le autre + F11 pour fermer le Microsoft Visual Basic pour applications fenêtre.

Maintenant, vous avez besoin d'un bouton pour exécuter la macro.

4. Cliquez Accueil > Nouveau Email pour créer un nouvel e-mail. Dans la fenêtre des messages, cliquez sur Personnaliser la barre d'outils Accès rapide > Plus de commandes.

5. Répétez ensuite les étapes ci-dessus de 5 à 7 pour créer un bouton pour le script et ajoutez-le au Barre d'outils d'accès rapide de la fenêtre des messages.

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 d'accès rapide.