Outlook VBA ашиглан бүх имэйл хавтас дахь тодорхой дүрмийг хэрхэн хурдан ажиллуулах вэ

Анхдагч байдлаар, та нэг удаад зөвхөн нэг хавтсанд дүрмийг ажиллуулж болно. Энэ нийтлэлд бид VBA кодыг ашиглан бүх имэйл хавтсанд тодорхой дүрмийг хэрхэн ашиглахыг заах болно.

Outlook нь хэрэглэгчдэд дүрмийг гараар ажиллуулах боломжийг олгодог. Та зүгээр л "Дүрэм ба анхааруулга" харилцах цонхонд нэвтэрч, "Дүрэмийг одоо ажиллуулах" товчийг дарна уу. Дараагийн харилцах цонхонд тодорхой дүрмийг сонгоод, энэ дүрмийг ажиллуулахыг хүссэн хавтасаа сонгоно уу. Гэхдээ хэрэв та бүх мэйл хавтсанд дүрмийг хурдан ажиллуулахыг хүсвэл дараах VBA кодыг ашиглаж болно.

Бүх захидлын хавтас доторх тодорхой дүрмийг хурдан ажиллуул

1. Эхний ээлжинд start таны 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. Энэ нь боломжтой засварын газар файл хийж, хөлсөө гаргалгүйгээр хамгийн их өгөгдлийг гаргаж аваарай.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com