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

Тази статия ще ви научи как автоматично да създавате нова задача, когато присвоите определена цветова категория на имейл чрез 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

5. След това ще трябва да подпишете този код. Можете да използвате вградената помощна програма на Office - „Цифров сертификат за проекти на VBA“, за да го постигнете. За по-подробни стъпки можете да се обърнете към Стъпка 2 в тази статия “2 стъпки за автоматично маркиране на нежелани имейли като прочетени в Outlook".
6. По-късно, за да предотвратите външен злонамерен макрос, трябва да се обърнете към „Център за доверие“ и да промените настройките на макроса, за да активирате само макроси с цифрови подписи.
7. В крайна сметка можете да опитате.

• Преместете пощенски елемент и му присвойте конкретна категория, като следната екранна снимка:
• Веднага автоматично ще се създаде нова задача и тя ще се покаже в нов изскачащ прозорец.

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

Жизнено важно е да блокирате всички външни неподписани макроси, тъй като те могат да съдържат вируси или злонамерен софтуер, които могат лесно да увредят данните ви в Outlook. Така че потребителите трябва да обърнат голямо внимание на имейлите, които идват заедно с макроси. Освен това е много препоръчително да инвестирате в забележително корумпиран инструмент за корекция на данни в Outlook, като DataNumen Outlook Repair. Той може да ви спаси, когато страдате от непредвидена катастрофа на Outlook.

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

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