كيف يمكن تغيير الإعداد الافتراضي لأحداث اليوم الكامل إلى «مشغول» في Outlook؟

بشكل افتراضي، يعيّن Outlook حالة الاجتماع إلى «مشغول»، بينما يُعيّن أحداث اليوم الكامل إلى «متاح» (كما في لقطة الشاشة أدناه). وعليك كل مرة تنشئ فيها حدثًا ليوم كامل أن تغيّر يدويًّا حالة «إظهار كـ» إلى «مشغول». ولجعل «مشغول» هي الحالة الافتراضية لأحداث اليوم الكامل، تقدّم لك هذه المقالة طريقتين فعّالتين.

تغيير الإعداد الافتراضي لأحداث اليوم الكامل إلى «مشغول» بإنشاء نموذج مخصص

يمكنك الاعتماد على النموذج المخصص لإنشاء حدث ليوم كامل، مع ضبط الحالة الافتراضية لـ«إظهار كـ» تلقائيًا على «مشغول». يُرجى اتباع الخطوات التالية:

1. انتقل إلى طريقة عرض التقويم، ثم انقر فوق «الصفحة الرئيسية» > «موعد».

2. في نافذة الموعد، انقر فوق «المطور» > «تصميم هذا النموذج».

تلميح: إذا لم يظهر تبويب «المطور» في الشريط، يُرجى اتباع الطرق الموضَّحةفي هذه المقالةلعرضه.

3. بعد ذلك، تتحول نافذة الموعد إلى وضع التصميم. انقر فوق تبويب "(P.2)".

4. اسحب حقل «حدث اليوم الكامل» وحقل «حالة مشغول» بشكل منفصل من جزء «اختيار الحقول» إلى اللوحة الظاهرة أسفل تبويب "(P.2)".

5. انقر بزر الماوس الأيمن على حقل «حدث اليوم الكامل» الذي سحبتَه، ثم اختر «خصائص» من القائمة السياقية.

6. في مربع حوار «الخصائص»، قم بضبط الإعدادات على النحو التالي.

7. انقر بزر الماوس الأيمن على مربع التحديد لحقل «حالة مشغول»، ثم اختر «خصائص» من القائمة السياقية.

8. في مربع حوار «الخصائص»، قم بضبط الإعدادات على النحو التالي.

9. انقر على «نشر» > «نشر النموذج باسم» في الشريط.

10. في مربع حوار «نشر النموذج باسم»، قم بما يلي:

11. أغلق نافذة الموعد دون حفظ التغييرات.

12. من الآن فصاعدًا، عندما تحتاج إلى إنشاء حدث ليوم كامل تكون حالته الافتراضية «إظهار كـ» مضبوطة على «مشغول»، انتقل إلى طريقة عرض «التقويم»، ثم انقر فوق «الصفحة الرئيسية» > «عناصر جديدة» > «نماذج مخصصة» > «اسم النموذج المخصص».

ملاحظة: لإنشاء حدث ليوم كامل مع ضبط الحالة الافتراضية لـ«إظهار كـ» على «متاح»، ما عليك سوى اتباع الخطوات المعتادة: انقر فوق «الصفحة الرئيسية» > «موعد»، ثم فعّل خانة الاختيار «حدث اليوم الكامل» في نافذة «الموعد».

تغيير الإعداد الافتراضي لأحداث اليوم الكامل إلى «مشغول» باستخدام VBA

الطريقة السابقة تتضمّن العديد من الخطوات. فإذا كنت بحاجةٍ دائمًا إلى إنشاء حدث ليومٍ كامل مع ضبط الحالة الافتراضية لـ«إظهار كـ» على «مشغول»، فإن كود VBA التالي سيسهّل عليك إنجاز ذلك بسلاسة.

1. افتح Outlook، ثم اضغط معًا على مفتاحي «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

2. في نافذة «Microsoft Visual Basic for Applications»، انقر مرتين على "Project1" > «كائنات Microsoft Outlook» > «ThisOutlookSession» لفتح نافذة الكود «ThisOutlookSession (Code)»، ثم الصق الكود التالي في هذه النافذة.

كود VBA: تعيين حالة حدث اليوم الكامل افتراضيًا إلى «مشغول»

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. احفظ كود VBA ثم أعد تشغيل Outlook.

من الآن فصاعدًا، بعد تحويل موعد أو اجتماع إلى حدث ليومٍ كامل، ستظهر حالة «إظهار كـ» تلقائيًا كـ«مشغول».

مقالات ذات صلة

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

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

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

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

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة