كيفية تغيير الحدث طوال اليوم الافتراضي إلى مشغول في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

افتراضيًا، يقوم Outlook بتعيين حالة المواعيد والاجتماعات على "مشغول"، ولكن الأحداث طوال اليوم تكون على "متاح" (انظر لقطة الشاشة أدناه). تحتاج إلى تغيير حالة العرض يدويًا إلى مشغول كل مرة تقوم فيها بإنشاء حدث طوال اليوم. لتغيير الحالة الافتراضية لعرض الأحداث طوال اليوم إلى مشغول، يوفر لك المقال طريقتين.

changing the all-day event default to busy in Outlook

تغيير الحدث طوال اليوم الافتراضي إلى مشغول عن طريق إنشاء نموذج مخصص

تغيير الحدث طوال اليوم الافتراضي إلى مشغول باستخدام VBA

تغيير الحدث طوال اليوم الافتراضي إلى مشغول عن طريق إنشاء نموذج مخصص

يمكن أن يساعدك النموذج المخصص على إنشاء حدث طوال اليوم مع حالة العرض الافتراضية "مشغول." الرجاء اتباع الخطوات التالية.

1. انتقل إلى عرض التقويم. انقر فوق "الصفحة الرئيسية" > "موعد جديد".

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

نصائح: إذا لم يظهر زر "المطور" على الشريط، يرجى اتباع الطرق الموجودة في هذه المقالة لعرضه.

steps on changing the all-day event default to busy by creating a custom form

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

4. اسحب حقل "حدث طوال اليوم" وحقل "عرض الوقت كـ" من لوحة "اختيار الحقول" بشكل منفصل إلى اللوحة تحت علامة التبويب "(P.2)".

5. انقر بزر الماوس الأيمن على حقل "حدث طوال اليوم" الذي تم سحبه واختر "خصائص" من قائمة السياق.

6. في مربع الحوار "خصائص"، تحتاج إلى التكوين كما يلي.

6.1) انتقل إلى علامة التبويب "القيمة"؛

6.2) في قسم "القيمة الأولية"، قم بوضع علامة في خانة "تحديد القيمة الأولية لهذا الحقل إلى"؛

6.3) أدخل القيمة "True" في مربع النص؛

6.4) انقر فوق الزر "موافق". انظر لقطة الشاشة:

7. انقر بزر الماوس الأيمن على مربع القائمة المنسدلة الخاص بحقل "عرض الوقت كـ" وانقر فوق "خصائص" من قائمة السياق.

8. في مربع الحوار "خصائص"، تحتاج إلى التكوين كما يلي.

8.1) انتقل إلى علامة التبويب "القيمة"؛

8.2) في قسم "القيمة الأولية"، قم بوضع علامة في خانة "تحديد القيمة الأولية لهذا الحقل إلى"؛

8.3) أدخل الرقم "2" في مربع النص؛

8.4) انقر فوق الزر "موافق". انظر لقطة الشاشة:

9. انقر فوق "نشر" > "نشر النموذج باسم" في الشريط.

10. في مربع الحوار "نشر النموذج باسم"، تحتاج إلى:

10.1) تحديد مجلد وجهة للنموذج المخصص في قائمة "ابحث في" المنسدلة. هنا اخترت عنصر "مكتبة النماذج الشخصية"؛

10.2) تسمية النموذج المخصص في مربع النص "اسم العرض"؛

10.3) انقر فوق الزر "نشر". انظر لقطة الشاشة:

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

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

ملاحظة: لإنشاء حدث طوال اليوم مع حالة العرض الافتراضية "متاح"، فقط قم بالخطوات المعتادة: انقر فوق "الصفحة الرئيسية" > "موعد جديد"، ثم قم بوضع علامة في مربع "حدث طوال اليوم" في نافذة "الموعد".

تغيير الحدث طوال اليوم الافتراضي إلى مشغول باستخدام VBA

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

1. شغّل Outlook الخاص بك، واضغط على مفتاحي "Alt" + "F11" معًا لفتح نافذة "Microsoft Visual Basic for Applications".

2. في نافذة "Microsoft Visual Basic for Applications"، انقر نقرًا مزدوجًا على "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession" لفتح نافذة "ThisOutlookSession (Code)"، ثم انسخ الكود التالي إلى نافذة الكود هذه.

steps on changing the all-day event default to busy by using VBA

كود 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.

من الآن فصاعدًا، بعد تحويل موعد أو اجتماع إلى حدث طوال اليوم، ستظهر حالة "عرض كـ" بشكل افتراضي على "مشغول".