Hogyan konvertálhat több találkozót gyorsan feladattá az Outlookban?

Ebben a cikkben arról fogok beszélni, hogyan lehet gyorsan és egyszerűen konvertálni egy találkozót vagy több találkozót feladattá az Outlookban.

Konvertáljon egy találkozót feladattá húzással

Több találkozót konvertáljon feladatokká VBA-kód alkalmazásával

---

Konvertáljon egy találkozót feladattá húzással

Ha egy találkozót feladattá kíván konvertálni, akkor egyszerűen húzza a találkozót a feladat mappába, kérjük, tegye a következőket:

1. Az Naptár ablakban válassza ki azt a találkozó elemet, amelyet konvertálni kell feladatra, majd húzza át a Feladatok ikon a navigációs panel alján, a következő képernyőkép szerint:

2. Aztán egy új Feladat ablak jelenik meg, kérjük kattintson Mentés és bezárás gombra kattintva mentheti el ezt a találkozót feladatként. Lásd a képernyőképet:

---

Több találkozót konvertáljon feladatokká VBA-kód alkalmazásával

Ha több időpontot kell átalakítani feladatokká, akkor az alábbi VBA-kód szívességet tehet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:

VBA kód: Több találkozó konvertálása feladattá

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. Ezután válassza ki a feladatra konvertálni kívánt találkozókat, majd kattintson a gombra Futtassa a Makrót gomb a kód futtatásához, lásd a képernyőképet:

4. És akkor a Válassza ki a Mappa megjelenik a párbeszédpanel, válassza ki a Feladatok mappát, ahová el akarja menteni az átalakított eredményeket, lásd a képernyőképet:

5. Ezután kattintson OK gombot, és az összes kijelölt találkozó feladatként jön létre, majd el kell mentenie és bezárnia a Feladat ablak egyesével, lásd a képernyőképet:

6. Ezután elmehet a Feladat mappa, az összes kijelölt találkozót új feladatként mentette, lásd a képernyőképet: