Як швидко перетворити кілька зустрічей на завдання в Outlook?
У цій статті я розповім про те, як швидко та легко перетворити зустріч або кілька зустрічей на завдання в Outlook.
Перетворіть одну зустріч на завдання, перетягуючи
Перетворити кілька зустрічей на завдання, застосувавши код VBA
Перетворіть одну зустріч на завдання, перетягуючи
Щоб перетворити одну зустріч на завдання, вам просто потрібно перетягнути зустріч у папку завдань, зробіть так:
1, в Календар у вікні виберіть пункт зустрічі, який потрібно перетворити на завдання, а потім перетягніть його в Завдання внизу навігаційної панелі, як показано на наступному знімку екрана:
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. Потім виберіть зустрічі, які потрібно перетворити на завдання, а потім натисніть Запустіть макрос , щоб запустити цей код, див. знімок екрана:
4. А потім а Вибір папки діалогове вікно вискочить, виберіть a Завдання папку, куди ви хочете зберегти перетворені результати, див. знімок екрана:
5. Потім натисніть OK , і всі вибрані зустрічі будуть створені як завдання, і тоді вам слід зберегти та закрити Завдання вікно по одному, див. скріншот:
6. Потім ви можете перейти до Завдання в папці всі вибрані зустрічі збережено як нові завдання, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.