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

كيفية إرسال بريد إلكتروني في وقت محدد من اليوم في Excel؟

في بعض الحالات ، قد تحتاج إلى تأخير إرسال بريد إلكتروني في وقت محدد أثناء عملك. هل تعرف كيف تحقق ذلك؟ ستوضح لك هذه المقالة طريقة إرسال بريد إلكتروني في وقت محدد من اليوم في Excel.

أرسل بريدًا إلكترونيًا في وقت محدد من اليوم مع رمز VBA


أرسل بريدًا إلكترونيًا في وقت محدد من اليوم مع رمز VBA

يمكن أن تساعدك أكواد VBA التالية في إرسال بريد إلكتروني في وقت محدد من اليوم في Excel. الرجاء القيام بما يلي.

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا 1: أرسل بريدًا إلكترونيًا في وقت محدد من اليوم في Excel

Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display
 .To = "Email address"
 .Subject = "Send email"
 'HTML for fun
 '.BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
 '.Send
 
End With
End Sub

3. انقر نقرًا مزدوجًا فوق ThisWorkbook في الجزء الأيمن لفتح نافذة ThisWorkbook (الرمز). ثم انسخ رمز VBA 2 أدناه في النافذة. انظر لقطة الشاشة:

كود فبا 2: أرسل بريدًا إلكترونيًا في وقت محدد من اليوم في Excel

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

ملاحظة: في الكود 2 ، يرجى تحديد وقت الإرسال حسب حاجتك.

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

5. انقر قم بتقديم > حفظ باسم > تصفح.

6. في ال حفظ باسم مربع الحوار ، مناشدات اختيار مجلد لحفظ المصنف ، قم بتسميته كما تريد ، حدد مصنف Excel ممكن بماكرو تنسيق من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق الزر حفظ زر. انظر لقطة الشاشة:

من الآن فصاعدًا ، بمجرد وصول الوقت المحدد ، سيتم عرض البريد الإلكتروني المحدد تلقائيًا. الرجاء الضغط على إرسال زر لإرسال هذا البريد الإلكتروني.

مقالات ذات صلة:


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (1)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي قائمة بعناوين البريد الإلكتروني في Excel التي أحتاجها لإرسال رسائل بريد إلكتروني إلى الموضوع والجسم في الخلايا بجانب عنوان البريد الإلكتروني ولدي البرنامج النصي أدناه ولكني بحاجة إلى إرسال 100 بريد إلكتروني لكل ساعة كيف يمكنني وما هو الرمز استخدام لذلك ، يرجى دعمكم



إرسال فرعي
خافت كعدد صحيح ، Mail_Object ، Email_Subject ، o كمتغير ، lr طالما
lr = خلايا (Rows.Count، "A"). End (xlUp) .Row
تعيين Mail_Object = CreateObject ("Outlook.Application")
بالنسبة إلى i = 2 إلى lr
باستخدام Mail_Object.CreateItem (o)
.Subject = المدى ("B" & i). القيمة
.To = المدى ("A" & i). القيمة

. Body = Range ("C" & i). القيمة
.attachments.Add (Sheets ("Sheet1"). Range ("H & i) .Text)
.attachments.Add (Sheets ("Sheet1"). Range ("I" & i) .Text)
.attachments.Add (Sheets ("Sheet1"). Range ("J" & i) .Text)
.attachments.Add (Sheets ("Sheet1"). Range ("K" & i) .Text)
.إرسال

عرض ".display" تعطيل العرض وتمكين الإرسال للإرسال تلقائيًا
انتهت ب
أنا القادم
MsgBox "تم إرسال البريد الإلكتروني بنجاح"، 64
Application.DisplayAlerts = خطأ
تعيين Mail_Object = لا شيء
نهاية الفرعية
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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