Hoe converteert u snel meerdere afspraken naar taken in Outlook?

In dit artikel leg ik uit hoe u één of meerdere afspraken snel en eenvoudig omzet in taken in Outlook.

Converteer één afspraak naar een taak door te slepen en neer te zetten

Converteer meerdere afspraken naar taken met VBA-code

---

Converteer één afspraak naar een taak door te slepen en neer te zetten

Om één afspraak om te zetten in een taak, sleept u de afspraak eenvoudig naar de taakmap. Volg deze stappen:

1. Selecteer in het venster „Agenda” het afspraakitem dat u wilt omzetten naar een taak en sleep dit naar het pictogram „Taken” onderaan de navigatie, zoals op de volgende schermafbeelding wordt getoond:

2. Er verschijnt nu een nieuw venster „Taak”. Klik op „Opslaan en sluiten” om de afspraak als taak op te slaan.

---

Converteer meerdere afspraken naar taken met VBA-code

Als u meerdere afspraken tegelijk wilt omzetten in taken, helpt de onderstaande VBA-code u daarbij. Volg deze stappen:

1. Druk op „Alt + F11” om het venster „Microsoft Visual Basic for Applications” te openen.

2. Klik op 'Invoegen' > 'Module' en plak de onderstaande code in de geopende lege module:

VBA-code: Converteer meerdere afspraken naar taken

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. Selecteer de afspraken die u wilt omzetten in taken en klik daarna op de knop „Macro uitvoeren” om de code uit te voeren.

4. Er verschijnt nu het dialoogvenster „Map selecteren”. Kies een „Taken”-map om de geconverteerde resultaten in op te slaan.

5. Klik op de knop „OK”. Alle geselecteerde afspraken worden nu aangemaakt als taken. Vervolgens opent „Opslaan en sluiten” het venster „Taak” één voor één.

6. U kunt nu naar de map „Taken” gaan; alle geselecteerde afspraken zijn daar als taken opgeslagen.