Как быстро преобразовать несколько встреч в задачи в Outlook?

В этой статье я расскажу о том, как быстро и легко преобразовать встречу или несколько встреч в задачи в Outlook.

Преобразуйте одну встречу в задачу путем перетаскивания

Преобразование нескольких встреч в задачи с помощью кода VBA

---

Преобразуйте одну встречу в задачу путем перетаскивания

Чтобы преобразовать одну встречу в задачу, вам просто нужно перетащить встречу в папку задач, пожалуйста, сделайте следующее:

1. В Календарь в окне выберите элемент встречи, который нужно преобразовать в задачу, а затем перетащите его в Задачи в нижней части панели навигации, как показано на следующем снимке экрана:

2. Затем новый Сложность задачи отображается окно, щелкните Сохранить и закрыть кнопку, чтобы сохранить эту встречу как задачу. Смотрите скриншот:

---

Преобразование нескольких встреч в задачи с помощью кода VBA

Если у вас есть несколько встреч, которые необходимо преобразовать в задачи, приведенный ниже код VBA может оказать вам услугу, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. снимок экрана:

Код 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. А потом Выбор папки появится диалоговое окно, выберите Задачи папку, в которую вы хотите сохранить преобразованные результаты, см. снимок экрана:

5. Затем нажмите OK кнопку, и все выбранные встречи будут созданы как задачи, а затем вы должны сохранить и закрыть Сложность задачи окна одно за другим, см. снимок экрана:

6. Затем вы можете перейти к Сложность задачи папка, все выбранные встречи были сохранены как новые задачи, см. снимок экрана: