如何在 Outlook 中将任务分别批量分配给多个人

展望解决方案 2025 年 9 月 29 日

出于某些原因，例如保密或隐私，当将任务分配给多人时，您可能希望单独发送。现在，在这里我们将介绍一种获取它的方法。

分配任务时，如果填写多个收件人，点击“发送”，会提示发送给多人的任务不会更新。因此，如果您想及时获得任务更新，最好将任务分别分配给多个接收者。

当然，抛开任务更新的考虑，出于保密的考虑，需要将一个任务分别发给多人。通常，您必须创建单独的任务，添加收件人并一个一个发送。显然很麻烦。那么，接下来，我们将向您介绍一种更有效的方法。

批量将任务分别分配给多个人

首先，按“Alt + F11”打开 Outlook VBA 编辑器。
接下来，在“Microsoft Visual Basic for Applications”窗口中，将 VBA 代码复制到空白模块或项目中。

Sub AssignTaskToMultipleContactsSeparately()
    Dim objCurrentTask As Outlook.TaskItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim objCopiedTask As Outlook.TaskItem
    Dim i As Long
    Dim strRecipientName As String
 
    Set objCurrentTask = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objCurrentTask Is Nothing Then
       Set objRecipients = objCurrentTask.Recipients
 
       For Each objRecipient In objRecipients
           Set objCopiedTask = objCurrentTask.Copy
 
           For i = objCopiedTask.Recipients.Count To 1 Step -1
               objCopiedTask.Recipients.Remove (i)
           Next
 
           strRecipientName = Split(objRecipient.Address, "@")(0)
           strRecipientName = UCase(Left(strRecipientName, 1)) & Right(strRecipientName, Len(strRecipientName) - 1)
 
           With objCopiedTask
                .Recipients.Add (objRecipient.Address)
                .Recipients.ResolveAll
                .Subject = .Subject & " (" & strRecipientName & ")"
                .Assign
                .Send
          End With
        Next
 
        objCurrentTask.Close olDiscard
    End If
End Sub

随后，参考帖子中的“可选步骤”，将此宏添加到“任务”窗口的功能区中。如何在 Outlook 中运行 VBA 代码“。
最后，按照以下步骤尝试这个宏。

首先，创建一个新任务并随意添加收件人。
然后，单击功能区中的宏按钮。
立即，当前任务将分别分配给收件人，如下面的屏幕截图所示。

照顾好你的前景

Outlook 容易出错和损坏。因此，如果您不愿意遭受 Outlook 数据丢失，您应该定期备份您的 Outlook 数据。只有这样，即使Outlook文件损坏，您仍然可以轻松恢复腐败的前景来自备份的数据。如果没有备份，您必须求助于卓越而强大的恢复工具，例如 DataNumen Outlook Repair.

作者简介：

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