Как автоматически вставлять и обновлять дни обратного отсчета в темах задач Outlook

Некоторые пользователи хотят автоматически вставлять и обновлять дни обратного отсчета в темах задач. Итак, в этой статье мы представим интеллектуальный подход к его получению.

Когда вы открываете задачу, вы обязательно увидите всплывающую подсказку «Срок выполнения через XX дней» в заголовке. Тем не менее, поскольку вы привыкли проверять задачу прямо в списке, вы можете надеяться увидеть такую ​​подсказку обратного отсчета прямо в теме задачи. Поэтому в дальнейшем мы поделимся умным способом автоматической вставки и обновления дней обратного отсчета в темах задач.

Автоматическая вставка и обновление дней обратного отсчета в темах задач

1. Для насtart, запустите редактор Outlook VBA, обратившись к статье — «Как запустить код VBA в Outlook».
2. Затем в проекте «ThisOutlookSession» поместите следующий код VBA.

Private WithEvents objTasks As Outlook.Items Private objItem As Object Private Sub Application_Startup() Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items 'Дни автоматического обновления обратного отсчета во всех задачах' Темы на Startup Для каждого объекта objItem в objTasks Call UpdateCountdownDays(objItem) Next End Sub 'Автоматическая вставка дней обратного отсчета до новых задач' Темы Private Sub objTasks_ItemAdd(ByVal Item As Object) Dim objTask As Outlook.TaskItem Dim lCountdownDays As Long If Item.Class = olTask Затем установите objTask = Item With objTask lCountdownDays = .DueDate - Date .Subject = .Subject & "(Due in" & lCountdownDays & " days)" .Save End With End If End Sub 'Автоматическое обновление дней обратного отсчета при изменении задач Private Sub objTasks_ItemChange (Элемент ByVal как объект) Вызов UpdateCountdownDays(Item) End Sub Private Sub UpdateCountdownDays(ByVal objItem As Object) Dim objTask As Outlook.TaskItem Dim strSubject As String Dim strCountdownNotes As String Dim lCountdownDays As Long Если objItem.Class = olTask, то установите objTask = objItem strSubject = objTask.Subject 'Заменить старые дни обратного отсчета новым значением в теме задачи If InStr(1, strSubject, "Due in") > 0 Then strCountdownNotes = Right(strSubject, Len(strSubject) - InStr(1, strSubject, "(Срок выполнения") + 1) С objTask lCountdownDays = .DueDate - Date .Subject = Replace(objTask.Subject, strCountdownNotes, "(Срок выполнения " & lCountdownDays & " days)"). Сохранить End With End If End If End Саб

4. После этого резtarт ваше приложение Outlook.
5. С тех пор каждый раз, когда вы создаете новую задачу, Outlook автоматически вставляет дни обратного отсчета в ее тему.
6. Кроме того, пока выtart Outlook или внести изменения в задачу, Outlook автоматически обновит дни обратного отсчета.

Что делать, если вы столкнулись с повреждением Outlook

Известно, что Outlook подвержен повреждениям. Таким образом, вы когда-нибудь страдали от него или представляли себе, как эффективно с ним бороться? В общем, пока вы делаете резервные копии данных Outlook, вы можете просто восстановить данные из резервных копий. Если резервных копий нет, у вас нет другого выбора, кроме как прибегнуть к мощному внешнему инструменту исправления, например DataNumen Outlook Repair, чтобы восстановить PST поле.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая коррумпированный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com