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

Author: Xiaoyang Last Modified: 2025-08-07

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

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

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

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

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

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

2. Затем откроется новое окно «Задача», нажмите кнопку «Сохранить и закрыть», чтобы сохранить эту встречу как задачу.
doc appointment to task 2

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает:

Умные ответы на письма
Оптимизированное содержание
Черновики на основе ключевых слов
Интеллектуальное расширение содержания
Краткое изложение писем
Перевод на несколько языков

Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь

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

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

1. Нажмите клавиши «Alt + F11», чтобы открыть окно «Microsoft Visual Basic for Applications».

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. Выберите встречи, которые вы хотите преобразовать в задачи, а затем нажмите кнопку «Выполнить макрос», чтобы запустить этот код.
doc appointment to task 4

4. Затем появится диалоговое окно «Выбор папки», выберите папку «Задачи», куда вы хотите сохранить результаты преобразования.
doc appointment to task 5

5. Нажмите кнопку «ОК», и все выбранные встречи будут созданы как задачи. Затем сохраните и закройте каждое окно «Задача» по очереди.
doc appointment to task 6