2 brza savjeta za automatsko brisanje izvorne e-pošte nakon što na nju odgovorite u programu Outlook

Neki korisnici radije obrišu izvornu e-poštu nakon što na nju odgovore jer je odgovor sadržavao informacije izvorne e-pošte. Ovaj članak će podijeliti 2 brza načina za automatsku realizaciju.

Prema zadanim postavkama, Outlook je postavljen da automatski uključi izvornu poruku u odgovor. U tom bi slučaju mnogi korisnici htjeli izbrisati izvornu poruku, ostavljajući samo odgovor u svom poštanskom sandučiću. Ne samo da ovo može zadržati njihov poštanski sandučić male veličine, već također može dovesti u red njihovu e-poštu. Ako nerado ručno brišete originalne poruke e-pošte, možete upotrijebiti sljedeća 2 trika da to automatizirate.

1. savjet: koristite Quick Step

Outlook dolazi s izvornim brzim korakom "Odgovori i izbriši", poput sljedeće slike. Ovaj brzi korak može automatski izbrisati izvornu poruku i prikazati odgovor kada kliknete na nju.

Ako ne možete pronaći ovaj brzi korak, vrlo je vjerojatno da ste ga prije slučajno izbrisali. Također ga možete ponovno izraditi slijedeći korake u nastavku.

1. Najprije kliknite gumb "Stvori novo" u grupi "Brzi koraci".
2. Zatim mu u skočnom dijaloškom okviru dodijelite naziv, na primjer "Odgovori i izbriši".
3. Zatim u odjeljku "Akcije" odaberite "Odgovori".
4. Nakon toga kliknite gumb "Dodaj radnju".
5. Zatim dodajte radnju "Izbriši poruku".
6. Na kraju pritisnite gumb "Spremi".

Zbog toga uvijek morate koristiti ovaj brzi korak za odgovaranje na e-poštu. Ako i dalje želite koristiti standardni gumb "Odgovori" u grupi "Odgovori" da biste postigli "Odgovori i izbriši", možete se obratiti sljedećim sredstvima.

2. savjet: koristite Outlook VBA

1. Na prvom mjestu pritisnite tipke "Alt + F11" u programu Outlook.
2. Zatim u sljedećem prozoru uređivača VBA otvorite projekt "ThisOutlookSession".
3. Zatim kopirajte i zalijepite sljedeće VBA kodove u njega.

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. Nakon toga digitalno potpišite ovaj kod.
5. Osim toga, ne zaboravite promijeniti postavke Outlook makronaredbi kako biste omogućili digitalno potpisane makronaredbe.
6. Na kraju ponovno pokrenite Outlook kako biste aktivirali novi VBA projekt. Od sada, kada odgovorite na e-poštu pritiskom na standardni gumb "Odgovori", izvorna e-pošta će se automatski izbrisati.

Oporavite svoje ugrožene Outlook podatke

Ako naiđete na iznenadno Outlook oštećenje Neočekivano, morate pokušati oporaviti svoje Outlook podatke. Kao i obično, najbolji i najjednostavniji pristup je oporavak iz sigurnosnih kopija. Ali ako nemate trenutnu sigurnosnu kopiju podataka, možete se vratiti i na iskusni alat za popravak, poput DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com