Электрондық поштаны Outlook бағдарламасында нақты CC алушылармен қалай автоматты түрде жылжыту керек

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Шын мәнінде, көпшілігіңіз белгілі бір CC алушылары бар электрондық пошталарды автоматты түрде жылжыту үшін Outlook ережесін жасауды үміттенуіңіз мүмкін. Бірақ Outlook ережесі CC алушыларын тексеруді қолдамайды. Сондықтан бұл мақалада Outlook VBA көмегімен оны қалай жүзеге асыру керектігі үйретіледі.

Сіздің нақты алушыларды іздеу үшін Outlook ережесін құру мүмкін емес екені анық. Келесі скриншотта көрсетілгендей, алынған электрондық хаттар үшін сіз өзіңіздің атыңыздың СС өрісінде бар-жоғын тексере аласыз. Сол сияқты, жіберілген электрондық пошта үшін, 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

Жіберілген электронды хаттарды арнайы CC алушыларымен автоматты түрде жылжытыңыз

  1. Кейіннен сіз осы кодқа қол қойып, макро параметрлерін әдеттегідей өзгертуіңіз керек.
  2. Соңында «Visual Basic» терезесінен шығуға болады. Осыдан кейін нақты СС алушылары бар электрондық пошта көрсетілген пошта қалтасына көшіріледі.

Алынған электрондық хаттарды нақты CC алушыларымен автоматты түрде жылжыту

Енді жоғарыда келтірілген VBA коды жіберілген электрондық пошта хабарларын нақты СС алушыларымен жылжытуға бағытталған, егер сіз алынған электрондық пошта хабарларынан нақты СС алушыларын іздеп, оны жылжытқыңыз келсе, оның орнына келесі кодтарды қолданған жөн.

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

Алынған электрондық хаттарды нақты CC алушыларымен автоматты түрде жылжыту

Перспективадағы сыбайлас жемқорлыққа жақсы дайын болыңыз

Outlook бағдарламасы бай болса да, ол әлі де сыбайлас жемқорлыққа қарсы тұра алмайды. Сондықтан сіз барлық ықтимал тәуекелдерден сақ болуыңыз керек. Сөзсіз, маңызды қадам Outlook деректерінің дәйекті және заманауи сақтық көшірмесін жасау болуы керек. Сонымен қатар, а бүлінген Outlook қалпына келтіру құралы жақын жерде. Егер сақтық көшірмелер де, Scanpst.exe де сәтсіз болса, бұл сізге пайдалы болады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу SQL Server mdf файлының қатесі және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.