Como atribuir uma tarefa em lote a várias pessoas separadamente no Outlook

Por alguns motivos, como confidencialidade ou privacidade, ao atribuir uma tarefa a muitas pessoas, você pode querer enviar separadamente. Agora, aqui vamos apresentar um método para obtê-lo.

Ao atribuir uma tarefa, se você preencher vários destinatários e clicar em “Enviar”, receberá um aviso informando que a tarefa enviada para muitas pessoas não será atualizada. Portanto, se você deseja obter atualizações de tarefas a tempo, é melhor atribuir a tarefa a vários destinatários separadamente.

Obviamente, além da consideração da atualização da tarefa, devido à confidencialidade, você precisa enviar uma tarefa para várias pessoas separadamente. Geralmente, você precisa criar tarefas separadas, adicionar destinatário e enviar uma a uma. É obviamente problemático. Portanto, a seguir, apresentaremos uma maneira muito mais eficiente.

Lote Atribuir uma tarefa a várias pessoas separadamente

1. Para começar, pressione “Alt + F11” para acessar o editor VBA do Outlook.
2. Em seguida, na janela “Microsoft Visual Basic for Applications”, copie o código VBA em um módulo ou projeto em branco.

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. Em seguida, adicione esta macro à faixa de opções da janela Tarefa, consultando a seção “Etapa opcional” na postagem – “Como executar o código VBA no seu Outlook".
4. Eventualmente, execute as etapas a seguir para experimentar essa macro.

• Em primeiro lugar, crie uma nova tarefa e adicione os destinatários à vontade.
• Em seguida, clique no botão macro na faixa de opções.
• De uma só vez, a tarefa atual será atribuída aos destinatários separadamente, conforme mostrado na captura de tela a seguir.

Cuide do seu Outlook

O Outlook é propenso a erros e corrupção. Portanto, se você está relutante em sofrer perda de dados do Outlook, você deve fazer backups regulares para seus dados do Outlook. Somente desta forma, mesmo que o arquivo do Outlook seja corrompido, você ainda pode restaurar facilmente Outlook corrompido dados de backups. Se não tiver backup, terá que recorrer a uma notável e poderosa ferramenta de recuperação, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server recuperação e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com