Hogyan lehet törölni a jelenleg szerkesztett piszkozatot az eredeti e-mail törlése nélkül az Outlook programban?
A Microsoft Outlook 2013 és újabb verziói alapértelmezés szerint az olvasópanelen nyitják meg az e-mail válaszokat. Tegyük fel, hogy válaszol egy e-mailre, és 3 perc elteltével az Outlook automatikusan piszkozatként menti a választ. De akkor úgy dönt, hogy nem küldi el ezt a választ, és ezzel együtt törli a piszkozatot. Egyes Outlook-felhasználók hajlamosak a Kezdőlap fül alatti Törlés gombra kattintani, hogy töröljék a piszkozatot az olvasóablakból (lásd az alábbi képernyőképet). De ez a művelet az eredeti e-mailt is törli.
Ebben az oktatóanyagban két VBA-kódot biztosítunk, amelyek segítségével két parancsot adhat hozzá a Gyorselérési eszköztárhoz, amelyek segítségével gyorsan törölheti az aktuálisan szerkesztett piszkozatot anélkül, hogy az eredeti e-mailt törölné az Outlook programban.
Törölje az aktuálisan szerkesztett piszkozatot az olvasópanelen
Törölje a jelenleg szerkesztett piszkozatot egy új ablakban
Törölje a jelenleg szerkesztett piszkozatot az olvasópanelen
Ha megszokta, hogy az olvasópanelen válaszoljon az e-mailekre, a következő VBA-kód használatával törölheti a jelenleg szerkesztett piszkozatot anélkül, hogy az eredeti e-mailt törölné az Outlook programban.
1. Indítsa el az Outlook programot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Project1 > Microsoft Outlook objektumok > ThisOutlookSession megnyitni ThisOutlookSession (kód) ablak. Ezután másolja a következő VBA-kódot a Code ablakba.
VBA-kód: Az aktuálisan szerkesztett piszkozat törlése az olvasópanelen
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. Mentse el a kódot, és nyomja meg a gombot más + Q gombok a Microsoft Visual Basic for Applications ablak.
Most szükség van egy gombra a makró futtatásához.
4. kettyenés A Gyorselérés eszköztár testreszabása > További parancsok.
5. Ban,-ben Outlook opciók párbeszédpanelen az alábbiak szerint kell konfigurálnia.
6. Tartsa kijelölve a szkriptet a jobb oldali mezőben, majd kattintson a gombra módosít gomb. Ban,-ben Módosítás gomb párbeszédpanelen, rendeljen hozzá egy új gombot a szkripthez, és kattintson OK.
7. kettyenés OK a Outlook opciók párbeszédpanel a módosítások mentéséhez.
A 6. lépésben megadott gomb ezután hozzáadódik a Gyorselérési eszköztár.
8. Indítsa újra az Outlookot a kód aktiválásához.
Ezentúl, amikor az olvasópanelen válaszol egy e-mailre, a választ a piszkozattal együtt törölheti a Gyorselérési eszköztár gombjára kattintva.
Jegyzet: A szkript futtatása után ki kell választania egy másik e-mailt a levelezőlistában, hogy frissítse az aktuális mappában lévő levélnézetet.
Törölje a jelenleg szerkesztett piszkozatot egy új ablakban
Ha új ablakban szeretne válaszolni az e-mailekre. A következő VBA-kód segíthet a válasz e-mail egyszerű törlésében a piszkozattal együtt az Outlook alkalmazásban.
1. Indítsa el az Outlook programot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modult. Ezután másolja a következő VBA-kódot a Modul ablakba.
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. megnyomni a más + F11 bezárni Microsoft Visual Basic for Applications ablak.
Most szükség van egy gombra a makró futtatásához.
4. kettyenés Kezdőlap > új Email új e-mail létrehozásához. Az üzenetablakban kattintson a gombra A Gyorselérés eszköztár testreszabása > További parancsok.
5. Ezután ismételje meg a fenti lépéseket 5 és 7 között, hogy létrehozzon egy gombot a szkript számára és adja hozzá a Gyorselérési eszköztár az üzenetablakból.
Mostantól, ha új üzenetablakban válaszol egy e-mailre, a gyorselérési eszköztár gombjára kattintva törölheti ezt a választ a piszkozattal együtt.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.