كيف يمكن تعيين تاريخ البدء الافتراضي كـ«اليوم» عند إنشاء مهمة في Outlook؟

عند إنشائك مهمة في Outlook، يُعرض حقل “تاريخ البدء” تلقائيًّا بقيمة “بلا” كما هو موضح في لقطة الشاشة التالية. ولكن في بعض الأحيان، قد تحتاج إلى تعيين “اليوم” كتاريخ بدء افتراضي بشكل متكرر، مما يجبرك على تحديد التاريخ يدويًّا في كل مرة. أليس هناك طريقة أسرع لجعل Outlook يعيّن “اليوم” تلقائيًّا كتاريخ بدء افتراضي عند إنشاء مهمة جديدة؟

تعيين تاريخ البدء الافتراضي كـ «اليوم» عند إنشاء مهمة باستخدام كود VBA في Outlook

---

تعيين تاريخ البدء الافتراضي كـ «اليوم» عند إنشاء مهمة باستخدام كود VBA في Outlook

قد لا توجد طريقة أخرى فعّالة للتعامل مع هذه المهمة مباشرةً في Outlook؛ لذا سأزودك بكود VBA لحلها. يُرجى اتباع الخطوات التالية:

1. افتح Outlook، ثم اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود VBA: تعيين تاريخ البدء الافتراضي كـ «اليوم»:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. بعد إدراج الكود، ضع المؤشر في قسم الكود الثاني، ثم اضغط على مفتاحF5 لتشغيل هذا الكود. انظر لقطة الشاشة:

4. ومنذ ذلك الحين، سيقوم Outlook تلقائيًّا بتعيين تاريخ البدء وتاريخ الانتهاء إلى تاريخ اليوم الحالي افتراضيًّا كلما أنشأت مهمة، كما هو موضح في لقطة الشاشة التالية: