Comment transformer rapidement plusieurs rendez-vous en tâches dans Outlook ?

Dans cet article, découvrez comment transformer un rendez-vous ou plusieurs rendez-vous en tâches rapidement et facilement dans Outlook.

Convertir un rendez-vous en tâche par glisser-déposer

Convertir plusieurs rendez-vous en tâches à l’aide d’un code VBA

---

Convertir un rendez-vous en tâche par glisser-déposer

Pour transformer un rendez-vous en tâche, il vous suffit de le glisser directement dans le dossier des tâches. Voici la marche à suivre :

1. Dans la fenêtre « Calendrier », sélectionnez le rendez-vous que vous souhaitez transformer en tâche, puis faites-le glisser vers l’icône « Tâches » située en bas du volet de navigation, comme illustré dans la capture d’écran suivante :

2. Une nouvelle fenêtre « Tâche » s’ouvre alors. Cliquez sur le bouton « Enregistrer et fermer » pour sauvegarder ce rendez-vous en tant que tâche.

---

Convertir plusieurs rendez-vous en tâches à l’aide d’un code VBA

Si vous souhaitez convertir plusieurs rendez-vous en tâches, le code VBA ci-dessous est là pour vous simplifier la tâche. Suivez simplement les étapes suivantes :

1. Maintenez les touches « Alt + F11 » enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur « Insertion » > « Module », puis copiez-collez le code ci-dessous dans le module vierge qui s’ouvre :

Code VBA : Convertir plusieurs rendez-vous en tâches

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. Sélectionnez les rendez-vous que vous souhaitez transformer en tâches, puis cliquez sur le bouton « Exécuter la macro » pour lancer ce code.

4. La boîte de dialogue « Sélectionner un dossier » s’ouvre alors. Choisissez le dossier « Tâches » dans lequel vous souhaitez enregistrer vos résultats convertis.

5. Cliquez sur le bouton « OK ». Tous les rendez-vous sélectionnés seront convertis en tâches. Ensuite, enregistrez et fermez chaque fenêtre « Tâche » une par une.

6. Vous pouvez désormais accéder au dossier « Tâche » : tous les rendez-vous sélectionnés y ont été enregistrés en tant que tâches.