Hoe converteer ik snel meerdere afspraken naar taken in Outlook?

In dit artikel zal ik het hebben over hoe je een afspraak of meerdere afspraken snel en eenvoudig naar taken converteert in Outlook.

Zet een afspraak om in een taak door ze te slepen en neer te zetten

Converteer meerdere afspraken naar taken door VBA-code toe te passen

---

Zet een afspraak om in een taak door ze te slepen en neer te zetten

Om een ​​afspraak om te zetten in een taak, hoeft u alleen maar de afspraak naar de taakmap te slepen, doe dit als volgt:

1. In de Kalender -venster, selecteer het afspraakitem dat u naar een taak wilt converteren en sleep het vervolgens naar het Taken pictogram aan de onderkant van het navigatievenster zoals in de volgende schermafbeelding:

2. Dan een nieuwe Taak venster wordt weergegeven, klik dan Opslaan en sluiten knop om deze afspraak als taak op te slaan. Zie screenshot:

---

Converteer meerdere afspraken naar taken door VBA-code toe te passen

Als u meerdere afspraken heeft die naar taken moeten worden omgezet, kan de onderstaande VBA-code u een plezier doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:

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 vervolgens de afspraken die u naar een taak wilt converteren en klik op Voer Macro uit knop om deze code uit te voeren, zie screenshot:

4. En dan een map selecteren dialoogvenster verschijnt, selecteer een Taken map waarin u de geconverteerde resultaten wilt opslaan, zie screenshot:

5. Dan klikken OK knop, en alle geselecteerde afspraken worden aangemaakt als taken, en dan moet je het Taak venster een voor een, zie screenshot:

6. Vervolgens kunt u naar het Taak map, zijn alle geselecteerde afspraken opgeslagen als nieuwe taken, zie screenshot: