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

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

عيّن تاريخ البدء الافتراضي على أنه اليوم عند إنشاء مهمة جديدة برمز VBA في Outlook

عيّن تاريخ البدء الافتراضي على أنه اليوم عند إنشاء مهمة جديدة برمز VBA في Outlook

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

1. قم بتشغيل Outlook ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.

كود فبا: عيّن تاريخ البدء الافتراضي على أنه اليوم:

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 تلقائيًا بتعيين تاريخ البدء وتاريخ الانتهاء إلى التاريخ الحالي افتراضيًا كما هو موضح في لقطة الشاشة التالية: