Kai kurie vartotojai pageidauja ištrinti pradinį el. laišką po to, kai į jį atsako, nes atsakyme yra pradinio el. laiško informacija. Šiame straipsnyje bus pateiktos 2 greitos priemonės, kaip tai įgyvendinti automatiškai.
Pagal numatytuosius nustatymus „Outlook“ nustatyta taip, kad į atsakymą automatiškai įtrauktų pradinį pranešimą. Tokiu atveju daugelis vartotojų norėtų ištrinti pradinį pranešimą, tik palikdami atsakymą savo pašto dėžutėje. Taip galima ne tik išlaikyti mažą jų pašto dėžutę, bet ir sutvarkyti el. laiškus. Jei nenorite ištrinti originalių el. laiškų rankiniu būdu, galite naudoti šiuos 2 gudrybes, kad tai automatizuoti.
1 patarimas: naudokite „Quick Step“.
„Outlook“ pateikiamas su vietiniu greitu žingsniu „Atsakyti ir ištrinti“, kaip ir toliau pateiktame paveikslėlyje. Šis greitas veiksmas gali automatiškai ištrinti pradinį pranešimą ir parodyti atsakymą, kai jį spustelėsite.
Jei nerandate šio greito veiksmo, labai tikėtina, kad anksčiau jį ištrynėte netyčia. Taip pat galite jį sukurti iš naujo atlikdami toliau nurodytus veiksmus.
- Pirmiausia spustelėkite mygtuką „Sukurti naują“, esantį „Greiti veiksmai“ grupėje.
- Tada iššokančiajame dialogo lange priskirkite jam pavadinimą, pvz., „Atsakyti ir ištrinti“.
- Tada skiltyje „Veiksmai“ pasirinkite „Atsakyti“.
- Tada spustelėkite mygtuką „Pridėti veiksmą“.
- Tada pridėkite veiksmą „Ištrinti pranešimą“.
- Galiausiai paspauskite mygtuką „Išsaugoti“.
Tokiu būdu jūs visada turite atlikti šį greitą veiksmą atsakydami į el. laiškus. Jei vis tiek norite naudoti standartinį mygtuką „Atsakyti“ grupėje „Atsakyti“, kad pasiektumėte „Atsakyti ir ištrinti“, galite pasinaudoti šiomis priemonėmis.
2 patarimas: naudokite Outlook VBA
- Visų pirma, „Outlook“ paspauskite klavišų kombinaciją „Alt + F11“.
- Tada kitame VBA redaktoriaus lange atidarykite projektą „ThisOutlookSession“.
- Tada nukopijuokite ir įklijuokite į jį šiuos VBA kodus.
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
- Po to šį kodą pasirašykite skaitmeniniu būdu.
- Be to, nepamirškite pakeisti „Outlook“ makrokomandos nustatymų, kad galėtumėte naudoti skaitmeniniu būdu pasirašytas makrokomandas.
- Galiausiai paleiskite „Outlook“ iš naujo, kad suaktyvintumėte naują VBA projektą. Nuo šiol, kai atsakysite į el. laišką paspausdami standartinį mygtuką „Atsakyti“, originalus el. laiškas bus automatiškai ištrintas.
Atkurkite pažeistus „Outlook“ duomenis
Jei staiga susidursite su Perspektyvos žala netikėtai, turite stengtis atkurti „Outlook“ duomenis. Kaip įprasta, geriausias ir paprasčiausias būdas yra atkurti duomenis iš atsarginių kopijų. Tačiau jei neturite naujausios duomenų atsarginės kopijos, galite kreiptis į patyrusią taisymo priemonę, pvz. DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com