Wie kann ich mehrere Termine in Outlook schnell in Aufgaben konvertieren?

In diesem Artikel werde ich darüber sprechen, wie Sie einen Termin oder mehrere Termine schnell und einfach in Outlook in Aufgaben konvertieren können.

Konvertieren Sie einen Termin durch Ziehen und Ablegen in eine Aufgabe

Konvertieren Sie mehrere Termine in Aufgaben, indem Sie VBA-Code anwenden

Konvertieren Sie einen Termin durch Ziehen und Ablegen in eine Aufgabe

Um einen Termin in eine Aufgabe zu konvertieren, müssen Sie den Termin nur in den Aufgabenordner ziehen. Gehen Sie dazu folgendermaßen vor:

1. In dem Kalender Wählen Sie im Fenster das Terminelement aus, das Sie in eine Aufgabe konvertieren möchten, und ziehen Sie es per Drag & Drop in das Aufträge Das Symbol am unteren Rand des Navigationsbereichs zeigt den folgenden Screenshot:

Doc Termin zu Aufgabe 1

2. Dann eine neue Aufgabe Fenster wird angezeigt, bitte klicken Speichern und schließen Schaltfläche, um diesen Termin als Aufgabe zu speichern. Siehe Screenshot:

Doc Termin zu Aufgabe 2

Konvertieren Sie mehrere Termine in Aufgaben, indem Sie VBA-Code anwenden

Wenn Sie mehrere Termine haben, die in Aufgaben konvertiert werden müssen, kann Ihnen der folgende VBA-Code einen Gefallen tun. Gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Und dann klicken Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Konvertieren Sie mehrere Termine in Aufgaben

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

Doc Termin zu Aufgabe 3

3. Wählen Sie dann die Termine aus, die Sie in eine Aufgabe konvertieren möchten, und klicken Sie dann auf Makro ausführen Schaltfläche zum Ausführen dieses Codes, siehe Screenshot:

Doc Termin zu Aufgabe 4

4. Und dann a Ordner auswählen Das Dialogfeld wird geöffnet. Wählen Sie a Aufträge Ordner, in dem Sie die konvertierten Ergebnisse speichern möchten, siehe Screenshot:

Doc Termin zu Aufgabe 5

5. Dann klick OK Klicken Sie auf die Schaltfläche, und alle ausgewählten Termine werden als Aufgaben erstellt. Anschließend sollten Sie die Schaltfläche speichern und schließen Aufgabe Fenster eins nach dem anderen, siehe Screenshot:

Doc Termin zu Aufgabe 6