Cum să ștergi schița editată în prezent fără a șterge e-mailul original din Outlook?
Microsoft Outlook 2013 și versiunile ulterioare deschid răspunsurile la e-mail în panoul de citire în mod implicit. Să presupunem că răspundeți la un e-mail și, după 3 minute, Outlook salvează automat răspunsul ca ciornă. Dar apoi decideți să nu trimiteți acest răspuns și să ștergeți schița împreună cu el. Unii utilizatori Outlook tind să facă clic pe butonul Șterge din fila Acasă pentru a șterge schița din panoul de citire (vezi captura de ecran de mai jos). Dar această acțiune șterge și e-mailul original.
În acest tutorial, oferim două coduri VBA pentru a vă ajuta să adăugați două comenzi în Bara de instrumente Acces rapid pentru a șterge rapid schița editată în prezent, fără a șterge e-mailul original din Outlook.
Ștergeți schița editată în prezent din panoul de citire
Ștergeți schița editată în prezent într-o fereastră nouă
Ștergeți schița de editare curentă din panoul de citire
Dacă sunteți obișnuit să răspundeți la e-mailuri în panoul de citire, puteți aplica următorul cod VBA pentru a șterge schița editată în prezent fără a șterge e-mailul original din Outlook.
1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide ThisOutlookSession (Cod) fereastră. Apoi copiați următorul cod VBA în fereastra Cod.
Cod VBA: ștergeți schița editată în prezent din panoul de citire
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 Sub3. Salvați codul și apăsați tasta Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
Acum aveți nevoie de un buton pentru a rula macro-ul.
4. clic Personalizați bara de instrumente cu acces rapid > Mai multe comenzi.
5. În Opțiuni Outlook casetă de dialog, trebuie să configurați după cum urmează.
6. Păstrați scriptul selectat în caseta din dreapta, apoi faceți clic pe Modifica buton. În Buton Modificare caseta de dialog, atribuiți un nou buton scriptului și faceți clic OK.
7. clic OK în Opțiuni Outlook casetă de dialog pentru a salva modificările.
Butonul specificat la pasul 6 este apoi adăugat la Bara de instrumente pentru acces rapid.
8. Reporniți Outlook pentru a activa codul.
De acum înainte, atunci când răspundeți la un e-mail în panoul de citire, puteți șterge răspunsul împreună cu schița făcând clic pe butonul din bara de instrumente Acces rapid.
Notă: După rularea scriptului, trebuie să selectați un alt e-mail din lista de corespondență pentru a reîmprospăta vizualizarea e-mailului din folderul curent.
AI Mail Assistant în Outlook: răspunsuri mai inteligente, comunicare mai clară (magie cu un singur clic!) GRATUITA
Eficientizați-vă sarcinile zilnice Outlook cu AI Mail Assistant de la Kutools for Outlook. Acest instrument puternic învață din e-mailurile tale anterioare pentru a oferi răspunsuri inteligente și precise, pentru a optimiza conținutul e-mailurilor și pentru a te ajuta să redactezi și să rafinezi mesajele fără efort.
Această funcție acceptă:
- Răspunsuri inteligente: obțineți răspunsuri create din conversațiile dvs. anterioare – personalizate, precise și gata de plecare.
- Conținut îmbunătățit: rafinați automat textul e-mailului pentru claritate și impact.
- Compunere fără efort: furnizați doar cuvinte cheie și lăsați AI să se ocupe de restul, cu mai multe stiluri de scriere.
- Extensii inteligente: extindeți-vă gândurile cu sugestii care țin cont de context.
- Rezumat: obțineți instantaneu prezentari generale concise ale e-mailurilor lungi.
- Acoperire globală: traduceți-vă cu ușurință e-mailurile în orice limbă.
Această funcție acceptă:
- Răspunsuri inteligente la e-mail
- Conținut optimizat
- Schițe bazate pe cuvinte cheie
- Extensie inteligentă de conținut
- Rezumat prin e-mail
- Traducere în mai multe limbi
Cel mai bun din toate, această caracteristică este complet gratuit pentru totdeauna! nu astepta-descărcați AI Mail Assistant acum și bucurați-vă!
a name="a2"> Ștergeți schița editată în prezent într-o fereastră nouă
Dacă doriți să răspundeți la e-mailuri într-o fereastră nouă. Următorul cod VBA vă poate ajuta să ștergeți cu ușurință e-mailul de răspuns împreună cu schița în Outlook.
1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Modul. Apoi copiați următorul cod VBA în fereastra Modulului.
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 Sub3. apasă pe Alt + F11 pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
Acum aveți nevoie de un buton pentru a rula macro-ul.
4. clic Acasă > Email nou pentru a crea un e-mail nou. În fereastra de mesaj, faceți clic Personalizați bara de instrumente cu acces rapid > Mai multe comenzi.
5. Apoi repetați pașii de mai sus de la 5 la 7 pentru a crea un buton pentru script și adăugați-l la Bara de instrumente pentru acces rapid a ferestrei de mesaje.
De acum înainte, atunci când răspundeți la un e-mail într-o fereastră de mesaj nouă, puteți șterge acest răspuns împreună cu schița făcând clic pe butonul din Bara de instrumente Acces rapid.
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
