Kaip automatiškai perkelti el. laiškus su konkrečiais CC gavėjais programoje „Outlook“.

Iš tikrųjų dauguma jūsų galite tikėtis sukurti „Outlook“ taisyklę, kuri automatiškai perkeltų el. laiškus su konkrečiais CC gavėjais. Tačiau „Outlook“ taisyklė nepalaiko CC gavėjų tikrinimo. Todėl šiame straipsnyje sužinosite, kaip tai įgyvendinti naudojant „Outlook VBA“.

Akivaizdu, kad jūs negalite sukurti „Outlook“ taisyklės, kad galėtumėte ieškoti konkrečių CC gavėjų. Kaip parodyta toliau pateiktoje ekrano kopijoje, gautų el. laiškų atveju galite tik patikrinti, ar jūsų vardas yra laukelyje CC. Panašiai siunčiamiems el. laiškams net nėra taisyklės sąlygos pažymėti CC laukelį.

Todėl, jei norite sukonfigūruoti „Outlook“, kad el. laiškai su konkrečiais CC gavėjais būtų perkelti automatiškai, turite ieškoti kitų priemonių. Tada. Čia mes išmokysime jus, kaip tai pasiekti naudojant Outlook VBA.

Automatiškai perkelkite išsiųstus el. laiškus su konkrečiais CC gavėjais

1. Pirmiausia eikite į skirtuką „Kūrėjas“ ir spustelėkite mygtuką „Visual Basic“.
2. Tada atidarykite projektą „ThisOutlookSession“ ir nukopijuokite į jį šiuos VBA kodus.

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. Vėliau turėtumėte pasirašyti šį kodą ir įprastai pakeisti makrokomandos nustatymus.
4. Galiausiai galite išeiti iš „Visual Basic“ lango. Po to el. laiškai su konkrečiais CC gavėjais bus perkelti į nurodytą pašto aplanką.

Automatiškai perkelkite gautus el. laiškus su konkrečiais CC gavėjais

Dabar, kai aukščiau pateiktas VBA kodas yra skirtas perkelti išsiųstus el. laiškus su konkrečiais CC gavėjais, jei norite ieškoti konkrečių CC gavėjų gautuose el. laiškuose ir perkelti juos, turėtumėte naudoti šiuos kodus.

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

Būkite gerai pasiruošę „Outlook“ korupcijai

Nors „Outlook“ yra daug funkcijų, ji vis tiek negali būti apsaugota nuo korupcijos. Todėl turėtumėte būti budrūs, kad išvengtumėte visų galimų pavojų. Be abejo, svarbiausias žingsnis turi būti nuoseklios ir naujausios „Outlook“ duomenų atsarginės kopijos kūrimas. Be to, turėtumėte išlaikyti a sugadintas Outlook atkūrimo įrankis netoliese. Tai bus naudinga, jei nepavyks sukurti atsarginių kopijų ir Scanpst.exe.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server mdf failo klaida ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com