Cómo asignar por lotes una tarea a varias personas por separado en Outlook

Por algunas razones, como la confidencialidad o la privacidad, al asignar una tarea a muchas personas, es posible que desee enviarla por separado. Ahora, aquí presentaremos un método para obtenerlo.

Cuando asigna una tarea, si completa varios destinatarios y hace clic en "Enviar", recibirá una advertencia que indica que la tarea enviada a muchas personas no se actualizará. Por lo tanto, si desea obtener actualizaciones de tareas a tiempo, será mejor que asigne la tarea a muchos destinatarios por separado.

Por supuesto, además de considerar la actualización de la tarea, debido a la confidencialidad, debe enviar una tarea a varias personas por separado. Generalmente, debe crear tareas separadas, agregar destinatarios y enviarlas una por una. Obviamente es problemático. Entonces, a continuación, le presentaremos una manera mucho más eficiente.

Asignar por lotes una tarea a varias personas por separado

1. Para empezar, pulse “Alt + F11” para acceder al editor de VBA de Outlook.
2. A continuación, en la ventana "Microsoft Visual Basic para aplicaciones", copie el código VBA en un módulo o proyecto en blanco.

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

3. Posteriormente, agregue esta macro a la cinta de opciones de la ventana de Tareas haciendo referencia al “Paso opcional” en la publicación:Cómo ejecutar código VBA en su Outlook".
4. Finalmente, siga los siguientes pasos para probar esta macro.

• En primer lugar, cree una nueva tarea y agregue los destinatarios a voluntad.
• Luego, haga clic en el botón de macro en la cinta.
• De inmediato, la tarea actual se asignará a los destinatarios por separado, como se muestra en la siguiente captura de pantalla.

Cuide su Outlook

Outlook es propenso a errores y corrupción. Por lo tanto, si no está dispuesto a sufrir la pérdida de datos de Outlook, debe realizar copias de seguridad periódicas de sus datos de Outlook. Solo de esta manera, aunque el archivo de Outlook se dañe, aún puede restaurar fácilmente Outlook corrupto datos de copias de seguridad. Si no tiene una copia de seguridad, debe recurrir a una herramienta de recuperación notable y poderosa, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo SQL Server recuperación y productos de software de reparación de Outlook. Para más información visite www.datanumen.com