Kako automatski premjestiti e-poštu s određenim CC primateljima u programu Outlook

U stvarnosti, većina vas se možda nada da će stvoriti pravilo u Outlooku za automatsko premještanje e-poruka s određenim primateljima CC-a. Ali pravilo u Outlooku ne podržava provjeru primatelja CC-a. Stoga će vas ovaj članak naučiti kako to ostvariti pomoću Outlook VBA-e.

Očito je nemoguće stvoriti Outlook pravilo za pretraživanje određenih CC primatelja. Kao što je prikazano na sljedećoj snimci zaslona, ​​za primljene poruke e-pošte možete provjeriti samo nalazi li se vaše ime u okviru CC. Slično, za poslane e-poruke, čak i ne postoji uvjet pravila za označavanje okvira CC.

Stoga, ako želite konfigurirati Outlook da automatski premješta e-poštu s određenim CC primateljima, morate potražiti drugi način. Zatim. ovdje ćemo vas naučiti kako to postići pomoću programa Outlook VBA.

Automatski premjestite poslane e-poruke s određenim CC primateljima

1. Najprije otvorite karticu "Developer" i kliknite gumb "Visual Basic".
2. Zatim otvorite projekt “ThisOutlookSession” i u njega kopirajte sljedeće VBA kodove.

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. Zatim biste trebali nastaviti s potpisivanjem ovog koda i promijeniti postavke makronaredbe kao i obično.
4. Na kraju, možete izaći iz prozora "Visual Basic". Nakon toga, e-poruke s određenim CC primateljima bit će premještene u navedenu mapu pošte.

Automatski premjestite primljenu e-poštu s određenim CC primateljima

Sada kada gornji VBA kod ima za cilj premjestiti poslane e-poruke s određenim CC primateljima, ako želite potražiti određene CC primatelje u primljenim e-porukama i zatim ih premjestiti, trebali biste umjesto toga upotrijebiti sljedeće kodove.

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

Budite dobro pripremljeni za korupciju u Outlooku

Iako je Outlook bogat značajkama, još uvijek ne može biti imun na korupciju. Stoga biste trebali biti oprezni protiv svih potencijalnih rizika. Bez sumnje, ključni korak mora biti izrada dosljedne i ažurne sigurnosne kopije za Outlook podatke. Nadalje, trebali biste zadržati a oštećen Outlook alat za oporavak u blizini. Dobro će doći ako i sigurnosne kopije i Scanpst.exe zakažu.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak SQL Server greška mdf datoteke i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com