How to Batch Assign a Task to Multiple Persons Separately in Your Outlook

For some reasons, such as confidentiality or privacy, when assigning a task to many persons, you may want to send separately. Now, here we will introduce a method to get it.

When you assign a task, if you fill in multiple recipients and click “Send”, you will receive a warning telling that the task sent to many persons will not be updated. Thus, if you want to get task updates in time, you’d better assign the task to many recipients separately.Warning about No Task Update

Of course, aside from the consideration of task update, due to confidentiality, you need to send a task to multiple persons separately. Generally, you have to create separate tasks, add recipient and send one by one. It is obviously troublesome. So, in the followings, we will introduce you a much more efficient way.

Batch Assign a Task to Multiple Persons Separately

  1. For a start, press “Alt + F11” to access Outlook VBA editor.
  2. Next, in the “Microsoft Visual Basic for Applications” window, copy the VBA code into a blank module or project.
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

VBA Code - Batch Assign a Task to Multiple Persons Separately

  1. Subsequently, add this macro to the ribbon of Task window by referring to “Optional Step” in the post – “How to Run VBA Code in Your Outlook“.
  2. Eventually, take the following steps to try this macro.
  • Firstly, create a new task and add the recipients at will.
  • Then, click the macro button in ribbon.Run Macro on Current Task
  • At once, the current task will be assigned to the recipients separately, as shown in the following screenshot.Separate Assigned Tasks

Take Care of Your Outlook

Outlook is prone to errors and corruption. Hence, if you are reluctant to suffering Outlook data loss, you ought to make regular backups for your Outlook data. Only in this way, even though Outlook file becomes corrupt, you still can easily restore corrupt Outlook data from backups. If without backup, you have to take recourse to a remarkable and powerful recovery tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server recovery and outlook repair software products. For more information visit www.datanumen.com

2 responses to “How to Batch Assign a Task to Multiple Persons Separately in Your Outlook”

  1. Добрый день! не получается запустить макрос. Ничего не происходит.

Leave a Reply

Your email address will not be published. Required fields are marked *