每当将特定类别分配给 Outlook 中的电子邮件时如何自动创建任务

展望解决方案 2025 年 9 月 29 日
立即分享：

本文将教您如何在通过 Outlook VBA 为电子邮件分配特定颜色类别时自动创建新任务。

过去，当我收到一封涉及任务的邮件时，我通常会为这封邮件指定“任务”类别，然后继续创建一个新的相关任务。 说实话，这个过程确实很费时间。 我必须提前记下所有信息，因为新任务必须要求这些详细信息。 但是现在，在 VBA 的帮助下，每当我为电子邮件指定“任务”类别时，Outlook 可以自动创建一个新任务。 如果您对本技巧感兴趣，请继续阅读以详细了解它们。

每当将特定类别分配给电子邮件时自动创建任务

  1. 首先，启动 Outlook 并切换到“开发人员”选项卡。
  2. 在此选项卡上，您可以找到并单击“Visual Basic”按钮。
  3. 然后将打开一个新窗口“Microsoft Visual Basic for Applications”。 在其中，您应该双击“ThisOutlookSession”项目。
  4. 接下来，您应该将以下 VBA 代码复制到“ThisOutlookSession”项目窗口中。
Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

复制并粘贴 ThisOutlookSession 中的代码

  1. 之后，您将需要签署此代码。 您可以使用 Office 内置实用程序——“VBA 项目数字证书”来实现它。 更详细的步骤可以参考本文中的第2步“在 Outlook 中自动将垃圾邮件标记为已读的 2 个步骤。VBA 项目的数字证书
  2. 稍后为了防止外部恶意宏，您应该转到“信任中心”并将宏设置更改为仅启用数字签名的宏。更改宏设置
  3. 最终你可以尝试一下。
  • 选择邮件项目并为其分配特定类别，如下面的屏幕截图所示：将特定类别分配给电子邮件
  • 立即，将自动创建一个新任务并显示在新的弹出窗口中。新任务

密切关注可疑电子邮件中的恶意宏

阻止所有外部未签名的宏非常重要，因为它们可能包含病毒或恶意软件，可以轻松损坏您的 Outlook 数据。 因此，用户应密切注意宏附带的电子邮件。 此外，强烈建议投资于卓越的 损坏的 Outlook 数据修复工具， 喜欢 DataNumen Outlook Repair. 当您遇到意外的 Outlook 崩溃时，它可以为您提供帮助。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 SQL mdf 错误 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。