Ako automaticky presúvať konkrétne e-maily do konkrétnych priečinkov po ich prečítaní v programe Outlook

Mnoho používateľov si po prečítaní želá presunúť konkrétne e-maily z Doručenej pošty do iných konkrétnych priečinkov, vďaka čomu bude priečinok Doručená pošta čistý. Ale vždy sa budete pohybovať ručne, bude to ťažkopádne. V tomto článku sa dozvieme o rýchlej metóde jej automatickej realizácie.

Ako obvykle, každý prichádzajúci e-mail sa dostane do priečinka Doručená pošta v Outlooku. V tomto prípade bude teda priečinok Doručená pošta preplnený a časom zaplnený. Častejšie môžete manuálne presúvať konkrétne e-maily do iných poštových priečinkov alebo vytvoriť pravidlo Outlooku na automatické presúvanie konkrétnych e-mailov hneď po ich doručení do poštovej schránky. Uplatnenie tohto pravidla je oveľa pohodlnejšie, ale ak chcete získať prístup k novým e-mailom, musíte prejsť do konkrétnych priečinkov. V súvislosti s týmto problémom môžete dúfať, že program Outlook dokáže automaticky presúvať konkrétne e-maily z Doručenej pošty do iných poštových priečinkov po ich prečítaní v Doručenej pošte, a nie po ich doručení. Pravidlo programu Outlook si to však nemôže uvedomiť. Našťastie môžete použiť program Outlook VBA na jeho uskutočnenie. Tu sú kódy, ako aj zložité kroky.

Po prečítaní ich môžete automaticky presunúť do konkrétnych priečinkov

1. Hneď na začiatku spustite program Outlook a prepnite na kartu Vývojár.
2. Potom na tejto karte kliknutím na tlačidlo „Visual Basic“ otvorte okno editora VBA.
3. Ďalej v novom okne by ste mali nájsť projekt „ThisOutlookSession“ a dvojitým kliknutím ho otvoriť.
4. Následne do nej skopírujte a vložte nasledujúce kódy VBA.

Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. Potom by ste mali tento kód digitálne podpísať.

• Najskôr pomocou vstavaného nástroja „Digitálne certifikáty pre projekty VBA“ vytvorte nový certifikát.
• Potom tento certifikát priraďte k aktuálnemu makru. Postupujte podľa pokynov na obrázku nižšie:

6. Neskôr by ste mali zmeniť nastavenie makier, aby ste povolili iba digitálne podpísané makrá.
7. Nakoniec by ste mali reštartovať Outlook, aby ste aktivovali tento projekt VBA. Odteraz budú všetky prichádzajúce e-maily stále prichádzať do priečinka Doručená pošta. Ale hneď ako si nový e-mail prečítate, automaticky sa presunie do príslušných priečinkov.

Chytré triky na riešenie problémov s programom Outlook

Vzhľadom na to, že Outlook je náchylný na chyby, mnoho používateľov túži po inteligentných tipoch na riešenie častých problémov. Medzi najbežnejšie techniky zvyčajne patrí vytvorenie nového poštového profilu, vypnutie doplnkov tretích strán, oprava balíka Office a použitie nástroja na opravu doručenej pošty Scanpst.exe. Ak vstavaný nástroj zlyhá, môžete sa uchýliť k inému, silnejšiemu nástroju. poškodený nástroj na opravu programu Outlook, Ako 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 opraviť poškodený a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S