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

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

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

Раніше, коли я отримував повідомлення електронної пошти, пов’язане із завданням, я вказував категорію „Завдання” для цього електронного листа та приступав до створення нового пов’язаного завдання. Чесно кажучи, цей процес справді трудомісткий. Я маю записати всю інформацію заздалегідь, оскільки ці деталі потрібно вимагати в новому завданні. Але тепер, за допомогою VBA, Outlook може автоматично створювати нове завдання кожного разу, коли я вказую категорію “Завдання” в електронному листі. Якщо вас зацікавила ця порада, читайте далі, щоб отримати їх детально.

Автоматичне створення завдання кожного разу, коли певній категорії присвоюється електронний лист

  1. Для початку запустіть Outlook і перейдіть на вкладку «Розробник».
  2. На цій вкладці ви можете знайти та натиснути кнопку “Visual Basic”.
  3. Тоді відкриється нове вікно “Microsoft Visual Basic for Applications”. У ньому вам слід двічі клацнути на проекті “ThisOutlookSession”.
  4. Далі слід скопіювати наступні коди VBA у вікно проекту „ThisOutlookSession”.
Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

Скопіюйте та вставте коди в ThisOutlookSession

  1. Після цього вам потрібно буде підписати цей код. Ви можете використовувати вбудовану службову програму Office - «Цифровий сертифікат для проектів VBA» для її досягнення. Для отримання більш детальних кроків ви можете ознайомитись із кроком 2 цієї статті “2 кроки до автоматичного позначення небажаних листів як прочитаних в Outlook".Цифрові сертифікати для проектів VBA
  2. Пізніше, щоб запобігти зовнішнім зловмисним макросам, вам слід звернутися до “Центру довіри” та змінити налаштування макросів, щоб увімкнути лише макроси з цифровим підписом.Змініть налаштування макросу
  3. Зрештою ви можете спробувати.
  • Розмістіть поштовий елемент і призначте йому певну категорію, наприклад, наступний знімок екрана:Призначте певну категорію електронному листу
  • Одразу нове завдання буде створено автоматично і відображатиметься у новому спливаючому вікні.Нове завдання

Слідкуйте за зловмисними макросами у підозрілих електронних листах

Життєво важливо заблокувати всі зовнішні непідписані макроси, оскільки вони можуть містити віруси або шкідливе програмне забезпечення, яке може легко пошкодити ваші дані Outlook. Тому користувачам слід пильно звертати увагу на електронні листи, що додаються до макросів. Крім того, вкрай доцільно інвестувати у чудове пошкоджений інструмент виправлення даних Outlook -, Як DataNumen Outlook Repair. Це може вам допомогти, коли ви зазнаєте непередбачуваного збою Outlook.

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

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

Поділитися зараз:

Коментарі закриті.