Outlook VBA көмегімен барлық пошта қалталарында арнайы ережені қалай жылдам іске қосу керек

Әдепкі бойынша, ережені бір уақытта тек бір қалтада іске қосуға болады. Бұл мақалада біз сізге барлық пошта қалталарында белгілі бір ережені іске қосу үшін VBA кодының бір бөлігін қолдануды үйретеміз.

Outlook пайдаланушыларға ережені қолмен іске қосуға мүмкіндік береді. Сіз «Ережелер мен ескертулер» диалогтық терезесіне кіріп, «Ережелерді қазір іске қосу» түймесін басуға болады. Келесі диалогтық терезеде белгілі бір ережені таңдап, осы ережені іске қосқыңыз келетін қалтаны таңдаңыз. Бірақ, егер сіз барлық пошта қалталарында ережені жылдам іске қосқыңыз келсе, келесі VBA кодын қолдана аласыз.

Барлық пошта қалталарында арнайы ережені жылдам іске қосыңыз

1. Бірінші кезекте, сtarсіздің Outlook бағдарламаңыз.
2. Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
3. Содан кейін пайда болатын «Microsoft Visual Basic for Applications» терезесінде сіз қолданылмайтын модульді ашуыңыз керек.
4. Кейін төмендегі VBA кодын осы модуль терезесіне көшіріңіз. Сонымен қатар, сіз өзіңіздің жеке жағдайыңызға негізделген кейбір жолдарды өзгертуіңіз керек, мысалы ереже атауы.

Sub RunSpecificRule_AllMailFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

    MsgBox "Complete!", vbExclamation + vbOKOnly, "Run Rule "
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objRules As Outlook.Rules
    Dim objRule As Outlook.Rule
    Dim objSubfolder As Outlook.Folder

    Set objRules = Outlook.Application.Session.DefaultStore.GetRules
    'Change the rule name as per your actual case
    Set objRule = objRules.Item("Move Mails to Temp")
 
    On Error Resume Next
    'Only work on non-empty Mail folder
    If objCurrentFolder.Items.count > 0 And objCurrentFolder.DefaultItemType = olMailItem Then
       With objRule
            .Enabled = True
            .Execute ShowProgress:=True, Folder:=objCurrentFolder, IncludeSubfolders:=True
       End With
    End If
 
    'Process subfolders recursively
    If objCurrentFolder.folders.count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Осыдан кейін сіз макростың рұқсат етілгеніне көз жеткізу үшін Outlook макростарының параметрлерін тексеруіңіз керек.
6. Ақыр соңында сіз көріңіз.

• «RunSpecificRule_AllMailFolders» қосалқы бағдарламасын нұқыңыз.
• Содан кейін осы кодты іске қосу үшін F5 пернесін басыңыз.
• Содан кейін макрос бірден іске қосылады.
• Ол аяқталғаннан кейін сізге келесі скриншот сияқты хабарлама келеді. Бұл ереже аяқталғанын білдіреді.

Зиянды макростарға назар аударыңыз

Барлығымыз білетіндей, зиянды электрондық хаттар жиілеп кетті. Мұндай хаттар көбінесе зиянды макростармен бірге жүреді. Осылайша, егер сіз Outlook макро қауіпсіздік деңгейін төмен деңгейге қойсаңыз, жасырын вирустар мен зиянды бағдарламалардан сақ болуыңыз керек. Сонымен қатар, PST түзетудің қуатты құралын ұстаған жөн DataNumen Outlook Repair. Бұл қабілетті жөндеу PST файлды теріңіз және сіз үшін максималды деректерді шығарыңыз.

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

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