Come assegnare in batch un'attività a più persone separatamente in Outlook

Per alcuni motivi, come la riservatezza o la privacy, quando si assegna un'attività a più persone, si potrebbe voler inviare separatamente. Ora, qui introdurremo un metodo per ottenerlo.

Quando assegni un'attività, se inserisci più destinatari e fai clic su "Invia", riceverai un avviso che ti informa che l'attività inviata a molte persone non verrà aggiornata. Pertanto, se desideri ricevere gli aggiornamenti delle attività in tempo, è meglio assegnare l'attività a più destinatari separatamente.

Ovviamente, a parte la considerazione dell'aggiornamento dell'attività, a causa della riservatezza, è necessario inviare un'attività a più persone separatamente. In genere, devi creare attività separate, aggiungere il destinatario e inviare uno per uno. È ovviamente fastidioso. Quindi, di seguito, ti presenteremo un modo molto più efficiente.

Batch Assegna un'attività a più persone separatamente

1. Innanzitutto, premi “Alt + F11” per accedere all'editor VBA di Outlook.
2. Successivamente, nella finestra "Microsoft Visual Basic for Applications", copia il codice VBA in un modulo o progetto vuoto.

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. Successivamente, aggiungi questa macro alla barra multifunzione della finestra Attività facendo riferimento a “Passaggio facoltativo” nel post – “Come eseguire il codice VBA in Outlook".
4. Alla fine, procedi come segue per provare questa macro.

• Innanzitutto, crea una nuova attività e aggiungi i destinatari a piacimento.
• Quindi, fai clic sul pulsante macro nella barra multifunzione.
• Immediatamente, l'attività corrente verrà assegnata separatamente ai destinatari, come mostrato nello screenshot seguente.

Prenditi cura della tua prospettiva

Outlook è soggetto a errori e corruzione. Pertanto, se sei riluttante a subire la perdita di dati di Outlook, dovresti eseguire backup regolari per i tuoi dati di Outlook. Solo in questo modo, anche se il file di Outlook viene corrotto, puoi comunque ripristinarlo facilmente Outlook corrotto dati dai backup. Se senza backup, devi ricorrere a uno strumento di ripristino notevole e potente, come ad esempio DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui SQL Server recupero e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com