كيف يمكن تحويل عدة مواعيد إلى مهام بسرعة في Outlook؟

في هذه المقالة، سأوضح لك كيفية تحويل موعد واحد أو عدة مواعيد إلى مهام بسرعة وسهولة في Outlook.

تحويل موعد واحد إلى مهمة بالسحب والإفلات

تحويل عدة مواعيد إلى مهام باستخدام كود VBA

---

تحويل موعد واحد إلى مهمة بالسحب والإفلات

لتحويل موعد واحد إلى مهمة، ما عليك سوى سحب الموعد وإفلاته في مجلد المهام، يُرجى اتباع الخطوات التالية:

1. في نافذة «التقويم»، حدد الموعد الذي ترغب في تحويله إلى مهمة، ثم اسحبه وأفلته على أيقونة «المهام» في شريط التنقل السفلي، كما هو موضح في لقطة الشاشة التالية:

2. بعد ذلك، ستظهر نافذة جديدة باسم «مهمة»؛ يُرجى النقر على زر «حفظ وإغلاق» لحفظ هذا الموعد كمهمة.

---

تحويل عدة مواعيد إلى مهام باستخدام كود VBA

إذا كانت لديك عدة مواعيد تحتاج إلى تحويلها إلى مهام، فإن كود VBA أدناه يمكن أن يساعدك في ذلك، يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفاتيح «Alt + F11» لفتح نافذة «Microsoft Visual Basic for Applications».

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. انقر على زر «موافق» وسيتم إنشاء جميع المواعيد المحددة كمهام. بعد ذلك، احفظ وأغلق نافذة «المهمة» واحدة تلو الأخرى.

6. الآن، يمكنك الانتقال إلى مجلد «المهام»، حيث تم حفظ جميع المواعيد المحددة كمهمات.