Ako automaticky presúvať e-maily s konkrétnymi príjemcami CC v programe Outlook

V skutočnosti väčšina z vás možno dúfa, že vytvorí pravidlo programu Outlook na automatické presúvanie e-mailov s konkrétnymi príjemcami kópie. Pravidlo programu Outlook však nepodporuje kontrolu príjemcov kópie. Tento článok vás preto naučí, ako to dosiahnuť pomocou Outlook VBA.

Je zrejmé, že je nemožné vytvoriť pravidlo Outlooku na prehľadávanie konkrétnych príjemcov CC. Ako je znázornené na nasledujúcej snímke obrazovky, v prípade prijatých e-mailov môžete skontrolovať, či je vaše meno v poli CC. Podobne pre odoslané e-mailové adresy nie je ani podmienka pravidla začiarknuť políčko CC.

Preto, ak chcete nakonfigurovať program Outlook tak, aby automaticky presúval e-maily s konkrétnymi príjemcami CC, musíte hľadať iné prostriedky. Potom. tu vás naučíme, ako to dosiahnuť pomocou aplikácie Outlook VBA.

Automatické presunutie odoslaných e-mailov s konkrétnymi príjemcami CC

1. Najskôr sa obráťte na kartu „Vývojár“ a kliknite na tlačidlo „Visual Basic“.
2. Potom otvorte projekt „ThisOutlookSession“ a skopírujte doň nasledujúce 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ásledne by ste mali pristúpiť k podpísaniu tohto kódu a obvyklým spôsobom zmeniť nastavenia makra.
4. Nakoniec môžete opustiť okno „Visual Basic“. Potom sa e-maily s konkrétnymi príjemcami CC presunú do zadaného priečinka pošty.

Automaticky presuňte prijaté e-maily s konkrétnymi príjemcami CC

Teraz, keď je vyššie uvedený kód VBA zameraný na presun odoslaných e-mailov s konkrétnymi príjemcami CC, Ak chcete vyhľadať konkrétnych príjemcov CC v prijatých e-mailoch a potom ich presunúť, mali by ste namiesto toho použiť nasledujúce 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

Pripravte sa na korupciu v programe Outlook

Aj keď je program Outlook bohatý na funkcie, stále nemôže byť odolný voči korupcii. Mali by ste byť preto ostražití voči všetkým potenciálnym rizikám. Rozhodným krokom nepochybne musí byť vytvorenie konzistentnej a aktuálnej zálohy údajov Outlooku. Ďalej by ste si mali ponechať a poškodený nástroj na obnovenie programu Outlook v blízkom okolí. Bude sa hodiť, ak zlyhajú zálohy aj program Scanpst.exe.

Ú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 oprava SQL Server chyba súboru mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S