Ինչպես ավտոմատ տեղափոխել նամակները հատուկ CC ստացողների հետ Outlook-ում

Իրականում, ձեզանից շատերը կարող են հույս ունենալ ստեղծել Outlook-ի կանոն՝ որոշակի CC ստացողների հետ էլեկտրոնային նամակները ավտոմատ կերպով տեղափոխելու համար: Սակայն Outlook-ի կանոնը չի աջակցում CC ստացողների ստուգումը: Այսպիսով, այս հոդվածը ձեզ կսովորեցնի, թե ինչպես դա իրականացնել Outlook VBA-ի միջոցով:

Ակնհայտ է, որ ձեզ համար անհնար է ստեղծել Outlook կանոն՝ կոնկրետ CC հասցեատերեր որոնելու համար: Ինչպես ցույց է տրված հետևյալ սքրինշոթում, ստացված էլ. նամակների համար կարող եք ստուգել միայն արդյոք ձեր սեփական անունը CC վանդակում է: Նմանապես, ուղարկված էլ. նամակների համար նույնիսկ կանոնների պայման չկա՝ ստուգելու CC վանդակը:

Հետևաբար, եթե ցանկանում եք կարգավորել Outlook-ը, որպեսզի ավտոմատ կերպով տեղափոխի նամակները հատուկ CC հասցեատերերի հետ, դուք պետք է այլ միջոցներ փնտրեք: Հետո. այստեղ մենք կսովորեցնենք ձեզ, թե ինչպես հասնել դրան Outlook VBA-ի միջոցով:

Ավտոմատ տեղափոխեք ուղարկված նամակները հատուկ CC ստացողների հետ

1. Նախ, անցեք «Developer» ներդիրին և սեղմեք «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-ի տվյալների հետևողական և արդիական պահուստավորումը: Ավելին, դուք պետք է պահպանեք ա կոռումպացված Outlook-ի վերականգնման գործիք մոտակայքում։ Այն օգտակար կլինի, եթե և՛ կրկնօրինակները, և՛ Scanpst.exe-ը ձախողվեն:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում նորոգում SQL Server mdf ֆայլի սխալ և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com