Comment déplacer automatiquement les tâches attribuées à d'autres vers un dossier de tâches spécifique dans Outlook

En général, toutes les tâches seront placées dans le dossier de tâches Outlook par défaut, quelles que soient vos tâches gagnées ou les tâches que vous attribuez à d'autres. Cet article explique comment faire en sorte qu'Outlook déplace automatiquement les tâches attribuées à d'autres vers un dossier de tâches spécifique.

Outlook nous permet d'attribuer des tâches à d'autres. Mais en attendant, les tâches que vous attribuez à d'autres personnes seront également enregistrées dans votre dossier de tâches par défaut. Dans ce cas, si vous avez souvent besoin d'attribuer des tâches à d'autres, votre dossier de tâches sera en désordre. La meilleure façon de classer et de gérer vos tâches consiste à créer un dossier séparé, puis à déplacer les tâches affectées aux autres vers ce dossier. Mais faire cela manuellement sera un peu gênant. Ici, nous vous aiderons à le réaliser automatiquement avec Outlook VBA.

Déplacer automatiquement les tâches attribuées à d'autres vers un dossier de tâches spécifique

1. Pour commencer, vous devez créer un nouveau dossier de tâches. Faites un clic droit sur votre dossier de tâches par défaut et choisissez « Nouveau dossier ». Attribuez-lui un nom. Nous utiliserons « Test » comme exemple.
2. Passez ensuite à l'onglet "Développeur" et cliquez sur le bouton "Visual Basic".
3. Ensuite, dans la nouvelle fenêtre "Visual Basic", double-cliquez sur le projet "ThisOutlookSession" et copiez-y les codes VBA suivants.

Public WithEvents Items As Outlook.Items

Sub Application_Startup()
    Set Items = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Sub Items_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "TaskItem" Then
       MoveTask Item
    End If
End Sub

Sub MoveTask(Item As TaskItem)
    Dim Folder As Outlook.Folder
    Dim myName As String
 
    'replace "smith" with your own account name
    myName = "Smith"
 
    If InStr(Item.Owner, myName) = 0 Then
       Set Folder = Session.GetDefaultFolder(olFolderTasks).Folders("Test")
       Item.Move Folder
    End If
End Sub

À noter: La chaîne "myName" dépend de votre propre nom de compte. Vous pouvez aller dans "Paramètres du compte" pour vérifier le champ "Votre nom" comme dans la capture d'écran suivante :

4. Après cela, vous devez signer ce code et modifier les paramètres de la macro. Pour plus de détails, vous pouvez vous référer à l'étape 2 de l'article "2 étapes pour marquer automatiquement les e-mails indésirables comme lus dans Outlook".
5. Enfin, vous pouvez essayer.

• Dans un premier temps, créez une nouvelle tâche et cliquez sur le bouton "Attribuer une tâche" dans la nouvelle fenêtre de tâche.
• Ensuite, vous pouvez composer la tâche et sélectionner le destinataire et enfin cliquer sur le bouton "Envoyer".
• Après cela, vous pouvez accéder à votre liste de dossiers de tâches. Vous constaterez que cette tâche est définitivement placée dans le dossier "Test".

Traiter les fichiers Outlook corrompus

Si vous recevez des messages d'erreur Outlook liés à vos fichiers Outlook, il est probable que les fichiers soient corrompus. Dans cette situation, vous pouvez utiliser l'outil de réparation intégré, Scanpst.exe, pour essayer. En cas d'échec, votre dernier recours doit être de sélectionner un produit plus puissant. outil de réparation de fichier Outlook corrompu, comme 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éparation SQL Server base de données mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com