Ako automaticky vytvoriť úlohu vždy, keď je k e-mailu v programe Outlook priradená konkrétna kategória

Zdieľať teraz:

Tento článok vás naučí, ako automaticky vytvoriť novú úlohu, keď k e-mailu priradíte konkrétnu farebnú kategóriu pomocou Outlook VBA.

V minulosti, keď som dostal e-mail súvisiaci s úlohou, zvykol som v tomto e-maile zadať kategóriu „Úloha“ a pokračovať vo vytváraní novej súvisiacej úlohy. Úprimne povedané, tento proces je skutočne časovo náročný. Všetky informácie si musím vopred zapísať, keďže tieto údaje je potrebné v novej úlohe požadovať. Teraz však s pomocou VBA môže Outlook automaticky vytvoriť novú úlohu vždy, keď v e-maile uvediem kategóriu „Úloha“. Ak vás tento tip zaujal, prečítajte si ich podrobnejšie.

Automatické vytvorenie úlohy vždy, keď je k e-mailu priradená konkrétna kategória

  1. Najprv spustite Outlook a prejdite na kartu „Vývojár“.
  2. Na tejto karte môžete nájsť tlačidlo „Visual Basic“ a kliknúť naň.
  3. Potom sa otvorí nové okno „Microsoft Visual Basic for Applications“. V ňom by ste mali dvakrát kliknúť na projekt „ThisOutlookSession“.
  4. Ďalej by ste mali skopírovať nasledujúce kódy VBA do okna projektu „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

Skopírujte a prilepte kódy v ThisOutlookSession

  1. Potom budete musieť tento kód podpísať. Na dosiahnutie tohto cieľa môžete použiť vstavaný nástroj Office – „Digitálny certifikát pre projekty VBA“. Podrobnejšie kroky nájdete v kroku 2 v tomto článku “2 kroky na automatické označenie nevyžiadaných e-mailov ako prečítaných v programe Outlook".Digitálne certifikáty pre projekty VBA
  2. Neskôr, aby ste predišli externým škodlivým makrám, by ste sa mali obrátiť na „Centrum dôveryhodnosti“ a zmeniť nastavenia makier tak, aby umožňovali iba digitálne podpísané makrá.Zmeňte nastavenia makra
  3. Nakoniec to môžete vyskúšať.
  • Navrhnite poštovú položku a priraďte k nej konkrétnu kategóriu, ako je nasledujúca snímka obrazovky:Priraďte e-mailu konkrétnu kategóriu
  • Okamžite sa automaticky vytvorí nová úloha a zobrazí sa v novom vyskakovacom okne.Nová úloha

Sledujte škodlivé makrá v podozrivých e-mailoch

Je životne dôležité zablokovať všetky externé nepodpísané makrá, pretože môžu obsahovať vírusy alebo malvér, ktoré môžu ľahko poškodiť vaše údaje programu Outlook. Používatelia by preto mali venovať veľkú pozornosť e-mailom, ktoré prichádzajú spolu s makrami. Okrem toho je veľmi vhodné investovať do pozoruhodného poškodený nástroj na opravu údajov programu Outlook, Ako DataNumen Outlook Repair. Môže vás zachrániť, keď utrpíte neočakávané zlyhanie programu Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť chybu SQL mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.