انتقل إلى المحتوى الرئيسي

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

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

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

أرسل رسائل البريد الإلكتروني المتكررة بسهولة في برنامج Outlook باستخدام أداة رائعة


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

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

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

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

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

ج: اكتب ملف الموضوع ب: أدخل عناوين البريد الإلكتروني للمستلمين في ملف الموقع الجغرافي
ج: تكوين وقت البدء و نهاية الوقت د: حدد التذكير أسفل ملف تذكير قائمة منسدلة.
إذا اخترت 15 دقيقة ، فهذا يعني أنه سيذكرك قبل 15 دقيقة عند إرسال البريد الإلكتروني.
هـ: قم بتكوين هيئة موعدك.

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

الجزء 2: قم بإنشاء فئة جديدة

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

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

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

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

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

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

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

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

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

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

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 والإصدارات الأحدث.


أرسل رسائل البريد الإلكتروني المتكررة بسهولة في برنامج Outlook باستخدام أداة رائعة

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

انتقل إلى البرنامج المساعد في التأليف قم بتنزيل Kutools for Outlook وجرب.

1. انقر كوتولس > جدولة الإرسال التلقائي > إنشاء جدول الإرسال التلقائي.

2. ثم يتم فتح نافذة رسالة ، وتحتاج إلى:

2.1) حدد مستلمي البريد الإلكتروني في إلى CC or مخفية الحقول حسب حاجتك ، ثم املأ البريد الإلكتروني موضوعات؛
2.2) إنشاء نص البريد الإلكتروني ؛
شنومكس) انقر تكرار تحت Kutools المتكررة التبويب. انظر لقطة الشاشة:

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

4. الآن يعود إلى نافذة الرسالة ، انقر فوق حفظ وإغلاق زر لحفظ الإعدادات المتكررة وإغلاق النافذة.

نصيحة: يمكنك تكرار الخطوة 1 إلى 4 أعلاه لإنشاء عدة رسائل بريد إلكتروني متكررة حسب حاجتك.

5. الآن قم بتشغيل الميزة بالنقر فوق كوتولس > جدولة الإرسال التلقائي > تمكين.

6. في الافتتاح كوتولس لتوقعات مربع الحوار، انقر فوق حسنا.

بعد الانتهاء من الإعدادات المذكورة أعلاه ، سيتم إرسال رسائل البريد الإلكتروني المتكررة تلقائيًا عند حلول التاريخ والوقت المحددين.

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

1. انقر كوتولس > جدولة الإرسال التلقائي > إدارة جدول الإرسال التلقائي.

2. في ال Mange جدول الإرسال التلقائي نافذة ، يمكنك إنشاء جديد البريد الإلكتروني المتكرر ، تعديل الحذف، شغل or خصم بريد إلكتروني متكرر موجود حسب حاجتك. أو يمكنك النقر فوق سجل رمز لعرض محفوظات الإرسال لرسائل البريد الإلكتروني المتكررة.

انقر لمعرفة المزيد عن هذه الميزة.

  كوتولس لتوقعات يتضمن أكثر من 100 ميزة قوية لبرنامج Microsoft Outlook. تجربة مجانية بدون قيود خلال 60 يومًا. تحميل الآن!


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (171)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,
J'utilise outlook depuis peu, et j'ai découvert cette manipulation pour envoyer un mail récurrent. Cela a très bien fonctionné la première fois, mais je ne comprends pas, ça ne fonctionne plus. Cela a peut-être de l'importance, mais comme je travaille sur 2 ordinateurs différents, le code VBA a aussi été intégré sur ma deuxième session outlook. Auriez-vous une explication je vous prie ?
Merci d'avance
This comment was minimized by the moderator on the site
Hi Pink,
Which Outlook version are you using? Is there a reminder dialog box popping up afterwards?
This comment was minimized by the moderator on the site
This feature does not work for me no matter what I do and from the above thread, it doesn't look like they are attempting to fix it much less address it--I don't see any responses from the developer.

It's too bad because everything else with this product works very well.
This comment was minimized by the moderator on the site
Hi Rhonda Corn,
Can you provide the emails under the following folder path?
You can compress it and send it to
C:\Users\User Name\AppData\Roaming\ExtendOffice\OutlookKutools\KTORecurringEmail
This comment was minimized by the moderator on the site
How do I get this to run 2 different scheduled emails?
This comment was minimized by the moderator on the site
Hi, 
When I put recipients names into "location" it changes "appointment" to "meeting" invite, is this working as intended? It doesn't allow me to "save and close", but rather "send" the invite now which is not what I want to do.
This comment was minimized by the moderator on the site
Hi,Appointments are not changed to meetings when entering content into the Location field. 
This comment was minimized by the moderator on the site
I scheduled the reoccurring email however instead of sending email on the 30th it sent it today. I checked the settings and is set to send email on 30th at 10 am. Instead it sent the email on the 17th at 5:45 PM
This comment was minimized by the moderator on the site
Hi Leah,Sorry for the trouble, the problem you described cannot be reproduced. Here suggest using the relevant function of KTO to send a schedule recurring email.
This comment was minimized by the moderator on the site
I’m trying to set up a recurring email to be sent. However, it’s not working for some reason. It acts like it’s trying, but I get this error message:
This comment was minimized by the moderator on the site
Hi,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
It is enabled
This comment was minimized by the moderator on the site
It is enabled already
This comment was minimized by the moderator on the site
I had the same problem.  I had a look in the available references list and found a second Microsoft Word 16.0 Object Library that was not enabled. Once I enabled that one, it solved the problem for me!
This comment was minimized by the moderator on the site
Hello, 
Several errors to easily solve if the mail stays in "draft" : 
-> Add .Save juste before .Send
-> Don't close everything too fast or the script wouldn't have the time to send the mail that it has been cleaned... so find a way to delay those 2 rows 
Set xMailItem = Nothing
VBA.Kill xFldPath
Maybe with a thread sleep/wait ? Is the killing mandatory ? wouldn't this be killed when outlook is closed ? For my usecase, it was ok to remove them
This comment was minimized by the moderator on the site
I followed the instruction in this article "How to send a schedule recurring email in Outlook" multiple times, to no avail. I get the popup reminder box but, the e-mail is never sent. I've tried with Kutools for Outlook installed and uninstalled. Still no success in sending a scheduled recurring email in Outlook.

Thanx,
RLB
This comment was minimized by the moderator on the site
I have had the same situation. It was working fine for almost a year and then suddenly stopped working. I've tried recopying the code, delete it completely and start over. Same results- popup reminder box happens, I click ok, and the email is never sent.
This comment was minimized by the moderator on the site
Hi tarnold,Make sure that the category name you created in step 2 is the same as the name specified in the code.
Can you try the VBA below and give me feedback on error you encountered later? Because this problem needs to be reproduced in my case. Or you can also try the third party tool mentioned in the post. Sorry for the inconvenience.

<div data-tag="code">Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20220114
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
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
This comment was minimized by the moderator on the site
Crystal,
Sorry for the delay.  I copied your script into VBA.  My category is "Recurring Email", so I made it match in your script.  I set up a recurring email to test it.  The reminder window pops up at the correct time.  I waited a couple of minutes and then clicked 'dismiss'.  The window closes.  No errors.  No email sent.
This comment was minimized by the moderator on the site
Hi Crystal, when using the code above I have this error: 
Erreur de compilation: Type défini par l'utilisateur non défini
it's concerning this lineDim xItemDoc As Word.Document

any ideas?
This comment was minimized by the moderator on the site
Hi Marie-Eve Noel,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
At least yours work for a while. Mine never worked. Contacted Support and was told to post here. I suppose we'll have to wait on the author to respond.
This comment was minimized by the moderator on the site
Hi RodmanB,
Can neither of the two methods described in the article solve the problem?
VBA code and Kutools for Outlook are two different ways to handle the task.I need to know more specific about your issue, such as your Excel version.
This comment was minimized by the moderator on the site
Hi Crystal,
I am using MSOffice 365 for all of the Office products- Outlook, Excel, etc. As I posted 6month ago, it was working fine with my previous MSOffice desktop software.  When I switched to Office 365, it stopped working and I am having the same/similar situation as RodmanB.  The reminder popup occurs, I dismiss it and nothing happens.  The email is not in the draft folder, not in the sent folder, nothing.
This comment was minimized by the moderator on the site
Crystal,   Thanks for help. I replaced the VBCode and made a different test email. It preformed just as the other; reminder pops up, .wav file plays but the email is not sent. I'll install Kutools for Outlook and try that way tomorrow and, will respond with results.
This comment was minimized by the moderator on the site
Crystal,   Unable to install Kutool for outlook, demo license expired. Not willing to buy  just to debug this feature. So, have a great day and thanks for the help.
Thanx,RLB
This comment was minimized by the moderator on the site
Hi have implemented this and there's a couple of issues.1 - if i don't have Outlook opened, the email is not sent --> i guess this is normal, not a big deal anyway.2 - even the appointment appears just once a day and the email sent properly then, i see that the email is sent randomly other extra times during the day. For example, my schedule is daily at 9:00 and this is sent at 9:00 (OK) and also at 17:13 (NOK). I am not being able to identify why, any idea?
thanks.
This comment was minimized by the moderator on the site
What would the VBA code be for this but sending from the recipients of the appointment, not the "location" of the appointment as coded above? I need to send to 20+ people and cannot add enough names as the location fields is limited on characters. Many thanks
This comment was minimized by the moderator on the site
Hi J,You can try the second method "the Schedule auto send feature of Kutools for Outlook" mentioned in the post.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations