Kako v Outlooku hitro pretvoriti več sestankov v opravila?

V tem članku bom govoril o tem, kako v Outlooku hitro in enostavno pretvoriti sestanek ali več sestankov v opravila.

Pretvorite en sestanek v opravilo tako, da ga povlečete in spustite

Pretvorite več sestankov v naloge z uporabo kode VBA

Pretvorite en sestanek v opravilo tako, da ga povlečete in spustite

Če želite en sestanek pretvoriti v opravilo, ga preprosto povlecite v mapo opravil, naredite tako:

1. v Koledar izberite element sestanka, ki ga želite pretvoriti v opravilo, nato pa ga povlecite in spustite na Naloge na dnu navigacijskega podokna, kot je prikazano na sliki spodaj:

2. Potem novo Naloga okno se prikaže, kliknite Shrani in zapri , da shranite ta sestanek kot nalogo. Oglejte si posnetek zaslona:

Pretvorite več sestankov v naloge z uporabo kode VBA

Če morate več sestankov pretvoriti v opravila, vam lahko spodnja koda VBA naredi uslugo, storite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: pretvorite več sestankov v opravila

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. Nato izberite sestanke, ki jih želite pretvoriti v opravilo, in kliknite Zaženite makro gumb za zagon te kode, glej posnetek zaslona:

4. In potem a Izberite mapo odpre se pogovorno okno, izberite a Naloge mapo, kamor želite shraniti pretvorjene rezultate, si oglejte posnetek zaslona:

5. Nato kliknite OK in vsi izbrani sestanki bodo ustvarjeni kot naloge, nato pa shranite in zaprite Naloga okno eno za drugo, glej posnetek zaslona:

6. Potem lahko greste na Naloga mapo, so bili vsi izbrani sestanki shranjeni kot nova opravila, glejte posnetek zaslona: