Note: The other languages of the website are Google-translated. Back to English

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

6. Dann können Sie zum gehen Aufgabe Ordner, alle ausgewählten Termine wurden als neue Aufgaben gespeichert, siehe Screenshot:

Doc Termin zu Aufgabe 7


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL