كيفية تحويل المواعيد المتعددة إلى مهام بسرعة في Outlook؟
في هذه المقالة سأتحدث عن كيفية تحويل موعد أو مواعيد متعددة إلى مهام بسرعة وسهولة في Outlook.
تحويل موعد واحد إلى مهمة عن طريق السحب والإفلات
قم بتحويل مواعيد متعددة إلى مهام عن طريق تطبيق التعليمات البرمجية لـ VBA
تحويل موعد واحد إلى مهمة عن طريق السحب والإفلات
لتحويل موعد واحد إلى مهمة ، ما عليك سوى سحب الموعد إلى مجلد المهام ، يرجى القيام بما يلي:
1. في ، حدد عنصر الموعد الذي تريد تحويله إلى مهمة ثم اسحبه وأفلته في ملف المهام رمز في أسفل جزء التنقل كما هو موضح في لقطة الشاشة التالية:
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. ثم حدد المواعيد التي تريد تحويلها إلى مهمة ، ثم انقر فوق "موافق" تشغيل ماكرو زر لتشغيل هذا الرمز ، انظر لقطة الشاشة:
4. ثم أ حدد المجلد سيظهر مربع الحوار ، حدد ملف المهام المجلد حيث تريد حفظ النتائج المحولة ، انظر لقطة الشاشة:
5. ثم اضغط OK ، وسيتم إنشاء جميع المواعيد المحددة كمهام ، وبعد ذلك يجب عليك حفظ وإغلاق ملف مهمة نافذة واحدة تلو الأخرى ، انظر لقطة الشاشة:
6. بعد ذلك ، يمكنك الانتقال إلى مهمة المجلد ، تم حفظ جميع المواعيد المحددة كمهام جديدة ، انظر الصورة:
Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!
- CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
- تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
- رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
- أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
- رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

