Як автоматично встановити нагадування та термін виконання під час позначення електронної пошти Outlook для подальших дій

Outlook дозволяє користувачам позначати електронні листи спеціальним нагадуванням про подальші дії та датою завершення. Але вам потрібно вибрати і включити його вручну. Ця стаття навчить вас, як досягти цього автоматично за допомогою VBA.

Outlook надає нам функцію "Позначити", яка дозволяє нам значно зручніше відстежувати критичні електронні листи. Це не тільки дозволяє нам зробити електронний лист, але також дозволяє вибрати бажаний значок прапора, призначити певний термін виконання і навіть вказати спеціальне нагадування для електронного листа. Без сумнівів, це дуже зручно.

Але у багатьох користувачів все-таки є інше бажання. Вони сподіваються, що Outlook може автоматично вказати відносно фіксовану дату виконання та час нагадування для позначених електронних листів, наприклад, 3 дні після сьогоднішнього дня, 1 тиждень після сьогоднішнього дня тощо. Чесно кажучи, Outlook не має такої власної функції. Отже, вам потрібно звернутися до інших засобів, наприклад, до VBA. Тут ми навчимо вас, як використовувати Outlook VBA для реалізації цієї вимоги. Читайте далі, щоб отримати це докладно.

Автоматично встановіть нагадування та термін виконання під час позначення електронної пошти Outlook

1. З самого початку запустіть програму Outlook.
2. Потім ви можете натиснути комбінації клавіш “Alt + F11”, щоб отримати доступ до редактора VBA.
3. Далі у наступному вікні “Microsoft Visual Basic for Applications” потрібно двічі клацнути на проекті “ThisOutlookSession” зліва.
4. Згодом скопіюйте та вставте коди VBA нижче.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
          'You can change the following lines as per your actual needs
          With objMail
               .FlagRequest = "Type the custom follow-up notes here"
               .MarkAsTask olMarkNextWeek
               'Set a custom due date
               .TaskDueDate = Now + 7
               .ReminderSet = True
               'Set a custom reminder time
               .ReminderTime = Now + 6.5
               .Save
         End With
       End If
    End If
End Sub

5. Після цього вам слід підписати цей код як звичайний.
6. Пізніше вийдіть з редактора VBA і продовжуйте змінювати параметри макросів Outlook, щоб увімкнути лише макроси з цифровим підписом.
7. Нарешті, вам потрібно перезавантажити Outlook, щоб активувати новий макрос. Після цього ви можете спробувати.

• Клацніть на піктограму прапора в хвості повідомлення електронної пошти.
• Одразу ж прапор буде автоматично змінено на піктограму “Прапор наступного тижня”.
• А термін його виконання та час нагадування будуть встановлені відповідно до вашого попереднього налаштування в кодах.

Не панікуйте, якщо зіткнетеся з аварією Outlook

Коли Outlook несподівано аварійно завершує роботу, більшість людей починають панікувати, боячись пошкодження своїх даних. Але насправді, якщо ви вжили достатніх запобіжних заходів, ви ніколи не панікуватимете. Найважливішим заходом є регулярне резервне копіювання PST-файлів. Крім того, ви також можете скористатися провідним інструментом, щоб відновити свої дані. пошкоджений Outlook дані, такі як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com