كيفية إرسال بريد إلكتروني متكرر لجدول زمني في Outlook؟

في Microsoft Outlook ، يمكنك بسهولة إرسال موعد أو اجتماع أو مهمة متكررة إلى الآخرين. ولكن إذا كنت تريد فقط إرسال بريد إلكتروني متكرر لجدول زمني دون أي موعد أو اجتماع أو مهمة ، فكيف يمكنك أن تفعل؟ لسوء الحظ ، لا يوفر Outlook أي ميزة لإرسال بريد إلكتروني متكرر للجدول الزمني ، ولكن في البرنامج التعليمي الخاص بنا ، سوف نوضح لك كيفية إرسال بريد إلكتروني متكرر لجدول زمني في Outlook.

إرسال بريد إلكتروني متكرر لجدول زمني في Outlook مع رمز VBA

• الجزء الأول: إنشاء موعد جديد
• الجزء الثاني: إنشاء فئة جديدة
• الجزء الثالث: ضبط التكرار
• أخيرًا: استخدم رمز فبا لإرسال البريد الإلكتروني المتكرر للجدول الزمني

إرسال بريد إلكتروني متكرر لجدول زمني في Outlook مع رمز VBA

ينقسم هذا البرنامج التعليمي إلى أربعة أجزاء ، ستنجح في إرسال بريد إلكتروني متكرر بعد الانتهاء من هذه الأجزاء. الرجاء القيام بما يلي.

الجزء الأول: إنشاء موعد جديد

1. الرجاء الانتقال إلى عرض بالنقر في ال جزء التنقل، ثم قم بإنشاء موعد جديد بالنقر فوق موعد جديد تحت الرئيسية علامة التبويب.

3. في ال احجز كشف حوار تحت احجز كشف التبويب. تحتاج إلى:

ملاحظة: ال موضوع التعيين سيصبح موضوع البريد الإلكتروني المتكرر ؛ و ال هيئة التعيين سيصبح نص البريد الإلكتروني المتكرر عندما يتلقى المستلمون البريد الإلكتروني.

الجزء الثاني: إنشاء فئة جديدة

أنت الآن بحاجة إلى إنشاء فئة جديدة باسم "إرسال بريد إلكتروني متكرر جدولة" على النحو التالي:

1. في ال احجز كشف الحوار ، الرجاء الضغط صنف > جميع الاقسام في ال القسم مجموعة تحت احجز كشف علامة التبويب.

2. عندما فئات اللون يظهر مربع الحوار ، الرجاء الضغط جديد زر. في ال إضافة فئة جديدة الحوار ، اكتب "إرسال بريد إلكتروني متكرر جدولة"في الإسم حقل؛ ثم اختر لونًا في اللون قائمة منسدلة. ثم اضغط OK.

3. ثم سترى "إرسال بريد إلكتروني متكرر جدولة"تم إدراج فئة" ، يرجى تحديد المربع ، ثم النقر فوق OK .

الجزء الثالث: ضبط التكرار

الآن ، حان الوقت لتعيين تكرار الموعد.

1. انقر تكرار في ال الخيارات مجموعة تحت احجز كشف التبويب. انظر لقطة الشاشة:

2. في ال تكرار الموعد الحوار ، تكوين الخاص بك تكرار نمط. إذا كنت بحاجة إلى وقت انتهاء ، فالرجاء تهيئته ضمن نطاق التكرار. ثم انقر فوق OK.

3. عندما يعود إلى احجز كشف الحوار ، الرجاء الضغط حفظ وإغلاق زر. انظر لقطة الشاشة:

أخيرًا: استخدم رمز فبا لإرسال البريد الإلكتروني المتكرر للجدول الزمني

1. الرجاء الضغط قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات الحوار.

2. انقر نقرًا مزدوجًا فوق Project1 > كائن Microsoft Outlook > هذه الجلسة في الجزء الأيمن. انظر لقطة الشاشة:

3. انسخ والصق رمز VBA التالي في محرر VBA. ثم انقر فوق توفير .

VBA: إرسال بريد إلكتروني متكرر للجدول الزمني

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. انقر الأدوات > المراجع لفتح المراجع - مشروع الحوار. في مربع الحوار ، تحقق من مكتبة كائنات Microsoft Word الخيار وانقر فوق OK .

5. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

ملاحظة: تم اختبار رمز VBA بنجاح في Outlook 2010 والإصدارات الأحدث.

Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

• CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
• تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
• رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
• أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة...
• رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال... تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

اقرأ أكثر... التحميل الان...