Come eliminare la bozza attualmente in modifica senza cancellare l'email originale in Outlook?

AutoreSiluvia Data di modifica2024-09-13

Microsoft Outlook 2013 e versioni successive aprono le risposte alle email nel riquadro di lettura per impostazione predefinita. Immagina di stare rispondendo a un messaggio e che, dopo 3 minuti, Outlook salvi automaticamente la tua risposta come bozza. In seguito, decidi di non inviare tale risposta ed elimini la bozza insieme a essa. Alcuni utenti di Outlook tendono a fare clic sul pulsante **Elimina** nella scheda **Home** per rimuovere la bozza direttamente dal riquadro di lettura (vedi screenshot seguente). Tuttavia, questa azione elimina anche l’email originale.

elimina la bozza attualmente modificata senza eliminare l'email originale in Outlook

In questo tutorial ti forniamo due codici VBA per aggiungere due comandi alla barra degli strumenti di accesso rapido, permettendoti di eliminare rapidamente la bozza attualmente in modifica senza cancellare l’email originale in Outlook.

Elimina la bozza attualmente modificata nel riquadro di lettura
Elimina la bozza attualmente modificata in una nuova finestra

Elimina la bozza attualmente modificata nel riquadro di lettura

Se sei abituato a rispondere alle email direttamente nel riquadro di lettura, puoi utilizzare il seguente codice VBA per eliminare la bozza attualmente in modifica senza cancellare l’email originale in Outlook.

1. Avvia Outlook, quindi premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su Project1 > Oggetti Microsoft Outlook > ThisOutlookSession per aprire la finestra di ThisOutlookSession (Codice). Copia quindi il seguente codice VBA nella finestra del codice.

Codice VBA: Elimina la bozza attualmente modificata nel riquadro di lettura

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. Salva il codice e premi i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.

Ora ti serve un pulsante per eseguire la macro.

4. Fai clic su Personalizza barra degli strumenti di accesso rapido > Altri comandi.

5. Nella finestra di dialogo Opzioni di Outlook, procedi come segue.

5,1) Nella casella Scegli comandi daElenco a discesa, seleziona Macro;

5,2) Seleziona la macro aggiunta nel passaggio precedente;

5,3) Fai clic sul pulsante Aggiungiper aggiungere questa macro alla casella Personalizza barra degli strumenti di accesso rapido.

6. Mantieni lo script selezionato nella casella di destra, quindi fai clic sul pulsante Modifica. Nella finestra di dialogo Modifica pulsante, assegna un nuovo pulsante allo script e fai clic su OK.

7. Fai clic su OK nella finestra di dialogo Opzioni di Outlook per salvare le modifiche.

Il pulsante specificato al passaggio 6 viene quindi aggiunto alla barra degli strumenti di accesso rapido.

8. Riavvia Outlook per attivare il codice.

D'ora in poi, quando risponderai a un'email nel riquadro di lettura, potrai eliminare la risposta insieme alla bozza facendo clic sul pulsante nella barra degli strumenti di accesso rapido.

Nota: Dopo aver eseguito lo script, seleziona un’altra email nell’Elenco email per aggiornare la visualizzazione della posta nella Cartella corrente.

Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)

Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.

Questa funzionalità supporta:

Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.

Questa funzionalità supporta:

Risposte email intelligenti
Contenuto ottimizzato
Bozze basate su parole chiave
Estensione intelligente del contenuto
Sintesi delle email
Traduzione multilingue

Non aspettare—scarica subito l’Assistente email IA e approfitta di!

a name="a2"> Elimina la bozza attualmente modificata in una nuova finestra

Se preferisci rispondere alle email in una nuova finestra, il seguente codice VBA può aiutarti a eliminare facilmente l'email di risposta insieme alla bozza in Outlook.

1. Avvia Outlook, premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fai clic su Inserisci > Modulo. Quindi, copia il seguente codice VBA nella finestra del modulo.

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. Premi i tasti Alt+F11 per chiudere la finestra di Microsoft Visual Basic for Applications.

Ora ti serve un pulsante per eseguire la macro.

4. Fai clic su Home > Nuova Email per creare una nuova email. Nella finestra del messaggio, fai clic su Personalizza barra degli strumenti di accesso rapido > Altri comandi.

5. Ripeti quindi i passaggi sopra indicati da 5 a 7 per creare un pulsante per lo script e aggiungerlo alla barra degli strumenti di accesso rapido della finestra del messaggio.

D'ora in poi, quando risponderai a un'email in una nuova finestra di messaggio, potrai eliminare questa risposta insieme alla bozza facendo clic sul pulsante nella barra degli strumenti di accesso rapido.

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite