建立 Outlook 規則後，如果您不想立即執行這些規則，而是希望在特定時間啟動它們，您可以應用本文介紹的方法。
完成 Outlook 規則的編寫後，您需要選擇是否「立即執行此規則」。如果啟用，規則將自動運行，並在 Outlook 運行時持續生效。如果不啟用，則需要手動執行此規則。然而，許多用戶希望規則能夠在特定時間自動運行，而不是立即運行。顯然，Outlook 本身並不提供此功能。因此，您需要尋找其他方法。本文將介紹一種技巧，該技巧利用帶有特定提醒的任務項目和 Outlook VBA 程式碼來實現此目的。
安排特定 Outlook 規則在特定時間運行
- 首先，啟動Outlook程序。
- 然後前往您的默認任務文件夾。
- 接下來，您需要創建具有特定提醒的任務，如下面的屏幕截圖。 另外，這裡有一些關於這一步的注意事項。
- 首先，要創建的任務數量取決於您需要在特定時間運行的規則。
- 其次，提醒次數是指具體規則運行的具體時間。 所以在指定提醒時間時要注意。
- 第三，如果要對重複模式運行特定規則，則需要為任務添加相應的重複。
- 完成創建新任務後，您可以按“Alt + F11”鍵按鈕。
- 隨後，您將進入 Outlook VBA 編輯器窗口。
- 此時需要雙擊左側的“ThisOutlookSession”項目。
Public Sub Application_Reminder(ByVal Item As Object)
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Set objRules = Outlook.Application.Session.DefaultStore.GetRules
If TypeOf Item Is TaskItem Then
'Refer to the subject of the specific task item
If Item.Subject = "Rule: Move Items" Then
'The corresponding specific rule
Set objRule = objRules.Item("Move Specific Items")
With objRule
.Enabled = True
.Execute ShowProgress:=True, Folder:=Session.GetDefaultFolder(olFolderInbox), IncludeSubfolders:=True
End With
MsgBox ("Move Successfully!")
ElseIf Item.Subject = "Rule: Forward Items" Then
Set objRule = objRules.Item("Forward Specific Items")
With objRule
.Enabled = True
.Execute ShowProgress:=True, Folder:=Session.GetDefaultFolder(olFolderInbox), IncludeSubfolders:=True
End With
MsgBox ("Forward Successfully!")
'You can add more as per your needs
End If
objRules.Save
End If
End Sub
- 之後，您需要對新的 VBA 項目進行簽名。
- 稍後您應該更改宏設置以僅啟用數字簽名的宏。
- 從現在開始，當彈出特定任務的提醒時，特定規則將自動運行並起作用。 具體規則運行成功後，您可能會收到如下圖所示的消息。
處理偶爾的 Outlook 問題
由於 Outlook 容易出錯，因此您需要在 Outlook 數據保護上花費大量精力。 因此，謹慎的做法是準備一份信譽良好且經過驗證的 Outlook修復 工具，例如 DataNumen Outlook Repair. 當您遇到嚴重的 Outlook 問題時，它會很有幫助。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 固定 SQL Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM