Note: The other languages of the website are Google-translated. Back to English

كيفية إرسال بريد إلكتروني متكرر لجدول زمني في 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 ، فإن الطريقة المذكورة أعلاه مملة للغاية بحيث لا يمكن التعامل معها بشكل صحيح. هنا نوصي بشدة جدولة الإرسال التلقائي سمة من سمات كوتولس لتوقعات. باستخدام هذه الميزة ، يمكنك بسهولة إنشاء عدة رسائل بريد إلكتروني متكررة ، وجدولة رسائل البريد الإلكتروني هذه لإرسالها بانتظام على فترات يومية أو أسبوعية أو شهرية أو سنوية حسب حاجتك. يرجى القيام بما يلي لإنجازه.

انتقل إلى (تحديث البرنامج) في MyCAD قم بتنزيل 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 يومًا. تحميل الآن!


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

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (171)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الطريقة ساعدت. لقد نجحت في الموعد الأول الذي تم إنشاؤه عندما كنت أختبره. ولكن بعد ذلك توقف عن العمل لاحقًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واجهت نفس المشكلة ، لقد كررت الخطوات عدة مرات والآن لا تعمل على الإطلاق ، لم يتم إرسال رسائل بريد إلكتروني أو أي شيء هل تمكنت من إصلاحه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد تمكنت من إعداد بريد إلكتروني متكرر باتباع الخطوات المذكورة أعلاه ، ولكن عندما أنشأت ارتباطًا تشعبيًا في نص الموعد ، عندما تم تشغيل الحدث وتلقيت بريدًا في البريد ، تم تحويل الارتباط التشعبي إلى ارتباط خام. نقدر اي مساعدة، شكرا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! نجح هذا. هل هناك طريقة لتضمين مرفق في البريد الإلكتروني المرسل؟ لقد جربت اختبارًا بإضافة المرفق إلى حدث التقويم ولكنه لا يظهر في البريد الإلكتروني.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سبق لك أن تلقيت إجابة حول كيفية إضافة مرفق؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد حصلت على هذا للعمل مع البريد الإلكتروني التجريبي ، ولكن الآن لم يعد يفعل أي شيء ، وقمت بحذف كل شيء وكرر الخطوات ، هل هناك المزيد لهذا؟ أنا في توقعات 2013 كذلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة. نجح هذا في المرة الأولى ولكن لا يبدو أن تذكير الموعد المتكرر أدى إلى تشغيل البريد الإلكتروني. هل وجد أي شخص حلا لهذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لقد حصلت على هذا للعمل مع البريد الإلكتروني التجريبي ، ولكن الآن لم يعد يفعل أي شيء ، وقمت بحذف كل شيء وكرر الخطوات ، هل هناك المزيد لهذا؟ أنا في توقعات 2013 كذلكبواسطة Wonderful[/ اقتباس] هل سبق لك حل هذا؟ لقد قمت بإعداد هذا للتو وأرى نفس الشيء الذي فعلته. عملت بشكل رائع في المرة الأولى ثم لا شيء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بفرز ذلك في النهاية عن طريق تمكين وحدات الماكرو في Outlook والتي تم إيقاف تشغيلها افتراضيًا. المشكلة الوحيدة التي أواجهها الآن هي أن النص الموجود في البريد الإلكتروني هو نص عادي فقط ، ولا توجد تغييرات غامقة أو حجم الخط أو اللون وما إلى ذلك. هل هناك أي طريقة لتغيير الكود أعلاه بحيث يكون لديك نص RTF أو HTML في البريد الإلكتروني؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هل حللت هذا. لدي نفس المشكلة حاولت هذا ، ولكن لا يعمل. Sub SetMailFormat_2002_2003_2007_2010 (بريد ByRef ككائن) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32 (mail.GetType (). InvokeMember ("BodyFormat"، _ Reflection.BindingFlags.GetProperty، Nothing، mail، Nothing) = 0 'OlBodyFormat.olFormatPlain = 1' OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) ثم mailFormat = 2 mail.GetType (). InvokeMember ("BodyFormat"، _، Reflection.BropertFinders لا شيء ، بريد ، كائن جديد () {mailFormat}) إنهاء Sub Private Sub Application_Reminder (عنصر ByVal ككائن) Dim MItem As MailItem Set MItem = Application.CreateItem (olMailItem) If Item.MessageClass "IPM.Appointment" ثم قم بإنهاء Sub If Item .الفئات "إرسال بريد إلكتروني متكرر للجدول الزمني" ثم اخرج من Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = لا شيء ينتهي الفرعي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لقد قمت بفرز ذلك في النهاية عن طريق تمكين وحدات الماكرو في Outlook والتي تم إيقاف تشغيلها افتراضيًا. المشكلة الوحيدة التي أواجهها الآن هي أن النص الموجود في البريد الإلكتروني هو نص عادي فقط ، ولا توجد تغييرات غامقة أو حجم الخط أو اللون وما إلى ذلك. هل هناك أي طريقة لتغيير الكود أعلاه بحيث يكون لديك نص RTF أو HTML في البريد الإلكتروني؟بواسطة كايل[/ اقتباس] مرحبا هل وجدت حلا لهذا. أنا في حاجة إليها :) كيم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قد تفكر أيضًا في استخدام برنامج جدولة مهام Windows لشيء كهذا. إنه سهل الاستخدام ويمكنه حتى التعامل مع المرفقات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت المهمة ولكني لم أحصل على أي شيء لأن المرفق لا ينتقل إلى نص البريد الإلكتروني. يرجى تقديم المشورة كيف فعلت ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما هو الرمز الذي تستخدمه؟ لم يرفق المرفقات بالبريد الإلكتروني.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تقوم بإيقاف تشغيله؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعيدًا عن رأسي ، لإيقاف إرسال البريد الإلكتروني المتكرر ، يمكنك إما: 1. حذف الموعد تمامًا. 2. تغيير أو إزالة مجموعة الفئة. 3. قم بتطبيق "تاريخ الانتهاء بحلول" على تكرار الموعد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل تحتاج إلى أن يكون برنامج outlook مفتوحًا / قيد التشغيل لإرسال البريد المتكرر؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعمل هذا الرمز مع Office 365 - Outlook 2013؟ لقد اتبعت الخطوات عدة مرات ، وقمت بتمكين وحدات الماكرو أيضًا. أحصل على التذكير وأضغط على "رفض" ولكن لا يتم إرسال رسائل البريد الإلكتروني مطلقًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، تحقق من هذا - أعتقد أنك ستحب هذه الميزة تمامًا .. لا مزيد من رسائل البريد الإلكتروني الأسبوعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة للإرسال إلى قائمة التوزيع في جهات الاتصال؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم هارون ، كنت بحاجة للقيام بذلك بنفسي. حاولت إضافة قائمة توزيع (مجموعة جهات اتصال Outlook) تسمى "مجموعة المواصفات". هذا لم يرسل. ومع ذلك ، قمت بتغيير اسم القائمة إلى "Spec @ Group" (لجعلها تبدو كعنوان بريد إلكتروني حقيقي) وقد نجح هذا الأمر بشكل مثالي. يجب أن يحتاج إلى "@" ليتم اختياره. تخمين محظوظ! :الضحك بصوت مرتفع:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا يعمل بشكل جيد. الآن أنا بحاجة إلى نفس البريد الإلكتروني للذهاب إلى مجموعات متعددة. هل أستطيع مساعدتك؟ Private Sub Application_Reminder (عنصر ByVal ككائن) Dim CF كمجلد Set CF = Application.Session.GetDefaultFolder (olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items ("GDL Group 1") Dim MItem كـ MailItem Set MItem = التطبيق. CreateItem (olMailItem) If Item.MessageClass "IPM.Appointment" ثم قم بإنهاء Sub If Item.Categories "Recurring GDL Recert Email" ثم قم بإنهاء Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. إرسال مجموعة MItem = لا شيء نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قم بإنشاء قائمة توزيع أخرى تحتوي على / تشير إلى قوائم التوزيع الأخرى التي لديك بالفعل الإعداد الذي تريد تضمينه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن جدولة بريد إلكتروني ليتم إرساله في Outlook عند اختفاء الكمبيوتر. على سبيل المثال ، أود إرسال تذكير بموعد يوم الأحد لاجتماع يوم الاثنين ، لكنني لست في العمل أيام الأحد ، فكيف يمكنني إرسال هذا البريد الإلكتروني يوم الأحد عندما لا أكون في العمل وجهاز الكمبيوتر الخاص بي إيقاف؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لم يظهر رمز VBA عند الضغط على ALT & F11. تمكنت من سحب Microsoft Visual Basic للتطبيقات ، ولكن لم يكن هناك رمز موجود. هل تستطيع أن تنصحني من فضلك؟ شكرا لك راج
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا راج ، يجب عدم وجود رمز VBA. إذا اتبعت الدليل أعلاه ، فعند النقر المزدوج على "ThisOutlookSession" من المفترض أن يكون فارغًا. يجب عليك نسخ ولصق الكود الموضح في الدليل في نافذة "ThisOutlookSession" ثم حفظه. أتمنى أن يساعدك هذا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا عندما أتبع جميع الخطوات وحفظها وأذهب ، قم بعمل بريد إلكتروني آخر - لا يزال الرمز موجودًا منذ آخر مرة. هل الرمز المرفق بالفئة المختارة فلا داعي لإضافة الرمز لكل بريد إلكتروني؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Bonnie ، يجب إضافة رمز VBA مرة واحدة فقط (لأول بريد إلكتروني متكرر). إذا قمت بإعداد أكثر من بريد إلكتروني متكرر ، فاترك هذه الخطوة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي مكتب 2016 وحاولت ذلك ، باتباع التعليمات الخاصة بك بالضبط. انها عملت!! شكرا جزيلا لك. اضطررت إلى تغيير إعدادات أمان الماكرو في Outlook 2016 ومحرر VBA لتشغيله ، ولكن بمجرد الانتهاء من ذلك ، تدفقت التعليمات بسهولة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف قمت بتغيير إعدادات أمان الماكرو في Outlook وما الذي قمت بتغييره إليه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هناك شيئان ، أحدهما لا يظهر بالطريقة التي كتبت بها IE ، لا توجد أحرف جريئة واثنين كيف يمكنني إضافة توقيع؟ لأنه يظهر كارتباط تشعبي بدلاً من توقيعي العادي. شكرا للمساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يظهر Alex Mine بالتنسيق الذي تم تجريده أيضًا. كيف نحافظ عليه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد تم إرسالها بشكل جيد ، لكنها أسقطت كل التنسيقات الرائعة الموجودة في جسم البريد الإلكتروني الخاص بي. كيف يمكنني الاحتفاظ بهذا التنسيق ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد أن أعرف كيف / إذا كان بإمكانك إرفاق ورقة Excel spreed؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شباب. هذا الرمز يعمل بشكل رائع ولكن لدي مشكلة صغيرة. البريد الإلكتروني الذي أحاول إرساله هو جزء من فئتين: إرسال رسالة (يستخدم الماكرو) و PROGRAMARI RED-TEAM. يعمل الماكرو بشكل جيد عندما أقوم فقط بإضافة فئة إرسال رسالة ، ولكن بمجرد إضافة أي فئة أخرى ، يتوقف الماكرو عن إرسال رسائل البريد الإلكتروني. ها هو الرمز حتى الآن. الرجاء المساعدة: P Private Sub Application_Reminder (ByVal Item As Object) خافت objMsg As MailItem Set objMsg = Application.CreateItem (olMailItem) 'IPM.TaskItem لمشاهدة تذكيرات المهام إذا كان Item.MessageClass "IPM.Appointment" ثم قم بإنهاء Sub End إذا Item.Categories "أرسل رسالة" ثم قم بإنهاء Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie / Contract Service" objMsg.Body = "Buna ziua، "& vbNewLine & vbNewLine & _" Conform bazei noastre de date، autorizatia / contractul de service، incheiat intre compania nostra si "+ Item.Subject +" urmeaza sa expire in termen de 14 zile. " & vbNewLine & _ "Acest lucru este in atentia Departamentului nostru Service، si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim بينترو إنديريا أكورداتا." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nothing End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يتوقف بسبب السطر .... إذا كان العنصر
عندما تقوم بإضافة فئة أخرى ، فإنه يقوم بإدخال فرع الخروج .... ربما يستخدم إذا كان instr (1، item.categories، "Send Schedule Recurring Email") = 0 ثم الخروج من sub أو شيء من هذا القبيل ...
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL