आउटलुक में एकाधिक नियुक्तियों को शीघ्रता से कार्यों में कैसे परिवर्तित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-05-28

इस लेख में, मैं आउटलुक में एक अपॉइंटमेंट या एकाधिक अपॉइंटमेंट को कार्यों में जल्दी और आसानी से बदलने के बारे में बात करूंगा।

खींचकर और छोड़ कर एक अपॉइंटमेंट को कार्य में बदलें

VBA कोड लागू करके एकाधिक नियुक्तियों को कार्यों में बदलें

खींचकर और छोड़ कर एक अपॉइंटमेंट को कार्य में बदलें

एक अपॉइंटमेंट को कार्य में बदलने के लिए, आपको बस अपॉइंटमेंट को कार्य फ़ोल्डर में खींचना होगा, कृपया ऐसा करें:

1. में कैलेंडर विंडो, उस अपॉइंटमेंट आइटम का चयन करें जिसे आपको कार्य में कनवर्ट करना है और फिर उसे खींचें और छोड़ें कार्य दिखाए गए स्क्रीनशॉट के अनुसार नेविगेशन फलक के नीचे आइकन:

कार्य 1 के लिए डॉक्टर की नियुक्ति

2. फिर एक नया कार्य विंडो प्रदर्शित है, कृपया क्लिक करें सहेजे बंद करें इस अपॉइंटमेंट को कार्य के रूप में सहेजने के लिए बटन। स्क्रीनशॉट देखें:

कार्य 2 के लिए डॉक्टर की नियुक्ति

VBA कोड लागू करके एकाधिक नियुक्तियों को कार्यों में बदलें

यदि आपके पास एकाधिक नियुक्तियों को कार्यों में परिवर्तित करने की आवश्यकता है, तो नीचे दिया गया वीबीए कोड आपकी मदद कर सकता है, कृपया निम्नानुसार कार्य करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को कॉपी करके खुले हुए रिक्त मॉड्यूल में पेस्ट करें, स्क्रीनशॉट देखें:

वीबीए कोड: एकाधिक नियुक्तियों को कार्यों में बदलें

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 के लिए डॉक्टर की नियुक्ति