Ինչպե՞ս 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, Ապա, դուք կարող եք գնալ դեպի Խնդիր պանակ, բոլոր ընտրված հանդիպումները պահվել են որպես նոր առաջադրանքներ, տե՛ս նկարը.