Как да конвертирате множество срещи в задачи бързо в Outlook?

Автор: Xiaoyang Последна промяна: 2018-05-28

В тази статия ще говоря за това как да конвертирате среща или множество срещи в задачи бързо и лесно в Outlook.

Преобразувайте една среща в задача чрез плъзгане и пускане

Преобразувайте множество срещи в задачи чрез прилагане на VBA код

Преобразувайте една среща в задача чрез плъзгане и пускане

За да преобразувате една среща в задача, просто трябва да плъзнете срещата в папката със задачи, моля, направете следното:

1. В календар прозорец, изберете елемента за среща, който трябва да конвертирате в задача, и след това го плъзнете и пуснете в Задачи икона в долната част на навигационния панел, както е показана следната екранна снимка:

назначаване на документ за задача 1

2. След това нов Task се показва прозорец, моля щракнете Запазване и затваряне бутон, за да запазите тази среща като задача. Вижте екранна снимка:

назначаване на документ за задача 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. След това изберете срещите, които искате да конвертирате в задача, и след това щракнете Стартирайте Macro бутон за изпълнение на този код, вижте екранна снимка:

назначаване на документ за задача 4

4. И тогава а Изберете папка ще се появи диалогов прозорец, изберете a Задачи папка, в която искате да запазите преобразуваните резултати, вижте екранната снимка:

назначаване на документ за задача 5

5, След това кликнете OK и всички избрани срещи ще бъдат създадени като задачи, след което трябва да запазите и затворите Task прозорец един по един, вижте екранната снимка:

назначаване на документ за задача 6