Outlook允許用戶使用自定義的後續提醒和截止日期來標記電子郵件。 但是您需要手動選擇並啟用它。 本文將教您如何通過VBA自動實現它。
Outlook為我們提供了“標記”功能，可以使我們更方便地跟踪關鍵電子郵件。 它不僅可以使我們發送電子郵件，而且還允許我們選擇首選標記圖標，指定特定的截止日期，甚至為電子郵件指定自定義提醒。 毫無疑問，它非常方便。
但是許多用戶仍然有另一個願望。 他們希望Outlook可以自動為標記的電子郵件指定相對固定的自定義截止日期和提醒時間，例如今天后3天，今天后1周等。說實話，Outlook沒有這種本機功能。 因此，您需要使用其他方法，例如VBA。 在這裡，我們將教您如何使用Outlook VBA實現此要求。 繼續閱讀以獲取詳細信息。
標記Outlook電子郵件時自動設置提醒和到期日期
- 首先，啟動Outlook程序。
- 然後，您可以按“ Alt + F11”快捷鍵來訪問VBA編輯器。
- 接下來，在下面的“ Microsoft Visual Basic for Applications”窗口中，您需要雙擊左側的“ ThisOutlookSession”項目。
- 隨後，將下面的VBA代碼複製並粘貼到其中。
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- 在那之後，您應該像平常一樣簽署此代碼。
- 稍後退出VBA編輯器，然後繼續更改Outlook宏設置以僅啟用數字簽名的宏。
- 最後，您需要重新啟動 Outlook 以啟動新巨集。之後，您就可以嘗試使用了。
- 單擊電子郵件項目尾部的標誌圖標。
- 標記將立即自動更改為“下週標記”圖標。
- 並且其到期日和提醒時間將根據您在代碼中的預設進行設置。
如果遇到Outlook崩潰，請不要驚慌
當 Outlook 意外崩潰時，大多數人都會驚慌失措，擔心 Outlook 資料會損壞。但實際上，如果您事先做好了充分的預防措施，就無需驚慌。最重要的措施是定期備份 PST 檔案。此外，您還可以藉助一款優秀的工具來復原資料。 損壞的Outlook 數據，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM