Ako automaticky presúvať e-maily s rôznymi farebnými kategóriami do rôznych priečinkov v programe Outlook

Ak chcete, aby program Outlook automaticky presúval e-maily do rôznych priečinkov, keď im priradíte rôzne farebné kategórie, môžete použiť metódu uvedenú v tomto príspevku.

Mnoho používateľov túži po metódach automatického presunu e-mailu do konkrétneho priečinka, keď je mu priradená určitá farebná kategória. Bez akýchkoľvek pochybností program Outlook neponúka takú priamu funkciu na jeho realizáciu. Preto vás v nasledujúcich textoch naučíme prostriedky, ako to získať. Teraz pokračujte ďalej a získate podrobné kroky.

Automaticky presúvajte e-maily s rôznymi farebnými kategóriami do rôznych priečinkov

1. Na začiatok spustite program Outlook.
2. Potom v programe Outlook stlačte klávesovú skratku „Alt + F11“, aby ste sa dostali do editora VBA.
3. Nasledujúci kód VBA vložte do projektu „ThisOutlookSession“.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Poznámky:

• Ak chcete spracovať položky v iných priečinkoch, môžete zmeniť objekt „objInboxFolder“, napríklad „Application.Session.GetDefaultFolder (olFolderSentMail)“ pre priečinok „Sent Items“.
• Taktiež zmeňte farebné kategórie a cieľové priečinky preddefinované vo vyššie uvedenom kóde podľa vašich skutočných prípadov.
• Okrem toho môžete pomocou nástroja „ElseIf“ pridať ďalšie voliteľné kategórie farieb.

4. Potom presuňte kurzor do podprogramu „Application_Startup“ a stlačte kláves „F5“, čím sa toto makro aktivuje.
5. Nakoniec môžete urobiť záber. Tu je môj príklad.

• Vyberte e-mail v priečinku Doručená pošta.
• Potom k nej priraďte farebnú kategóriu „Súkromné“.
• Táto pošta sa naraz presunie do priečinka „Súkromné“ v časti „Doručená pošta“.

S Outlookom narábajte opatrne

Možno ste sa vo svojom Outlooku stretli s niekoľkými problémami. Častejšie sa vyskytujú v skutočnosti z vášho nesprávneho zaobchádzania. Napríklad Outlook vždy zavriete nesprávne, napríklad pri náhlom vypnutí. Alebo ste svoje údaje Outlooku nezálohovali v pravidelných intervaloch. Všetky podobné akcie môžu spôsobiť, že bude váš Outlook oveľa zraniteľnejší. Ako viete, akonáhle sa súbor PST poškodí, je veľmi ťažké ho opraviť. Všeobecne platí, že nástroj na opravu doručenej pošty nebude mať efekty. Nezostáva vám nič iné, ako využiť externé špičkové nástroje, ako napr DataNumen Outlook Repair.

Ú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 obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S