Как да изтриете автоматично задача на Outlook, след като я маркирате като завършена

Споделете сега:

По подразбиране задачите, които са били маркирани като завършени, ще продължат да съществуват в папката Задачи. Ако желаете Outlook да може автоматично да изтрие изпълнените задачи, можете да използвате метода, въведен в тази статия.

Както можете да видите, след като маркирате задачата на Outlook завършена, задачата ще бъде показана със сив шрифт. Но тя все още съществува в папката Задачи, смесена с незавършените задачи. По този начин задачите ви могат да бъдат претрупани. По този начин много потребители желаят Outlook да може автоматично да изтрие задача, след като я маркира като завършена. Сега, по-долу, ще ви споделим подходящ метод.

Автоматично изтриване на задача на Outlook, след като я маркирате като завършена

Автоматично изтриване на задача на Outlook, след като я маркирате като завършена

  1. За начало стартирайте програмата Outlook.
  2. След това на главния екран на Outlook трябва да натиснете бутоните „Alt + F11“.
  3. Впоследствие в прозореца „Microsoft Visual Basic for Applications“ ще бъдете изискани да намерите и отворите проекта „ThisOutlookSession“.
  4. След това трябва да копирате следния VBA код в този проект.
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

VBA код - Автоматично изтриване на задача на Outlook, след като я маркирате като завършена

  1. След това трябва да присвоите цифров сертификат на този нов проект на VBA.
  • Просто кликнете върху „Инструменти“ в лентата с инструменти.
  • След това изберете „Цифров подпис“ от падащия списък.
  • В изскачащия диалогов прозорец следвайте инструкциите на екрана, за да го завършите.
  1. По-късно трябва да промените настройките на макроса на Outlook, за да разрешите подписания VBA проект.
  2. Накрая рестартирате Outlook, за да активирате новия VBA код.
  3. Отсега нататък всеки път, когато маркирате задачата като завършена, тази задача ще бъде автоматично и окончателно изтрита.

Прибягвайте до забележителен инструмент за ремонт

За да бъдем честни, Outlook предоставя на потребителите безброй отлични възможности. Но това не означава, че е безупречно. Той има смъртоносна уязвимост. Податлив е на грешки и корупция. Следователно, ако искате да защитите вашия файл на Outlook срещу повреда, по-добре архивирайте вашия PST файл на редовни интервали. Освен това е разумно да инвестирате в известен и надежден Възстановяване на Outlook полезност, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.