2 méthodes rapides pour attribuer par lots plusieurs tâches Outlook à une seule personne

Si vous avez créé plusieurs tâches dans votre Outlook et que vous souhaitez maintenant les attribuer à une seule personne, vous aurez besoin de méthodes pour les attribuer par lots. Dans cet article, nous allons vous montrer ces 2 approches.

Parfois, pour certaines raisons, vous devez attribuer plusieurs tâches existantes dans votre propre dossier Tâches à quelqu'un. En général, pour attribuer une tâche, vous devez l'ouvrir et cliquer sur le bouton "Attribuer la tâche", renseigner le destinataire dans le champ "À" et enfin cliquer sur le bouton "Envoyer". Mais, ce moyen est trop fastidieux dans le cas où l'on veut assigner de nombreuses tâches. Par conséquent, dans ce qui suit, nous partagerons avec vous 2 méthodes beaucoup plus efficaces et pratiques.

Méthode 1 : transférer des tâches en tant que pièces jointes dans un e-mail

1. Pour commencer, dans un dossier Tâches, appuyez sur la touche « Ctrl » tout en sélectionnant toutes les tâches que vous souhaitez assigner.
2. Ensuite, cliquez sur le bouton "Suivant" dans le groupe "Répondre" sur l'onglet "Accueil".
3. Aussitôt, un nouvel e-mail s'affichera.
4. Dans ce mail, toutes les tâches sélectionnées ont été jointes.
5. Enfin, vous pouvez ajouter le destinataire, composer et envoyer le courrier à volonté.

Méthode 2 : Attribuer des tâches par lots avec Outlook VBA

1. Au tout début, accédez à l'éditeur Outlook VBA en vous référant à "Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, placez le code VBA suivant dans un module.

Sub AssignMultipleTasksToAPerson()
    Dim objSelection As Outlook.Selection
    Dim objTask As Outlook.TaskItem
    Dim i As Long
    Dim lTaskCount As Long
 
    'Get selected items
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       lTaskCount = 0
       For i = objSelection.Count To 1 Step -1
           If TypeOf objSelection(i) Is TaskItem Then
              Set objTask = objSelection(i)
              With objTask
                   'Alter the recipient email address as per your needs
                   .Recipients.Add ("johnsmith@datanumen.com")
                   .Recipients.ResolveAll
                   .Assign
                   .Send
              End With
              lTaskCount = lTaskCount + 1
           End If
       Next
 
      'Get prompt
       MsgBox lTaskCount & " tasks have been assigned!", vbInformation + vbOKOnly
    End If
End Sub

3. Après cela, ajoutez cette macro à la barre d'outils Accès rapide.
4. Plus tard, sélectionnez les tâches à assigner.
5. Enfin, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
6. Immédiatement, ces tâches seront attribuées au destinataire prédéfini.

Échapper à la douloureuse perte de données Outlook

Il sera assez misérable de subir une perte de données, y compris la perte de données Outlook. Par conséquent, il est nécessaire de prendre des précautions efficaces pour éviter cela. Tout d'abord, vous devez effectuer des sauvegardes de données régulières. En outre, vous devez savoir où vous pouvez obtenir un outil de réparation intégré - Scanpst et comment l'exécuter. Enfin, afin de fournir un secours immédiat en cas de panne de l'outil de réparation de la boîte de réception, vous feriez mieux de préparer à l'avance un puissant outil externe, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com