2 brza savjeta za automatsko brisanje originalne e-pošte nakon odgovora u Outlooku

Neki korisnici više vole da izbrišu originalnu e-poštu nakon što na nju odgovore jer je odgovor sadržavao informacije originalne e-pošte. Ovaj članak će podijeliti 2 brza načina za automatsku realizaciju.

Outlook je prema zadanim postavkama podešen da automatski uključuje originalnu poruku u odgovor. U ovom slučaju, mnogi korisnici bi željeli da izbrišu originalnu poruku, ostavljajući samo odgovor u svom poštanskom sandučetu. Ovo ne samo da može zadržati njihovo poštansko sanduče u maloj veličini, već može dovesti i njihovu e-poštu u red. Ako ne želite ručno izbrisati originalne e-poruke, možete koristiti sljedeća 2 trika da to automatizirate.

Savjet 1: Koristite Quick Step

Outlook dolazi sa izvornim brzim korakom „Odgovori i izbriši“, kao na sljedećoj slici. Ovaj brzi korak može automatski izbrisati originalnu poruku i prikazati odgovor kada kliknete na nju.

Ako ne možete pronaći ovaj brzi korak, vrlo je vjerovatno da ste ga već slučajno izbrisali. Također ga možete ponovo kreirati slijedeći korake u nastavku.

1. Prvo kliknite na dugme „Kreiraj novo“ u grupi „Brzi koraci“.
2. Zatim u iskačućem dijaloškom okviru dodijelite mu ime, na primjer "Odgovori i izbriši".
3. Zatim u odjeljku „Radnje“ odaberite „Odgovori“.
4. Zatim kliknite na dugme „Dodaj radnju“.
5. Zatim dodajte akciju "Izbriši poruku".
6. Na kraju pritisnite dugme "Sačuvaj".

Na ovaj način, uvijek morate koristiti ovaj brzi korak da odgovorite na e-poštu. Ako i dalje želite da koristite standardno dugme „Odgovori“ u grupi „Odgovori“ da biste postigli „Odgovori i izbriši“, možete se obratiti na sledeće načine.

Savjet 2: Koristite Outlook VBA

1. Prvo, pritisnite tipke "Alt + F11" u Outlooku.
2. Zatim u sljedećem prozoru VBA editora 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 makronaredbe Outlooka kako biste dozvolili digitalno potpisane makroe.
6. Na kraju ponovo pokrenite Outlook da biste aktivirali novi VBA projekat. Od sada, kada odgovorite na e-poruku pritiskom na standardno dugme „Odgovori“, originalna e-poruka će se automatski izbrisati.

Oporavite svoje kompromitovane Outlook podatke

Ako naiđete na iznenadan Oštećenje Outlooka 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 ažurnu sigurnosnu kopiju podataka, možete se vratiti i na profesionalni alat za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com