Як автоматично переміщати електронні листи з певними одержувачами CC в Outlook

Насправді, більшість із вас може сподіватися створити правило Outlook для автоматичного переміщення електронних листів із певними одержувачами копій. Але правило Outlook не підтримує перевірку одержувачів копій. Тому ця стаття навчить вас, як це зробити за допомогою Outlook VBA.

Очевидно, що для вас неможливо створити правило Outlook для пошуку конкретних одержувачів CC. Як показано на наступному знімку екрана, для отриманих електронних листів ви можете лише перевірити, чи є ваше власне ім'я в полі CC. Подібним чином, для надісланих електронних листів навіть не існує умови правила встановлення прапорця CC.

Тому, якщо ви хочете налаштувати Outlook на автоматичне переміщення електронних листів із певними одержувачами CC, вам доведеться шукати інші засоби. Потім. тут ми навчимо вас, як цього досягти за допомогою Outlook VBA.

Автоматично переміщувати надіслані електронні листи з певними одержувачами CC

1. По-перше, перейдіть на вкладку «Розробник» і натисніть кнопку «Visual Basic».
2. Потім відкрийте проект «ThisOutlookSession» та скопіюйте в нього наступні коди 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. Згодом слід продовжувати підписувати цей код та змінювати налаштування макросу, як зазвичай.
4. Нарешті, ви можете вийти з вікна “Visual Basic”. Після цього електронні листи з конкретними одержувачами CC будуть переміщені до зазначеної поштової папки.

Автоматично переміщувати отримані електронні листи з певними одержувачами CC

Тепер, коли вищевказаний код VBA призначений для переміщення надісланих електронних листів із певними одержувачами CC, якщо ви хочете шукати конкретних одержувачів CC в отриманих електронних листах, а потім переміщати його, замість цього слід використовувати такі коди.

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

Тримайте добре підготовлену до корупції в Outlook

Хоча Outlook є багатофункціональним, він все ще не може бути захищений від корупції. Тож слід пильно стежити за усіма потенційними ризиками. Безперечно, важливим кроком має стати послідовне та сучасне резервне копіювання даних Outlook. Крім того, ви повинні тримати a пошкоджений інструмент відновлення Outlook - поблизу. Це стане в нагоді, якщо скасуються як резервні копії, так і Scanpst.exe.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт SQL Server помилка файлу mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com