Як швидко перетворити кілька зустрічей на завдання в Outlook?

У цій статті я розповім про те, як швидко та легко перетворити зустріч або кілька зустрічей на завдання в Outlook.

Перетворіть одну зустріч на завдання, перетягуючи

Перетворити кілька зустрічей на завдання, застосувавши код VBA

---

Перетворіть одну зустріч на завдання, перетягуючи

Щоб перетворити одну зустріч на завдання, вам просто потрібно перетягнути зустріч у папку завдань, зробіть так:

1, в Календар у вікні виберіть пункт зустрічі, який потрібно перетворити на завдання, а потім перетягніть його в Завдання внизу навігаційної панелі, як показано на наступному знімку екрана:

2. Потім новий Завдання відобразиться вікно, натисніть Зберегти та закрити , щоб зберегти цю зустріч як завдання. Дивіться знімок екрана:

---

Перетворити кілька зустрічей на завдання, застосувавши код VBA

Якщо у вас є кілька зустрічей, які потрібно перетворити на завдання, наведений нижче код VBA може зробити вам послугу, будь ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:

Код VBA: перетворення кількох зустрічей у завдання

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. Потім виберіть зустрічі, які потрібно перетворити на завдання, а потім натисніть Запустіть макрос , щоб запустити цей код, див. знімок екрана:

4. А потім а Вибір папки діалогове вікно вискочить, виберіть a Завдання папку, куди ви хочете зберегти перетворені результати, див. знімок екрана:

5. Потім натисніть OK , і всі вибрані зустрічі будуть створені як завдання, і тоді вам слід зберегти та закрити Завдання вікно по одному, див. скріншот:

6. Потім ви можете перейти до Завдання в папці всі вибрані зустрічі збережено як нові завдання, див. знімок екрана: