Kuidas Outlookis konkreetsete CC adressaatidega e-kirju automaatselt teisaldada

Tegelikkuses loodab enamik teist luua Outlooki reegli, mis automaatselt teisaldab kindlate koopiasaajatega meilid. Kuid Outlooki reegel ei toeta koopiasaajate kontrollimist. Seega õpetab see artikkel teile, kuidas seda Outlook VBA abil realiseerida.

Ilmselgelt on teil võimatu luua Outlooki reeglit konkreetsete CC adressaatide otsimiseks. Nagu on näidatud järgmisel ekraanipildil, saate vastuvõetud meilide puhul kontrollida ainult seda, kas koopiakastis on teie enda nimi. Samamoodi ei ole saadetud e-kirjade puhul isegi reegli tingimust CC kasti märkimiseks.

Seega, kui soovite konfigureerida Outlooki teatud CC-saajatega meilisõnumeid automaatselt teisaldama, peate otsima muid vahendeid. Siis. Siin õpetame teile, kuidas seda Outlook VBA abil saavutada.

Teisaldage saadetud meilid automaatselt konkreetsete CC-saajatega

1. Kõigepealt minge vahekaardile "Arendaja" ja klõpsake nuppu "Visual Basic".
2. Seejärel avage projekt "ThisOutlookSession" ja kopeerige sinna järgmised VBA koodid.

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. Seejärel peaksite jätkama selle koodi allkirjastamist ja muutma makro sätteid nagu tavaliselt.
4. Lõpuks saate aknast "Visual Basic" väljuda. Seejärel teisaldatakse konkreetsete CC adressaatidega meilid määratud kirjakausta.

Teisaldage vastuvõetud meilid automaatselt konkreetsete CC adressaatidega

Nüüd, kui ülaltoodud VBA-kood on mõeldud konkreetsete CC-saajatega saadetud meilide teisaldamiseks, kui soovite vastuvõetud meilidest otsida konkreetseid CC-saajaid ja seejärel neid teisaldada, peaksite selle asemel kasutama järgmisi koode.

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

Olge Outlooki korruptsiooniks hästi ette valmistatud

Kuigi Outlook on funktsioonirikas, ei saa see siiski olla korruptsiooni eest kaitstud. Seetõttu peaksite olema valvas kõigi võimalike ohtude suhtes. Kahtlemata peab kriitiliseks sammuks olema Outlooki andmete järjepidev ja ajakohane varukoopia tegemine. Lisaks peaksite hoidma a rikutud Outlooki taastamise tööriist läheduses. See on kasulik, kui nii varukoopiad kui ka Scanpst.exe ebaõnnestuvad.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont SQL Server mdf-faili viga ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom