Bilang default, maaari ka lamang magpatakbo ng isang panuntunan sa isang folder nang paisa-isa. Sa artikulong ito, tuturuan ka namin kung paano magamit ang isang piraso ng VBA code upang magpatakbo ng isang tukoy na panuntunan sa lahat ng mga folder ng mail.
Pinapayagan ng Outlook ang mga gumagamit na magpatakbo ng panuntunan nang manu-mano. Maaari mo lamang i-access ang dialog box na "Mga Panuntunan at Alerto" at pindutin ang pindutang "Patakbuhin ang Mga Panuntunan Ngayon". Sa kasunod na kahon ng dayalogo, pumili ng isang tukoy na panuntunan at pumili ng isang folder kung saan nais mong patakbuhin ang panuntunang ito. Ngunit, kung nais mong mabilis na magpatakbo ng isang panuntunan sa lahat ng mga folder ng mail, maaari mong gamitin ang sumusunod na VBA code.
Mabilis na Patakbuhin ang isang Tiyak na Rule sa Lahat ng Mga Folder ng Mail
- Sa unang lugar, start iyong programa sa Outlook.
- Pagkatapos sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
- Susunod sa umuusbong na window ng "Microsoft Visual Basic for Applications", dapat mong buksan ang isang hindi ginagamit na module.
- Kasunod, kopyahin ang VBA code sa ibaba sa window ng module na ito. Dagdag pa, dapat mong baguhin ang ilang mga linya batay sa iyong sariling kaso, tulad ng pangalan ng panuntunan.
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
- Pagkatapos nito, dapat mong suriin ang iyong mga setting ng macro sa Outlook, tinitiyak na pinapayagan ang macro.
- Sa paglaon maaari kang magkaroon ng isang pagsubok.
- I-click lamang sa subroutine na "RunSpecificRule_AllMailFolders".
- Pagkatapos ay pindutin ang F5 key button upang ma-trigger ang code na ito.
- Susunod tatakbo kaagad ang macro.
- Matapos itong makumpleto, makakakuha ka ng isang mensahe, tulad ng sumusunod na screenshot. Ito ay tumutukoy sa tuntunin ay natapos na.
Abangan ang Nakakahamak na Macros
Tulad ng alam nating lahat, ang mga nakakahamak na email ay lalong naging talamak. Ang mga nasabing email ay madalas na nagdadala ng nakakahamak na macros. Sa gayon, kung itinakda mo ang antas ng iyong seguridad ng Outlook sa mababang, kailangan mong mag-ingat sa mga nakatagong mga virus at malware. Bukod dito, masinop na humawak ng isang malakas na tool sa pag-aayos ng PST, tulad ng DataNumen Outlook Repair. May kakayahang ayusin ang PST mag-file at kumuha ng maximum na data para sa iyo nang hindi pinagpapawisan.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa