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

Dans cet article, je parlerai de la façon de convertir rapidement et facilement un rendez-vous ou plusieurs rendez-vous en tâches dans Outlook.

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

Convertissez plusieurs rendez-vous en tâches en appliquant le code VBA

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

Pour convertir un rendez-vous en tâche, il vous suffit de faire glisser le rendez-vous dans le dossier des tâches, procédez comme suit:

1. Dans le Calendrier fenêtre, sélectionnez l'élément de rendez-vous que vous devez convertir en tâche, puis faites-le glisser et déposez-le dans le Tâches icône en bas du volet de navigation comme illustré ci-dessous:

rendez-vous doc à la tâche 1

2. Puis un nouveau Tâche la fenêtre s'affiche, veuillez cliquer Sauvegarder et fermer pour enregistrer ce rendez-vous en tant que tâche. Voir la capture d'écran:

rendez-vous doc à la tâche 2

Convertissez plusieurs rendez-vous en tâches en appliquant le code VBA

Si vous avez plusieurs rendez-vous à convertir en tâches, le code VBA ci-dessous peut vous rendre service, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

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

rendez-vous doc à la tâche 3

3. Sélectionnez ensuite les rendez-vous que vous souhaitez convertir en tâche, puis cliquez sur Exécuter une macro bouton pour exécuter ce code, voir capture d'écran:

rendez-vous doc à la tâche 4

4. Et puis un Sélectionner le dossier une boîte de dialogue apparaîtra, sélectionnez un Tâches dossier dans lequel vous souhaitez enregistrer les résultats convertis, voir capture d'écran:

rendez-vous doc à la tâche 5

5. Puis clique OK et tous les rendez-vous sélectionnés seront créés en tant que tâches, puis vous devez enregistrer et fermer le Tâche fenêtre une par une, voir capture d'écran:

rendez-vous doc à la tâche 6

6. Ensuite, vous pouvez aller au Tâche dossier, tous les rendez-vous sélectionnés ont été enregistrés en tant que nouvelles tâches, voir capture d'écran:

rendez-vous doc à la tâche 7