انتقل إلى المحتوى الرئيسي

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

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

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

قم بتحويل مواعيد متعددة إلى مهام عن طريق تطبيق التعليمات البرمجية لـ VBA


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

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

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

تعيين مستند للمهمة 1

2. ثم جديد مهمة يتم عرض النافذة ، الرجاء الضغط حفظ وإغلاق زر لحفظ هذا الموعد كمهمة. انظر لقطة الشاشة:

تعيين مستند للمهمة 2


قم بتحويل مواعيد متعددة إلى مهام عن طريق تطبيق التعليمات البرمجية لـ VBA

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

تعيين مستند للمهمة 5

5. ثم اضغط OK ، وسيتم إنشاء جميع المواعيد المحددة كمهام ، وبعد ذلك يجب عليك حفظ وإغلاق ملف مهمة نافذة واحدة تلو الأخرى ، انظر لقطة الشاشة:

تعيين مستند للمهمة 6

6. بعد ذلك ، يمكنك الانتقال إلى مهمة المجلد ، تم حفظ جميع المواعيد المحددة كمهام جديدة ، انظر الصورة:

تعيين مستند للمهمة 7


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations