Как быстро преобразовать несколько встреч в задачи в 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. Затем вы можете перейти к Сложность задачи папка, все выбранные встречи были сохранены как новые задачи, см. снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.