كيف يمكن تغيير الوقت الافتراضي لتأخير التسليم في Outlook؟

المؤلفSiluviaتاريخ التعديل2025-11-14

عند كتابة رسائل البريد الإلكتروني وإرسالها في Outlook، يُعد استخدام ميزة «تأخير التسليم» وسيلة شائعة للتحكم في الوقت الفعلي لإرسال رسائلك. افتراضيًا، يعيّن Outlook وقت «عدم التسليم قبل» (كما يظهر في لقطة الشاشة أدناه) على الساعة 5:00 مساءً. وقد يؤدي هذا الإعداد الافتراضي إلى مشكلات في السيناريوهات العملية؛ فما لم تقم بتعديل هذا الوقت يدويًا في كل مرة تستخدم فيها الميزة، قد لا تُرسل رسالتك حتى الساعة 5:00 مساءً من اليوم التالي — وهو ما نادرًا ما يتماشى مع جدول عملك أو متطلبات تواصلك.

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

خطوات تغيير الوقت الافتراضي لتأخير التسليم في Outlook

تغيير الوقت الافتراضي لتأخير التسليم في Outlook باستخدام كود VBA

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

باستخدام كود VBA أدناه:

تأخير وقت التسليم: يتيح لك تحديد الوقت المفضل لإرسال رسالة مؤجَّلة (مثلًا، الساعة 07:30 صباحًا).
تأخير وقت تفعيل التسليم: يُحدِّد الفترة التي يتم بعدها تأخير أي رسالة إلكترونية تُرسَل تلقائيًا (مثلًا، بعد الساعة 5:30 مساءً).

على سبيل المثال، إذا قمت بتعيين وقت تأخير التسجيل إلى الساعة 07:30 صباحًا وضبط النظام لتفعيل هذا الخيار تلقائيًا بعد الساعة 5:30 مساءً، فستُرسل أي رسالة إلكترونية تُرسلها بين الساعة 07:30 صباحًا و5:30 مساءً فورًا دون تأخير. أما إذا أرسلت رسالة إلكترونية بعد الساعة 5:30 مساءً وحتى قبل الساعة 07:30 صباحًا في اليوم التالي، فسيحتفظ بها Outlook تلقائيًا ويُرسلها عند الساعة 07:30 صباحًا من يوم العمل التالي.

هذا الإعداد مثالي لأي شخص يرغب في أن تظهر رسائله الصادرة وكأنها أُرسلت خلال ساعات العمل القياسية، بغض النظر عن الوقت الفعلي لكتابتها، مما يحافظ على صورة احترافية ويقلل من إزعاج المستلمين خارج أوقات العمل.

قبل استخدام هذا الكود، ضع في اعتبارك النقاط التالية:

يجب أن يكون Outlook قيد التشغيل في الوقت المجدول لإرسال البريد الإلكتروني وإكمال تسليمه. وسيبقى البريد الإلكتروني المجدول في مجلد «البريد الصادر» حتى يتم تشغيل Outlook والاتصال بالشبكة.
إذا كان النظام أو Outlook مضبوطًا على منطقة زمنية تختلف عن مناطق المستلمين المقصودين، فتأكد من تعديل الأوقات وفقًا لذلك لتجنب أي التباس.

اتبع الخطوات التالية لتطبيق الحل:

1. افتح تطبيق Outlook على سطح المكتب، ثم اضغط على Alt+F11 في نفس الوقت لتشغيل محررMicrosoft Visual Basic for Applications.

2. في نافذة VBA، وسّعProject1، ثم انقر مرتين علىMicrosoft Outlook Objects > ThisOutlookSession. سيؤدي ذلك إلى فتح نافذة الكود الخاصة بمعالجة الأحداث على مستوى التطبيق.

كود VBA: تغيير الوقت الافتراضي لتأخير التسليم في Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
  Const xDelayTime As String = "07:30:00"  'The delay delivery time of emails
  Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
  Dim xMail As Outlook.MailItem
  Dim xWeekday As Integer
  Dim xNowTime As String
  Dim xIsDelay As Boolean
  Dim xRet1 As Integer
  Dim xRet2 As Integer
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbMonday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = False
  xRet1 = StrComp(xNowTime, xDelayTime)
  xRet2 = StrComp(xNowTime, xCompareTime)
  If xRet1 = xRet2 Then
    xIsDelay = True
  End If
  If (xRet1 = -1) And (xRet2 = -1) Then
    xMail.DeferredDeliveryTime = Date & " " & xDelayTime
  Else
    If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
      xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
    ElseIf xIsDelay Then
      xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
    End If
  End If
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

ملاحظات:

1) يمكنك ضبط وقت تأخير التسليم الافتراضي والوقت الذي يبدأ منه تطبيق التأخير من هذه الأسطر في الكود:

Const xDelayTime As String = "07:30:00"

Const xCompareTime As String = "17:30:00"

عدّل هذه القيم لتعيين نوافذ إرسال بداية اليوم أو نهاية اليوم المفضلة لديك وفقًا لجدول عملك.

2) إذا أرسلت رسالة إلكترونية في عطلة نهاية الأسبوع، فسيقوم النص البرمجي بجدولة الرسالة ليتم إرسالها بعد الساعة 07:30 صباحًا يوم الاثنين التالي لتجنب التسليم في عطلة نهاية الأسبوع.

3. بعد إدخال الكود، احفظ التغييرات وأغلق نافذة VBA بالضغط علىAlt+Q.

مع تفعيل نص VBA هذا، سيتم إرسال أي رسالة إلكترونية تُرسل خلال ساعات العمل المحددة (على سبيل المثال، بين 07:30 صباحًا و5:30 مساءً) فورًا. أما خارج هذه الساعات، فسيتم الاحتفاظ بالرسائل تلقائيًا وإطلاقها في الساعة 07:30 صباحًا في يوم العمل التالي، مما يوفر جدول إرسال ثابت دون تدخل يدوي.

نصائح إضافية واستكشاف الأخطاء وإصلاحها:

إذا واجهت مشكلات حيث تظل إرسال مؤجل في مجلد البريد الصادر ولا تُرسل في الوقت المجدول، فتحقق من أن Outlook قيد التشغيل ومتصل بشبكة مستقرة في ذلك الوقت. يتطلب تسليم البريد الصادر أن يكون Outlook مفتوحًا ومتصلًا.
بعد تحديث ملف تعريف Outlook الخاص بك أو استبداله، أو عند الانتقال إلى جهاز كمبيوتر جديد، ستحتاج إلى إعادة تطبيق هذا النص البرمجي لأن إعدادات مشروع VBA لا تنتقل تلقائيًا.
إذا أردت تعطيل هذا الأتمتة مؤقتًا، ما عليك سوى وضع تعليق على الكود أو حذفه من ThisOutlookSession.

حلول بديلة

إذا كنت تبحث عن حلٍ أسرع ولا يتطلب كتابة أي أكواد لجدولة رسائلك الإلكترونية، فإنKutools لـ Outlookتوفّر ميزة «الإرسال المجدول» سهولةً فائقة في الاستخدام، وتتيح لك ضبط وقت الإرسال تلقائيًا، أو تأخير التسليم، أو جدولة رسائل متكررة — وكل ذلك بنقراتٍ قليلة فقط! اكتشف المزيد هنا:https://www.extendoffice.com/product/kutools-for-outlook/outlook-schedule-email.html

لقطة لقائمة الأوقات المجدولة

أفضل أدوات إنتاجية 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

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