2 rýchle tipy na automatické odstránenie pôvodného e-mailu po jeho odpovedi v programe Outlook

Niektorí používatelia radšej odstránia pôvodný e-mail po odpovedi, že odpoveď obsahovala informácie o pôvodnom e-maile. Tento článok bude zdieľať 2 rýchle prostriedky na jeho automatickú realizáciu.

V predvolenom nastavení je Outlook nastavený na automatické zahrnutie pôvodnej správy do odpovede. V takom prípade by veľa používateľov chcelo vymazať pôvodnú správu a odpoveď by nechali iba vo svojej poštovej schránke. Nielenže to môže udržať ich poštovú schránku v malom množstve, ale tiež to môže umožniť poriadok ich e-mailov. Ak sa zdráhate zmazať pôvodné e-maily ručne, môžete ich automatizovať pomocou nasledujúcich 2 trikov.

Tip 1: Použite rýchly krok

Outlook je dodávaný s natívnym rýchlym krokom „Odpovedať a odstrániť“, ako je nasledujúci obrázok. Tento rýchly krok môže automaticky odstrániť pôvodnú správu a zobraziť odpoveď, keď na ňu kliknete.

Ak nenájdete tento rýchly krok, je veľmi pravdepodobné, že ste ho predtým omylom odstránili. Môžete ho tiež znova vytvoriť podľa pokynov uvedených nižšie.

1. Najskôr kliknite na tlačidlo „Vytvoriť nové“ v skupine „Rýchle kroky“.
2. V rozbaľovacom dialógovom okne mu potom priraďte názov, napríklad „Odpovedať a odstrániť“.
3. Ďalej v sekcii Akcie vyberte možnosť Odpovedať.
4. Následne kliknite na tlačidlo „Pridať akciu“.
5. A potom pridajte akciu „Odstrániť správu“.
6. Nakoniec stlačte tlačidlo „Uložiť“.

Týmto spôsobom musíte na odpovedanie na e-maily vždy použiť tento rýchly krok. Ak stále chcete použiť štandardné tlačidlo „Odpovedať“ v skupine „Odpovedať“ na dosiahnutie možnosti „Odpovedať a vymazať“, môžete odkazovať na nasledujúce prostriedky.

Tip 2: Použite Outlook VBA

1. Na prvom mieste stlačte v aplikácii Outlook klávesové skratky „Alt + F11“.
2. Potom v nasledujúcom okne editora VBA otvorte projekt „ThisOutlookSession“.
3. Ďalej skopírujte a vložte do nich nasledujúce kódy VBA.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    objMail.Delete
    'If you want to only delete the specific email when replying it
    'You can specify the condition of the email as per your needs
    'like the following lines
    'If (InStr(LCase(objMail.Subject), "test") > 0) Then
    ' objMail.Delete
    'End If
End Sub

4. Potom tento kód digitálne podpíšte.
5. Okrem toho nezabudnite zmeniť nastavenie makier programu Outlook, aby ste povolili digitálne podpísané makrá.
6. Nakoniec reštartujte Outlook, aby ste aktivovali nový projekt VBA. Odteraz, keď odpoviete na e-mail stlačením štandardného tlačidla „Odpovedať“, pôvodný e-mail sa automaticky odstráni.

Obnovte svoje ohrozené údaje z Outlooku

Ak narazíte na náhlu Výhľadové poškodenie Neočakávane sa musíte pokúsiť čo najlepšie obnoviť údaje programu Outlook. Ako zvyčajne, najlepším a najjednoduchším prístupom je obnovenie zo záloh. Ak však nemáte aktuálnu zálohu údajov, môžete sa tiež obrátiť na skúsený nástroj na opravu, ako napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S