كيفية تغيير الوقت الافتراضي لتأخير التسليم في Outlook؟
عند تمكين خيار تأخير التسليم (ملف لا توصل من قبل في لقطة الشاشة التالية) للبريد الإلكتروني في Outlook ، يتم تعيين وقت الإرسال على 5:00 مساءً افتراضيًا. لنفترض أنك تعمل في وقت متأخر من الليل ولا تريد أن يعرف الآخرون أنك تعمل لساعات إضافية. تحتاج إلى تمكين خيار تأخير التسليم لرسائل البريد الإلكتروني الخاصة بك قبل إرسالها. بعد تمكين الخيار ، تحتاج إلى تغيير وقت الإرسال الافتراضي يدويًا. خلافًا لذلك ، سيتم إرسال البريد الإلكتروني بعد الساعة 5:00 مساءً في اليوم التالي. هل هناك أي طريقة لتغيير وقت التسليم الافتراضي هذا؟
يوفر هذا البرنامج التعليمي رمز VBA لمساعدتك في تغيير الوقت الافتراضي لخيار تأخير التسليم في Outlook.
تغيير الوقت الافتراضي لتأخير التسليم في Outlook برمز VBA
يمكنك تطبيق التعليمات البرمجية لـ VBA التالية لتغيير الوقت الافتراضي لخيار تأخير التسليم في Outlook.
في كود فبا التالي:
يمكنك تحديد مرتين: تأخير وقت التسليم و خيار تأخير التسليم مما يتيح الوقت.
على سبيل المثال ، يمكنك تعيين وقت التسليم المتأخر على الساعة 07:30 صباحًا وتعيين خيار تأخير التسليم ليتم تمكينه تلقائيًا بعد الساعة 5:30 مساءً. عند إرسال بريد إلكتروني خلال الفترة من 07:30 صباحًا إلى 5:30 مساءً ، سيتم إرسال البريد الإلكتروني مباشرةً. إذا تم إرسال بريد إلكتروني خلال الفترة من 5:30 مساءً إلى 07:30 صباحًا ، فسيتم تحديد موعد إرساله بعد الساعة 07:30 صباحًا في اليوم التالي.
يرجى اختبار البرنامج النصي على النحو التالي.
1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر نقرًا مزدوجًا فوق Project1 > كائنات Microsoft Outlook > هذه الجلسة لفتح ThisOutlookSession (رمز) نافذة ، ثم انسخ الكود التالي في نافذة الكود هذه.
كود فبا: قم بتغيير الوقت الافتراضي لتأخير التسليم في 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
الملاحظات:
3. احفظ الرمز واضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عندما ترسل بريدًا إلكترونيًا خلال الفترة من 07:30 صباحًا إلى 5:30 مساءً ، سيتم إرسال البريد الإلكتروني مباشرةً. إذا تم إرسال بريد إلكتروني خلال 5:30 مساءً - 07:30 صباحًا ، فسيتم جدولته للإرسال بعد الساعة 07:30 صباحًا في يوم العمل التالي.
مقالات ذات صلة
تغيير وقت التذكير الافتراضي لأحداث اليوم كله في Outlook
عادةً ما يكون وقت التذكير الافتراضي لحدث اليوم كله 18 ساعة في Outlook 2007/2010 و 0.5 يوم في Outlook 2013. في بعض الأحيان ، قد لا يتوافق وقت التذكير الافتراضي لحدث اليوم كله مع جدول عملك. هنا سوف نقدم طريقة تغيير وقت التذكير الافتراضي لأحداث اليوم كله في Microsoft Outlook.
قم بتغيير وقت المتابعة الافتراضي في Outlook
كما نعلم ، عندما نضيف تذكيرًا بمتابعة رسالة بريد إلكتروني في Outlook ، يكون وقت المتابعة الافتراضي هو 4:30 مساءً (أو وقت آخر حسب ساعات عملك). ومع ذلك ، قد ترغب في تغيير وقت المتابعة الافتراضي ، والسماح له بتذكيرك في بداية ساعات العمل ، مثل 9:00 صباحًا. في هذه المقالة ، سأوضح لك كيفية تغيير وقت المتابعة الافتراضي في Outlook.
تغيير موقع الأرشيف الافتراضي في Outlook
بشكل افتراضي ، يحتوي Outlook على الموقع الافتراضي لملفات الأرشيف. إلى جانب الموقع الافتراضي ، يمكنك تعيين موقع الأرشيف الخاص بك لملفات الأرشيف. في هذا البرنامج التعليمي ، سنوضح لك كيفية تغيير موقع الأرشيف الافتراضي في Outlook بالتفصيل.
تغيير موقع حفظ المرفق الافتراضي في Outlook
هل سئمت من العثور على موقع المرفق الذي حددته في كل مرة عند تشغيل Outlook؟ في هذا البرنامج التعليمي ، سنوضح لك كيفية تغيير موقع المرفق الافتراضي. بعد ذلك ، سيتم فتح مجلد حفظ المرفق المحدد تلقائيًا في كل مرة تقوم فيها بحفظ المرفقات على الرغم من إعادة تشغيل Outlook.
قم بتغيير الإعداد الافتراضي لحدث طوال اليوم إلى "مشغول في Outlook"
بشكل افتراضي ، يقوم Outlook بتعيين حالة المواعيد والاجتماعات على "مشغول" ، ولكن الأحداث طوال اليوم على "مجانية" (انظر لقطة الشاشة أدناه). تحتاج إلى تغيير الحالة "إظهار كـ" يدويًا إلى "مشغول" في كل مرة تنشئ فيها حدثًا طوال اليوم. لتغيير العرض الافتراضي كحالة أحداث اليوم كله إلى "مشغول" ، توفر لك المقالة طريقتين.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.