Ugrás a tartalomra

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.

5.1) A Válaszd ki a parancsokat legördülő listából válassza a lehetőséget Makrók;
5.2) Válassza ki az előző lépésben hozzáadott makrót;
5.3) Kattintson a gombra hozzáad gombra kattintva hozzáadhatja ezt a makrót a A Gyorselérés eszköztár testreszabása doboz.

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

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? 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 ProKö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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations