Outlook'ta Belirli CC Alıcılarına Sahip E-postaları Otomatik Olarak Taşıma

Gerçekte, çoğunuz belirli CC alıcılarına sahip e-postaları otomatik olarak taşımak için bir Outlook kuralı oluşturmayı umuyor olabilirsiniz. Ancak Outlook kuralı, CC alıcılarını kontrol etmeyi desteklemiyor. Bu nedenle, bu makale size bunu Outlook VBA ile nasıl gerçekleştireceğinizi öğretecektir.

Açıkçası, belirli CC alıcılarını aramak için bir Outlook kuralı oluşturmanız imkansızdır. Aşağıdaki ekran görüntüsünde gösterildiği gibi, alınan e-postalar için, CC kutusunda yalnızca kendi adınızın olup olmadığını kontrol edebilirsiniz. Benzer şekilde, gönderilen e-postalar için CC kutusunu işaretlemek için bir kural koşulu olmasa bile.

Bu nedenle, Outlook'u belirli CC alıcılarına sahip e-postaları otomatik olarak taşıyacak şekilde yapılandırmak isterseniz, başka yollar aramalısınız. Daha sonra. burada size Outlook VBA aracılığıyla bunu nasıl başaracağınızı öğreteceğiz.

Belirli CC Alıcılarıyla Gönderilmiş E-postaları Otomatik Olarak Taşı

1. Öncelikle “Geliştirici” sekmesine dönün ve “Visual Basic” butonuna tıklayın.
2. Ardından “ThisOutlookSession” projesini açın ve aşağıdaki VBA kodlarını içine 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. Ardından, bu kodu imzalamaya devam etmeli ve makro ayarlarını her zamanki gibi değiştirmelisiniz.
4. Son olarak, “Visual Basic” penceresinden çıkabilirsiniz. Bundan sonra, belirli CC alıcılarına sahip e-postalar, belirtilen posta klasörüne taşınacaktır.

Alınan E-postaları Belirli CC Alıcılarıyla Otomatik Olarak Taşı

Artık yukarıdaki VBA kodu, belirli CC alıcılarına sahip gönderilen e-postaları taşımayı amaçladığına göre, alınan e-postalarda belirli CC alıcılarını aramak ve ardından taşımak istiyorsanız, bunun yerine aşağıdaki kodları kullanmalısınız.

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 Bozulmasına Karşı Hazırlıklı Olun

Outlook zengin özelliklere sahip olsa da, yine de bozulmaya karşı bağışık olamaz. Bu nedenle olası tüm risklere karşı uyanık olmalısınız. Şüphesiz kritik adım, Outlook verileri için tutarlı ve güncel bir yedekleme yapmak olmalıdır. Ayrıca, bir bozuk Outlook kurtarma aracı çevrede. Hem yedeklemeler hem de Scanpst.exe başarısız olursa kullanışlı olacaktır.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL Server mdf dosya hatası ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com