Si të zhvendosni automatikisht emailet me marrës të veçantë CC në Outlook

Në realitet, shumica prej jush mund të shpresojnë të krijojnë një rregull të Outlook për të lëvizur automatikisht email-et me marrës specifikë të CC. Por rregulli i Outlook nuk mbështet kontrollin e marrësve të CC. Pra, ky artikull do t'ju mësojë se si ta realizoni këtë me Outlook VBA.

Natyrisht, është e pamundur që ju të krijoni një rregull Outlook për të kërkuar marrës të veçantë CC. Siç tregohet në pamjen e mëposhtme të ekranit, për emailet e marra, mund të kontrolloni vetëm nëse emri juaj është në kutinë CC. Në mënyrë të ngjashme, për emailet e dërguara, edhe nuk ka asnjë kusht rregulli për të kontrolluar kutinë CC.

Prandaj, nëse dëshironi të konfiguroni Outlook për të lëvizur automatikisht emailet me marrës të veçantë CC, duhet të kërkoni mjete të tjera. Pastaj. këtu do t'ju mësojmë se si ta arrini atë me anë të Outlook VBA.

Zhvendos automatikisht emailet e dërguara me marrës të veçantë të CC

1. Fillimisht, shkoni te skedari "Zhvilluesi" dhe klikoni në butonin "Visual Basic".
2. Pastaj hapni projektin "ThisOutlookSession" dhe kopjoni kodet e mëposhtme VBA në të.

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. Më pas, duhet të vazhdoni të nënshkruani këtë kod dhe të ndryshoni cilësimet makro si zakonisht.
4. Së fundi, mund të dilni nga dritarja "Visual Basic". Pas kësaj, emailet me marrës të veçantë të CC do të zhvendosen në dosjen e specifikuar të postës.

Zhvendos automatikisht emailet e marra me marrës të veçantë të CC

Tani që kodi i mësipërm VBA synon të zhvendosë emailet e dërguara me marrës të veçantë CC, nëse dëshironi të kërkoni për marrës të veçantë CC në emailet e pranuara dhe më pas ta zhvendosni atë, duhet të përdorni kodet e mëposhtme në vend të tyre.

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

Qëndroni të përgatitur mirë për korrupsionin në Outlook

Megjithëse Outlook është i pasur me karakteristika, ai ende nuk mund të jetë imun ndaj korrupsionit. Prandaj, duhet të jeni vigjilentë ndaj të gjitha rreziqeve të mundshme. Pa dyshim, hapi kritik duhet të jetë krijimi i një kopje rezervë të qëndrueshme dhe të përditësuar për të dhënat e Outlook. Për më tepër, ju duhet të mbani një mjet i korruptuar i rimëkëmbjes së Outlook në afërsi. Do të jetë e dobishme nëse të dyja kopjet rezervë dhe Scanpst.exe dështojnë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server Gabim i skedarit mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com