Jak automaticky přesouvat e-maily s konkrétními příjemci CC v aplikaci Outlook

Ve skutečnosti většina z vás možná doufá, že vytvoří pravidlo Outlooku pro automatické přesouvání e-mailů s konkrétními příjemci kopie. Pravidlo Outlooku ale nepodporuje kontrolu příjemců kopie. Tento článek vás proto naučí, jak toho dosáhnout pomocí Outlook VBA.

Je zřejmé, že je nemožné vytvořit pravidlo aplikace Outlook pro vyhledávání konkrétních příjemců CC. Jak je znázorněno na následujícím snímku obrazovky, u přijatých e-mailů můžete pouze zkontrolovat, zda je vaše vlastní jméno v poli CC. Podobně u odeslaných e-mailů není ani podmínka pravidla pro zaškrtnutí políčka CC.

Pokud tedy chcete nakonfigurovat Outlook tak, aby automaticky přesouval e-maily s konkrétními příjemci CC, musíte hledat jiné prostředky. Pak. zde vás naučíme, jak toho dosáhnout pomocí aplikace Outlook VBA.

Automatické přesunutí odeslaných e-mailů se specifickými příjemci CC

1. Nejprve přejděte na kartu „Vývojář“ a klikněte na tlačítko „Visual Basic“.
2. Poté otevřete projekt „ThisOutlookSession“ a zkopírujte do něj následující kódy VBA.

Public WithEvents olItems As Outlook.Items

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

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

3. Následně byste měli pokračovat v podepsání tohoto kódu a změnit nastavení maker jako obvykle.
4. Nakonec můžete opustit okno „Visual Basic“. Poté budou e-maily s konkrétními příjemci CC přesunuty do určené složky pošty.

Automaticky přesouvat přijaté e-maily se specifickými příjemci CC

Nyní, když je výše uvedený kód VBA zaměřen na přesun odeslaných e-mailů s konkrétními příjemci CC, Chcete-li vyhledat konkrétní příjemce CC v přijatých e-mailech a poté je přesunout, měli byste místo toho použít následující kódy.

Public WithEvents olItems As Outlook.Items

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

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

Buďte dobře připraveni na korupci v aplikaci Outlook

Ačkoli je Outlook bohatý na funkce, stále nemůže být imunní vůči poškození. Měli byste tedy být ostražití před všemi možnými riziky. Rozhodujícím krokem bezpochyby musí být vytvoření konzistentní a aktuální zálohy dat aplikace Outlook. Dále byste měli mít poškozený nástroj pro obnovení aplikace Outlook v okolí. Bude se hodit, pokud selžou zálohy i Scanpst.exe.

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