Πώς να διαγράψετε το τρέχον επεξεργασμένο πρόχειρο χωρίς να διαγράψετε το αρχικό email στο Outlook;

Το Microsoft Outlook 2013 και οι νεότερες εκδόσεις ανοίγουν τις απαντήσεις email στο παράθυρο ανάγνωσης από προεπιλογή. Ας υποθέσουμε ότι απαντάτε σε ένα email και μετά από 3 λεπτά το Outlook αποθηκεύει αυτόματα την απάντηση ως πρόχειρο. Αλλά τότε αποφασίζετε να μην στείλετε αυτήν την απάντηση και να διαγράψετε το προσχέδιο μαζί της. Ορισμένοι χρήστες του Outlook τείνουν να κάνουν κλικ στο κουμπί Διαγραφή κάτω από την καρτέλα Αρχική σελίδα για να διαγράψουν το πρόχειρο από το παράθυρο ανάγνωσης (δείτε στιγμιότυπο οθόνης παρακάτω). Αλλά αυτή η ενέργεια διαγράφει επίσης το αρχικό email.

Σε αυτό το σεμινάριο, παρέχουμε δύο κωδικούς VBA για να σας βοηθήσουμε να προσθέσετε δύο εντολές στη γραμμή εργαλείων γρήγορης πρόσβασης για να διαγράψετε γρήγορα το τρέχον επεξεργασμένο πρόχειρο χωρίς να διαγράψετε το αρχικό email στο Outlook.

Διαγράψτε το τρέχον επεξεργασμένο πρόχειρο στο παράθυρο ανάγνωσης
Διαγράψτε το τρέχον επεξεργασμένο πρόχειρο σε νέο παράθυρο

Διαγράψτε το τρέχον επεξεργασμένο πρόχειρο στο παράθυρο ανάγνωσης

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

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το ThisOutlookSession (Κωδικός) παράθυρο. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο Κώδικας.

Κώδικας VBA: Διαγράψτε το τρέχον επεξεργασμένο πρόχειρο στο παράθυρο ανάγνωσης

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. Αποθηκεύστε τον κωδικό και πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Τώρα χρειάζεστε ένα κουμπί για να εκτελέσετε τη μακροεντολή.

4. κλικ Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης > Περισσότερες εντολές.

5. Στο Επιλογές του Outlook πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

5.1) Στο Επιλέξτε εντολές από αναπτυσσόμενη λίστα, επιλέξτε Μακροεντολές;

5.2) Επιλέξτε τη μακροεντολή που προσθέσατε στο προηγούμενο βήμα.

5.3) Κάντε κλικ στο Πρόσθεση κουμπί για να προσθέσετε αυτήν τη μακροεντολή στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης κουτί.

6. Διατηρήστε τη δέσμη ενεργειών επιλεγμένη στο δεξί πλαίσιο και, στη συνέχεια, κάντε κλικ στο Τροποποίηση κουμπί. Στο Κουμπί τροποποίησης παράθυρο διαλόγου, αντιστοιχίστε ένα νέο κουμπί στο σενάριο και κάντε κλικ Εντάξει.

7. κλικ OK στο Επιλογές του Outlook πλαίσιο διαλόγου για να αποθηκεύσετε τις αλλαγές.

Στη συνέχεια, το κουμπί που καθορίσατε στο βήμα 6 προστίθεται στο Γραμμή εργαλείων γρήγορης πρόσβασης.

8. Επανεκκινήστε το Outlook για να ενεργοποιήσετε τον κωδικό.

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

Σημείωση: Αφού εκτελέσετε το σενάριο, πρέπει να επιλέξετε άλλο email στη λίστα αλληλογραφίας για να ανανεώσετε την προβολή αλληλογραφίας στον τρέχοντα φάκελο.

Διαγράψτε το τρέχον επεξεργασμένο πρόχειρο σε νέο παράθυρο

Εάν θέλετε να απαντάτε σε μηνύματα ηλεκτρονικού ταχυδρομείου σε νέο παράθυρο. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να διαγράψετε εύκολα το email απάντησης μαζί με το πρόχειρο στο Outlook.

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο 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. Πάτα το άλλος + F11 για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Τώρα χρειάζεστε ένα κουμπί για να εκτελέσετε τη μακροεντολή.

4. κλικ Αρχική > Νέο Email για να δημιουργήσετε ένα νέο email. Στο παράθυρο μηνύματος, κάντε κλικ Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης > Περισσότερες εντολές.

5. Στη συνέχεια επαναλάβετε τα παραπάνω βήματα από 5 έως 7 για να δημιουργήσετε ένα κουμπί για το σενάριο και προσθέστε το στο Γραμμή εργαλείων γρήγορης πρόσβασης του παραθύρου μηνύματος.

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