Daži lietotāji dod priekšroku dzēst sākotnējo e-pastu pēc atbildes, jo atbildē ir ietverta sākotnējā e-pasta informācija. Šajā rakstā tiks dalīti 2 ātri līdzekļi, lai to automātiski realizētu.
Pēc noklusējuma programma Outlook ir iestatīta automātiski iekļaut atbildē sākotnējo ziņojumu. Šajā gadījumā daudzi lietotāji vēlas dzēst sākotnējo ziņojumu, atbildi atstājot tikai savā pastkastē. Tas ne tikai var saglabāt viņu pastkasti mazos izmēros, bet arī ļaut viņu e-pastus sakārtot. Ja jūs nevēlaties manuāli izdzēst oriģinālos e-pasta ziņojumus, to automatizēšanai varat izmantot šādus divus trikus.
1. padoms: izmantojiet Quick Step
Outlook nāk ar vietējo ātro darbību “Atbildēt un dzēst”, piemēram, šo attēlu. Šis ātrais solis var automātiski izdzēst sākotnējo ziņojumu un parādīt atbildi, kad uz tā noklikšķināt.
Ja nevarat atrast šo ātro darbību, ļoti iespējams, ka esat to iepriekš nejauši izdzēsis. To var arī izveidot no jauna, veicot tālāk norādītās darbības.
- Pirmkārt, grupā “Ātrie soļi” noklikšķiniet uz pogas “Izveidot jaunu”.
- Pēc tam uznirstošajā dialoglodziņā piešķiriet tam nosaukumu, piemēram, “Atbildēt un dzēst”.
- Pēc tam sadaļā “Darbības” atlasiet “Atbildēt”.
- Pēc tam noklikšķiniet uz pogas Pievienot darbību.
- Pēc tam pievienojiet darbību “Dzēst ziņojumu”.
- Visbeidzot nospiediet pogu “Saglabāt”.
Tādējādi jums ir jāizmanto šī ātrā darbība, lai atbildētu uz e-pastiem. Ja jūs joprojām vēlaties izmantot standarta pogu “Atbildēt” grupā “Atbildēt”, lai sasniegtu “Atbildēt un dzēst”, varat atsaukties uz šādiem līdzekļiem.
2. padoms. Izmantojiet Outlook VBA
- Pirmkārt, programmā Outlook nospiediet taustiņu pogas “Alt + F11”.
- Pēc tam nākamajā VBA redaktora logā atveriet projektu “ThisOutlookSession”.
- Nākamais nokopējiet un ielīmējiet tajā šādus 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
- Pēc tam parakstiet šo kodu digitāli.
- Turklāt atcerieties mainīt Outlook makro iestatījumus, lai atļautu digitāli parakstītus makro.
- Visbeidzot, restartējiet programmu Outlook, lai aktivizētu jauno VBA projektu. Turpmāk, atbildot uz e-pastu, nospiežot standarta pogu “Atbildēt”, sākotnējais e-pasts tiks automātiski dzēsts.
Atgūstiet savus apdraudētos Outlook datus
Ja rodas pēkšņi Outlook bojājumi negaidīti jums ir jācenšas atgūt savus Outlook datus. Kā parasti, labākais un vienkāršākais veids ir atgūt datus no dublējumkopijām. Bet, ja jums nav aktuālas datu dublējumkopijas, varat vērsties pie pieredzējuša labošanas rīka, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar