Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

запись на задание 1

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

запись на задание 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

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

запись на задание 4

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

запись на задание 5

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

запись на задание 6

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

запись на задание 7


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL