Jak automaticky přesunout konkrétní e-maily do konkrétních složek po jejich přečtení v aplikaci Outlook

Mnoho uživatelů si přeje přesunout konkrétní e-maily z Doručené do jiných konkrétních složek po jejich přečtení, což udrží poštovní složku Doručená pošta čistá. Ale vždy ruční přesun bude těžkopádný. Tento článek odhalí rychlou metodu, jak to automaticky realizovat.

Jako obvykle se každý příchozí e-mail zobrazí ve složce Doručená pošta v aplikaci Outlook. Takže v tomto případě bude složka Doručená pošta přeplněná a časem přecpaná. Více často než ne, můžete buď ručně přesunout konkrétní e-maily do jiných poštovních složek, nebo vytvořit pravidlo aplikace Outlook pro automatické přesunutí konkrétních e-mailů, jakmile dorazí do vaší poštovní schránky. Použití takového pravidla je mnohem pohodlnější, ale pro přístup k novým e-mailům musíte přejít do konkrétních složek. Tváří v tvář tomuto problému můžete doufat, že aplikace Outlook dokáže automaticky přesunout konkrétní e-maily z doručené pošty do jiných poštovních složek poté, co je dokončíte čtení ve složce Doručená pošta, místo po jejich doručení. Ale pravidlo Outlooku si to neuvědomuje. Naštěstí můžete použít Outlook VBA, abyste to splnili. Zde jsou kódy a také propracované kroky.

Automatické přesunutí konkrétních e-mailů do konkrétních složek po jejich přečtení

1. Hned na začátku spusťte Outlook a přepněte na kartu „Vývojář“.
2. Poté na této kartě stiskněte tlačítko „Visual Basic“ a otevřete okno editoru VBA.
3. Dále v novém okně byste měli najít projekt „ThisOutlookSession“ a dvojitým kliknutím jej otevřít.
4. Následně do něj zkopírujte a vložte následující 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. Poté byste měli tento kód digitálně podepsat.

• Nejprve pomocí vestavěného nástroje „Digitální certifikáty pro projekty VBA“ vytvořte nový certifikát.
• Poté tento certifikát přiřaďte k aktuálnímu makru. Proveďte kroky uvedené na obrázku níže:

6. Později byste měli změnit nastavení maker tak, aby byla povolena pouze digitálně podepsaná makra.
7. Nakonec byste měli restartovat Outlook, abyste aktivovali tento VBA projekt. Odteď budou všechny příchozí e-maily stále přicházet do složky Doručená pošta. Jakmile si ale nový e-mail přečtete, bude automaticky přesunut do příslušných složek.

Chytré triky k řešení problémů s aplikací Outlook

Vzhledem k tomu, že Outlook je náchylný k chybám, mnoho uživatelů touží po chytrých tipech, jak se s častými problémy vypořádat. Mezi nejběžnější techniky obvykle patří vytvoření nového poštovního profilu, zakázání doplňků třetích stran, oprava sady Office a použití nástroje pro opravu doručené pošty Scanpst.exe. Pokud vestavěný nástroj selže, můžete se uchýlit k jinému, silnějšímu nástroji. poškozený nástroj pro opravu aplikace Outlook, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit poškozenou SQL db a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com