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. А потім натисніть 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

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

призначення доктора до завдання 4

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

призначення доктора до завдання 5

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

призначення доктора до завдання 6

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

призначення доктора до завдання 7


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL