Cum puteți converti rapid mai multe întâlniri în sarcini în Outlook?

În acest articol, voi vorbi despre cum să convertiți o întâlnire sau mai multe întâlniri în sarcini rapid și ușor în Outlook.

Convertiți o întâlnire în sarcină prin glisare și plasare

Convertiți mai multe întâlniri în sarcini prin aplicarea codului VBA

Convertiți o întâlnire în sarcină prin glisare și plasare

Pentru a converti o întâlnire în sarcină, trebuie doar să trageți întâlnirea în dosarul sarcinii, vă rugăm să procedați astfel:

1. În Calendar fereastra, selectați elementul de întâlnire pe care trebuie să îl convertiți în sarcină și apoi trageți-l și fixați-l în Sarcini pictograma din partea de jos a panoului de navigare, după cum se arată în următoarea captură de ecran:

numire doc pentru sarcina 1

2. Apoi un nou Sarcină fereastra este afișată, vă rugăm să faceți clic pe Salvați și închideți pentru a salva această întâlnire ca sarcină. Vedeți captura de ecran:

numire doc pentru sarcina 2

Convertiți mai multe întâlniri în sarcini prin aplicarea codului VBA

Dacă aveți mai multe întâlniri, trebuie să le convertiți în sarcini, codul VBA de mai jos vă poate face o favoare, vă rugăm să faceți următoarele:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: convertiți mai multe întâlniri în sarcini

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

numire doc pentru sarcina 3

3. Apoi selectați întâlnirile pe care doriți să le convertiți în sarcină, apoi faceți clic pe Rulați Macro butonul pentru a rula acest cod, vezi captura de ecran:

numire doc pentru sarcina 4

4. Și apoi a Selectați Dosar va apărea un dialog, selectați un Sarcini folder în care doriți să salvați rezultatele convertite, consultați captura de ecran:

numire doc pentru sarcina 5

5. Apoi apasa OK butonul și toate rezervările selectate vor fi create ca sarcini, apoi ar trebui să salvați și să închideți Sarcină fereastră una câte una, vezi captura de ecran:

numire doc pentru sarcina 6