Outlook-da xüsusi CC alıcıları ilə e-poçtları avtomatik olaraq necə köçürmək olar

Əslində, əksəriyyətiniz müəyyən CC alıcıları olan e-poçtları avtomatik olaraq köçürmək üçün Outlook qaydası yaratmağa ümid edə bilərsiniz. Lakin Outlook qaydası CC alıcılarının yoxlanılmasını dəstəkləmir. Beləliklə, bu məqalə sizə Outlook VBA ilə bunu necə həyata keçirəcəyinizi öyrədəcək.

Aydındır ki, xüsusi CC alıcılarını axtarmaq üçün Outlook qaydası yaratmaq mümkün deyil. Aşağıdakı ekran görüntüsündə göstərildiyi kimi, alınan e-poçtlar üçün yalnız öz adınızın CC qutusunda olub olmadığını yoxlaya bilərsiniz. Eynilə, göndərilən e-poçtlar üçün hətta CC qutusunu yoxlamaq üçün heç bir qayda şərti yoxdur.

Buna görə də, Outlook-u xüsusi CC alıcıları ilə e-poçtları avtomatik olaraq köçürmək üçün konfiqurasiya etmək istəyirsinizsə, başqa vasitələr axtarmalısınız. Sonra. burada Outlook VBA vasitəsilə buna necə nail olmağı öyrədəcəyik.

Göndərilən e-poçtları xüsusi CC alıcıları ilə avtomatik köçürün

1. Əvvəlcə "Developer" sekmesine keçin və "Visual Basic" düyməsini basın.
2. Sonra “ThisOutlookSession” layihəsini açın və aşağıdakı VBA kodlarını ona kopyalayın.

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. Daha sonra, bu kodu imzalamağa davam etməli və həmişəki kimi makro parametrlərini dəyişdirməlisiniz.
4. Nəhayət, “Visual Basic” pəncərəsindən çıxa bilərsiniz. Bundan sonra, xüsusi CC alıcıları olan e-poçtlar göstərilən poçt qovluğuna köçürüləcək.

Alınan e-poçtları xüsusi CC alıcıları ilə avtomatik köçürün

İndi yuxarıdakı VBA kodu göndərilən e-poçtları xüsusi CC alıcıları ilə köçürmək məqsədi daşıyır, əgər qəbul edilən e-poçtlarda xüsusi CC alıcılarını axtarmaq və sonra onu köçürmək istəyirsinizsə, bunun əvəzinə aşağıdakı kodlardan istifadə etməlisiniz.

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 korrupsiyasına yaxşı hazır olun

Outlook zəngin xüsusiyyətlərə malik olsa da, hələ də korrupsiyaya qarşı immun ola bilməz. Odur ki, bütün potensial risklərə qarşı diqqətli olmalısınız. Şübhəsiz ki, kritik addım Outlook məlumatlarının ardıcıl və müasir ehtiyat nüsxəsini çıxarmaq olmalıdır. Bundan əlavə, siz saxlamaq lazımdır zədələnmiş Outlook bərpa aləti yaxınlığında. Həm ehtiyat nüsxələri, həm də Scanpst.exe uğursuz olarsa, bu faydalı olacaq.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf fayl xətası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com