Kaip automatiškai ištrinti „Outlook“ užduotį pažymėjus ją užbaigtą

Pagal numatytuosius nustatymus užduotys, kurios buvo pažymėtos baigtos, vis tiek bus aplanke Užduotys. Jei norite, kad „Outlook“ galėtų automatiškai ištrinti atliktas užduotis, galite naudoti šiame straipsnyje aprašytą metodą.

Kaip matote, pažymėjus „Outlook“ užduotį baigtą, užduotis bus rodoma pilku perbrauktu šriftu. Tačiau jis vis dar yra aplanke Užduotys, sumaišytas su neatliktomis užduotimis. Tokiu būdu jūsų užduotys gali būti netvarkingos. Taigi daugelis vartotojų nori, kad „Outlook“ galėtų automatiškai ištrinti užduotį, kai pažymėjo ją užbaigtą. Dabar mes pasidalinsime jums tinkamu metodu.

Automatiškai ištrinkite „Outlook“ užduotį pažymėję ją kaip užbaigtą

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ ekrane turėtumėte paspausti „Alt + F11“ klavišų mygtukus.
3. Vėliau „Microsoft Visual Basic for Applications“ lange jūsų bus paprašyta surasti ir atidaryti projektą „ThisOutlookSession“.
4. Tada į šį projektą turite nukopijuoti šį VBA kodą.

Public WithEvents objTasks As Outlook.Items
Public WithEvents objDeletedItems As Outlook.Items

Private Sub Application_Startup()
    Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items
    Set objDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub

Private Sub objTasks_ItemChange(ByVal Item As Object)
    Dim objTask As Outlook.TaskItem
 
    If TypeOf Item Is TaskItem Then
       Set objTask = Item
       'After marking the task complete
       If objTask.Complete = True Then
          'Delete it
          objTask.Delete
       End If
    End If
End Sub

'Permanently delete the task
Private Sub objDeletedItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olTask Then
       Item.Delete
    End If
End Sub

5. Po to šiam naujam VBA projektui turite priskirti skaitmeninį sertifikatą.

• Tiesiog įrankių juostoje spustelėkite „Įrankiai“.
• Tada išskleidžiamajame sąraše pasirinkite „Skaitmeninis parašas“.
• Iššokančiajame dialogo lange vykdykite ekrane pateikiamas instrukcijas, kad užbaigtumėte.

6. Vėliau turėtumėte pakeisti „Outlook“ makrokomandos nustatymus, kad leistų pasirašyti VBA projektą.
7. Galiausiai iš naujo paleiskite „Outlook“, kad suaktyvintumėte naują VBA kodą.
8. Nuo šiol kiekvieną kartą, kai pažymėsite užduotį užbaigtą, ši užduotis bus automatiškai ir visam laikui ištrinta.

Pasinaudokite puikiu remonto įrankiu

Tiesą sakant, „Outlook“ suteikia vartotojams daugybę puikių galimybių. Tačiau tai nereiškia, kad jis nepriekaištingas. Jis turi mirtiną pažeidžiamumą. Jis yra jautrus klaidoms ir korupcijai. Todėl, jei norite apsaugoti „Outlook“ failą nuo žalos, geriau reguliariai kurti atsargines PST failo kopijas. Be to, protinga investuoti į žinomą ir patikimą Outlook atkūrimas naudingumas, 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 taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com