“快速单击标志”是指单击 Outlook 项目的标志栏时的默认标志。 Outlook 只允许您设置一个快速单击标志，而不管项目类型。 所以，如果你想根据项目类型设置不同的快速点击标志，你可以使用本文介绍的方式。
要设置快速点击标志，您可以右键单击项目的“标志”列，然后选择“设置快速点击”。 然后在弹出的小对话框中，随意选择标志。 默认情况下，Outlook 将为所有类型的项目应用此快速单击标志。 然而，在现实中，大多数用户希望对不同类型的 Outlook 项目应用不同的快速点击标志。 因此，在下文中，我们将通过电子邮件和联系人的示例来教您获取它。
为不同种类的 Outlook 项目设置不同的快速点击标志
- 首先，启动 Outlook VBA 编辑器，并引用“如何在 Outlook 中运行 VBA 代码“。
- 然后，将下面的 VBA 代码复制到“ThisOutlookSession”项目中。
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
Set objContact = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objMail_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objMail.IsMarkedAsTask = True Then
'"Tomorrow" Flag for Emails
objMail.TaskStartDate = Now + 1
objMail.Save
End If
End If
End Sub
Private Sub objContact_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objContact.IsMarkedAsTask = True Then
'"Today" Flag for Contacts
objContact.TaskStartDate = Date & " 17:00"
objContact.Save
End If
End If
End Sub
- 然后，将光标置于“Application_Startup”子程序中，然后按“F5”键激活此宏。
- 最终，您可以尝试一下。
- 选择一封电子邮件，然后单击“标记”列。 立即，“明天”标志将添加到电子邮件中。
- 然后，选中一个联系人并单击“标记”列。 立即，“今天”标志将添加到所选联系人。
禁止恶意邮件
尽管宏对我们在 Outlook 中的工作有很大帮助，但您仍然要注意宏，尤其是来自外部未知电子邮件的宏。 这是因为宏可能包含病毒，可以轻松攻击您的 Outlook 数据。 一旦你的Outlook文件被感染，除了杀毒之外，你还必须修复Outlook文件。 收件箱修复工具一般不会有效果。 您唯一的选择是更强大和更值得信赖的第三方 展望修复 工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com