Jak automaticky přesunout e-mail do konkrétní složky po jeho předání v aplikaci Outlook

Aby byla vaše poštovní schránka v pořádku, můžete si zvyknout ukládat konkrétní e-maily do konkrétní složky. Tento článek vám řekne, jak používat Outlook VBA k automatickému přesunutí e-mailu po jeho předání.

Ukládání podobných e-mailů do konkrétní složky pošty je dobrým tipem pro správu velkého množství e-mailů. Je jisté, že různí uživatelé musí mít svá vlastní kritéria pro klasifikaci a správu pošty. Můžete například upřednostnit klasifikaci svých e-mailů podle vašich následných akcí, jako jsou odpovědi, přeposílání nebo jiné. Pokud byste chtěli automaticky přesunout e-mail do konkrétní složky, například „Přeposlat“, při přeposílání můžete použít následující operace a kódy VBA a získat je v rychlém čase.

Po přesunutí e-mailu automaticky přesuňte e-mail do konkrétní složky

1. Na prvním místě spusťte aplikaci Outlook.
2. Poté přepněte na kartu Vývojář.

Poznámka: Pokud tuto kartu nemůžete najít, měli byste ji nejprve povolit v části „Soubor“> „Možnosti“> „Přizpůsobit pás karet“.

3. Jakmile je tato karta viditelná, můžete pod ní najít a kliknout na tlačítko „Visual Basic“.
4. Následně se otevře nové okno „Microsoft Visual Basic for Applications“. V něm byste měli dvakrát kliknout na projekt „ThisOutlookSession“ na levé straně a otevřít jej.
5. Poté můžete do něj zkopírovat a vložit následující kódy VBA.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Později budete požádáni o podepsání nového projektu VBA.

• Nejprve vytvořte digitální certifikát pomocí integrovaného nástroje „Digitální certifikáty pro projekty VBA“.
• Poté přiřaďte certifikát tomuto makru, jako na následujícím snímku obrazovky:

7. Později můžete změnit nastavení maker, abyste povolili digitálně podepsaná makra.
8. Nakonec restart Outlook aktivovat nové makro. Od této chvíle, když vyberete e-mail a kliknete na tlačítko „Přeposlat“, bude e-mail najednou přesunut do složky „Přeposlán“.

Vyhněte se nežádoucímu poškození dat PST aplikace Outlook

Jeden z most potíže, které dlouhodobě trápí uživatele Outlooku, je ten, že Outlook je náchylný k poškození. To znamená, utrpení Poškození PST je běžná záležitost. Proto, abyste předešli ztrátě dat aplikace Outlook, měli byste si raději vytvořit konzistentní a aktuální zálohu svých dat PST.

Ú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ě zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com