2 hitra namiga za samodejno brisanje izvirnega e-poštnega sporočila po odgovoru v Outlooku

Nekateri uporabniki raje izbrišejo izvirno e-poštno sporočilo, potem ko nanj odgovorijo, saj je odgovor vseboval informacije izvirnega e-poštnega sporočila. Ta članek bo delil 2 hitra načina za samodejno uresničitev.

Outlook je privzeto nastavljen tako, da samodejno vključi izvirno sporočilo v odgovor. V tem primeru bi mnogi uporabniki radi izbrisali izvirno sporočilo in v svojem nabiralniku pustili le odgovor. Ne samo, da je njihov poštni predal majhen, ampak tudi njihova e-pošta lahko ostane v redu. Če izvirnih e-poštnih sporočil ne želite ročno izbrisati, lahko uporabite naslednja trika za avtomatizacijo.

1. nasvet: uporabite Quick Step

Outlook ima izvorni hitri korak »Odgovori in izbriši«, kot je naslednja slika. Ta hiter korak lahko samodejno izbriše izvirno sporočilo in prikaže odgovor, ko ga kliknete.

Če tega hitrega koraka ne najdete, je zelo verjetno, da ste ga prej pomotoma izbrisali. Lahko ga tudi znova ustvarite tako, da sledite spodnjim korakom.

1. Najprej kliknite gumb »Ustvari novo« v skupini »Hitri koraki«.
2. Nato mu v pojavnem pogovornem oknu dodelite ime, na primer »Odgovori in izbriši«.
3. Nato v razdelku »Dejanja« izberite »Odgovori«.
4. Nato kliknite gumb »Dodaj dejanje«.
5. Nato dodajte dejanje »Izbriši sporočilo«.
6. Nazadnje pritisnite gumb »Shrani«.

Zato morate vedno uporabiti ta hiter korak za odgovarjanje na e-pošto. Če še vedno želite uporabiti standardni gumb »Odgovori« v skupini »Odgovori«, da dosežete »Odgovori in izbriši«, se lahko obrnete na naslednja sredstva.

2. nasvet: uporabite Outlook VBA

1. V Outlooku najprej pritisnite tipke “Alt + F11”.
2. Nato v naslednjem oknu urejevalnika VBA odprite projekt »ThisOutlookSession«.
3. Nato kopirajte in vanj prilepite naslednje kode 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. Nato digitalno podpišite to kodo.
5. Poleg tega ne pozabite spremeniti nastavitev Outlookovega makra, da omogočite digitalno podpisane makre.
6. Na koncu znova zaženite Outlook, da aktivirate nov projekt VBA. Od zdaj naprej se bo izvirno e-poštno sporočilo samodejno izbrisalo, ko boste odgovorili na e-pošto s klikom na standardni gumb »Odgovori«.

Obnovite svoje ogrožene Outlookove podatke

Če naletite nenadoma Outlook škoda Nepričakovano se boste morali potruditi, da obnovite podatke v Outlooku. Kot običajno je najboljši in najpreprostejši pristop obnovitev iz varnostnih kopij. Če pa nimate trenutne varnostne kopije podatkov, se lahko obrnete tudi na profesionalno orodje za popravilo, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjava mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com