Kā automātiski izveidot uzdevumu, kad programmā Outlook e-pastam tiek piešķirta noteikta kategorija

Šajā rakstā tiks parādīts, kā automātiski izveidot jaunu uzdevumu, ja e-pastam piešķirat noteiktu krāsu kategoriju, izmantojot programmu Outlook VBA.

Agrāk, kad saņēmu e-pasta ziņojumu, kas saistīts ar uzdevumu, es šim e-pasta ziņojumam norādīju kategoriju “Uzdevums” un turpināju izveidot jaunu saistītu uzdevumu. Godīgi sakot, šis process patiešām ir laikietilpīgs. Man ir iepriekš jāpieraksta visa informācija, jo šī informācija ir jāpieprasa jaunajā uzdevumā. Bet tagad, izmantojot VBA, programma Outlook var automātiski izveidot jaunu uzdevumu ikreiz, kad e-pastā norādīšu kategoriju “Uzdevums”. Ja jūs interesē šis padoms, lasiet tālāk, lai tos iegūtu sīkāk.

Automātiski izveidojiet uzdevumu ikreiz, kad e-pastam tiek piešķirta noteikta kategorija

1. Lai sāktu, palaidiet programmu Outlook un pārslēdzieties uz cilni “Izstrādātājs”.
2. Šajā cilnē varat atrast un noklikšķināt uz pogas Visual Basic.
3. Pēc tam tiks atvērts jauns Microsoft Visual Basic for Applications logs. Tajā jums vajadzētu dubultklikšķi uz projekta “ThisOutlookSession”.
4. Tālāk jums vajadzētu kopēt šādus VBA kodus projekta logā “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. Pēc tam jums būs jāparaksta šis kods. Lai to sasniegtu, varat izmantot Office iebūvēto utilītu – “Digital Certificate for VBA Projects”. Lai iegūtu sīkāku informāciju, varat skatīt šī raksta 2. darbību.2 darbības, lai nevēlamos e-pastus automātiski atzīmētu kā lasītus programmā Outlook".
6. Vēlāk, lai novērstu ārēju ļaunprātīgu makro, jums vajadzētu vērsties pie “Uzticības centra” un mainīt makro iestatījumus, lai iespējotu tikai digitāli parakstītus makro.
7. Galu galā jūs varat izmēģināt.

• Piesakieties pasta sūtījumam un piešķiriet tam noteiktu kategoriju, piemēram, šādu ekrānuzņēmumu:
• Tūlīt jauns uzdevums tiks izveidots automātiski un tiks parādīts jaunā uznirstošajā logā.

Sekojiet līdzi ļaunprātīgiem makro aizdomīgos e-pastos

Ir ļoti svarīgi bloķēt visus ārējos neparakstītos makro, jo tajos var būt vīrusi vai ļaunprātīga programmatūra, kas var viegli sabojāt jūsu Outlook datus. Tāpēc lietotājiem vajadzētu pievērst īpašu uzmanību e-pastiem, kas nāk kopā ar makro. Turklāt ir ļoti ieteicams ieguldīt ievērojamā bojāts Outlook datu labošanas rīks, piemēram, DataNumen Outlook Repair. Tas var jums palīdzēt, ja rodas neparedzēta Outlook avārija.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot SQL mdf kļūdu un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar