Kako samodejno premakniti e-pošto z določenimi prejemniki CC v Outlooku

V resnici večina od vas morda upa, da boste ustvarili pravilo za Outlook, ki bo samodejno premikalo e-poštna sporočila z določenimi prejemniki kopije. Vendar pravilo za Outlook ne podpira preverjanja prejemnikov kopije. Zato vas bo ta članek naučil, kako to storiti z Outlook VBA.

Očitno je nemogoče ustvariti Outlookovo pravilo za iskanje določenih prejemnikov CC. Kot je prikazano na naslednjem posnetku zaslona, ​​lahko za prejeta e-poštna sporočila preverite le, ali je vaše ime v polju CC. Podobno tudi za poslana e-poštna sporočila ni nobenega pravila, da potrdite polje CC.

Če torej želite Outlook konfigurirati za samodejno premikanje e-poštnih sporočil z določenimi prejemniki CC, morate poiskati druge načine. Potem. tukaj vas bomo naučili, kako to doseči s pomočjo Outlook VBA.

Samodejno premakni poslana e-poštna sporočila z določenimi prejemniki CC

1. Najprej pojdite na zavihek »Razvijalec« in kliknite gumb »Visual Basic«.
2. Nato odprite projekt »ThisOutlookSession« in vanj kopirajte naslednje kode 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. Nato nadaljujte s podpisom te kode in spremenite nastavitve makra kot običajno.
4. Nazadnje lahko zapustite okno »Visual Basic«. Nato bodo e-poštna sporočila z določenimi prejemniki CC premaknjena v določeno poštno mapo.

Samodejno premakni prejeta e-poštna sporočila z določenimi prejemniki CC

Zdaj, ko je zgornja koda VBA namenjena premikanju poslanih e-poštnih sporočil z določenimi prejemniki CC, če želite poiskati določene prejemnike CC v prejetih e-poštnih sporočilih in jih nato premakniti, namesto tega uporabite naslednje kode.

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

Bodite dobro pripravljeni na pokvarjenost Outlooka

Čeprav je Outlook bogat s funkcijami, še vedno ne more biti imun na poškodbe. Zato morate biti pozorni na vsa možna tveganja. Nedvomno mora biti ključni korak izdelava dosledne in posodobljene varnostne kopije Outlookovih podatkov. Poleg tega bi morali obdržati a poškodovano orodje za obnovitev Outlooka v bližini. Prišlo bo prav, če varnostne kopije in Scanpst.exe ne uspejo.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo SQL Server napaka datoteke mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com