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

تنزيل Practice Workbook

يمكنك تنزيل المصنف التدريبي من هنا.

3 أمثلة مناسبة من Excel Macro لإرسال البريد الإلكتروني تلقائيًا

خلال هذه المقالة ، سنشرح 3 أمثلة مناسبة لاستخدام ماكرو excel لإرسال بريد إلكتروني تلقائيًا إلى المستلمين. قبل البدء في توضيح المثال ، نحتاج إلى إصلاح شيء ما في ورقة Excel الخاصة بنا. أكمل الخطوات التالية قبل تطبيق الماكرو لإرسال البريد الإلكتروني تلقائيًا.

الخطوات:

• أولاً ، من مجموعة البيانات ، انتقل إلى علامة التبويب Developer . حدد الخيار Visual Basic .

• بعد ذلك ، انتقل إلى علامة التبويب الأداة وحدد الخيار المراجع .

• سيتم فتح مربع حوار جديد باسم ' المراجع - VBAProject '.
• أخيرًا ، حدد الخيار ' مكتبة كائنات Microsoft Office 16.0 ' وانقر فوق موافق .

1. تطبيق Excel VBA Macro للإرسالالبريد الإلكتروني تلقائيًا استنادًا إلى قيمة الخلية

أولاً وقبل كل شيء ، سنطبق ماكرو excel VBA لإرسال بريد إلكتروني تلقائيًا بناءً على قيمة خلية معينة في مجموعة البيانات الخاصة بنا. لتوضيح هذا المثال ، سنستخدم مجموعة البيانات التالية. سنكتب رمزًا يرسل بريدًا إلكترونيًا تلقائيًا إذا كانت قيمة الخلية في الخلية D6 أكبر من 400 .

دعونا نرى خطوات تنفيذ هذا الإجراء.

الخطوات:

• لتبدأ ، الحق - انقر فوق في الورقة " استنادًا إلى الخلية ".
• بالإضافة إلى ذلك ، حدد الخيار " عرض الرمز ".

• سيفتح الإجراء أعلاه فارغة VBA نافذة التعليمات البرمجية لورقة العمل هذه. هناك طريقة أخرى لفتح نافذة التعليمات البرمجية هذه وهي الضغط على Alt + F11 .
• علاوة على ذلك ، اكتب الكود التالي في نافذة الكود هذه:

8998

• ثم انقر فوق الزر تشغيل أو اضغط على مفتاح F5 لتشغيل الكود.

• سيظهر مربع حوار جديد باسم وحدات ماكرو .
• بعد ذلك ، في الحقل اسم الماكرو حدد الماكرو ' send_mail_outlook '.
• الآن انقر فوق الزر تشغيل .

• أخيرًا ، من الآن عندما الخلية القيمة في الخلية D6 & GT ؛ 400 بريد إلكتروني في Outlook سينشئ تلقائيًا مع مستلمين محددين. علينا فقط النقر فوق الزر إرسال لإرسال البريد الإلكتروني.

اقرأالمزيد: إرسال رسائل البريد الإلكتروني تلقائيًا من Excel استنادًا إلى محتوى الخلية (طريقتان)

2. إرسال البريد الإلكتروني تلقائيًا استنادًا إلى تاريخ الاستحقاق باستخدام VBA Macro

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

اتبع الخطوات أدناه لتنفيذ هذه الطريقة.

الخطوات:

• أولاً ، انقر بزر الماوس الأيمن على الورقة التاريخ .
• بعد ذلك ، حدد الخيار ' عرض الرمز .

• يفتح نافذة رمز VBA فارغة لورقة العمل النشطة. يمكننا أيضًا الضغط على Alt + F11 للحصول على نافذة الكود هذه.
• ثم ، أدخل الكود التالي في نافذة الكود هذه:

2926

"aMailBody =" "aMailBody = aMailBody & amp؛" Hello "& amp؛ zRgSendVal & amp؛ CrLf aMailBody = aMailBody & amp؛" Message: "& amp؛ aRgText.Offset (j - 1) .Value & amp؛ CrLf aMailBody = aMailBody & amp؛ "" تعيين aMailItem = aOutApp.CreateItem (0) مع aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End With Set aMailItem = لا شيء ينتهي إذا انتهى إذا لم يتم تعيين End

• جديدسيظهر مربع الحوار.
• بعد ذلك ، في حقل الإدخال الخاص بمربع الحوار هذا ، حدد نطاق عمود تاريخ الاستحقاق D $ 5: $ D $ 9 . ثم انقر فوق موافق .

• سيظهر مربع حوار آخر.
• علاوة على ذلك ، في حدد حقل الإدخال نطاق العمود B $ 5: $ B $ 9 الذي يحتوي على عناوين البريد الإلكتروني وانقر فوق موافق .

• علاوة على ذلك ، ستظهر نافذة أخرى. حدد نطاق الرسالة $ C $ 5: $ C $ 9 في حقل الإدخال للنافذة المنبثقة.

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

اقرأ المزيد: كيفية إرسال بريد إلكتروني تلقائيًا من Excel استنادًا إلى التاريخ

قراءات مماثلة

• [محلول]: مشاركة المصنف لا يظهر في Excel (بخطوات سهلة)
• كيفية إرسال بريد إلكتروني من قائمة Excel (طريقتان فعالتان)
• كيفية إرسال جدول بيانات Excel قابل للتحرير عن طريق البريد الإلكتروني (3 طرق سريعة)
• ماكرو لإرسال بريد إلكتروني من Excel (5 أمثلة مناسبة)
• ماكرو لإرسال بريد إلكتروني من Excel مع النص الأساسي (3 حالات مفيدة)

3. استخدم Excel Macro لإرسال البريد الإلكتروني تلقائيًا مع المرفقات

في المثال الأخير ، سنرى كيف يمكنناتطوير ماكرو excel لإرسال بريد إلكتروني تلقائيًا مع المرفقات. افترض أن لدينا مرفقًا في الصورة التالية. نريد إرسال هذا المرفق عبر بريد إلكتروني باستخدام ماكرو excel VBA . للقيام بذلك ، نحتاج إلى مسار ملف Excel هذا. فيما يلي خطوات ذلك:

• حدد الملف ' Attachment.xlsx ' '.
• انقر فوق الخيار' Copy Path '.

• إذن ، مسار الملف الذي نحصل عليه:

سنقوم بإدخال هذا المسار في كود الماكرو الخاص بنا لإرسال هذا الملف عن طريق البريد الإلكتروني. اتبع الخطوات أدناه للقيام بذلك.

الخطوات:

• أولاً ، انتقل إلى علامة التبويب Developer وحدد الخيار Visual Basic .

• سيتم فتح نافذة جديدة باسم ' Project - VBAProject '.
• ثانيًا ، انقر بزر الماوس الأيمن فوق على اسم الورقة.
• ثم حدد إدراج & gt؛ الوحدة النمطية .

• سيفتح الأمر أعلاه فارغًا VBA
• ثالثًا ، اكتب الكود التالي في تلك الوحدة:

9650

• ثم اضغط على المفتاح F5 أو انقر فوق الزر تشغيل لتشغيل الكود.

• أخيرًا ، سيرسل الكود المرفق إلى رسائل البريد الإلكتروني المتوفرة في الرمز. يرسل الرمز رسائل بريد إلكتروني بواسطة Outlook . لذلك ، انقر فوق الزر السماح للسماح لـ Outlook بإرسال المرفق إلى رسائل البريد الإلكتروني المحددة.

قراءة المزيد: كيفية التقديمماكرو لإرسال بريد إلكتروني من Excel مع المرفق

الخاتمة

في الختام ، توضح هذه المقالة 3 أمثلة لاستخدام Excel VBA الماكرو إرسال البريد تلقائيًا. قم بتنزيل نموذج ورقة العمل الواردة في هذه المقالة لوضع مهاراتك على المحك. إذا كان لديك أي أسئلة ، يرجى ترك تعليق في المربع أدناه. سيحاول فريقنا الرد على رسالتك في أسرع وقت ممكن. ترقب المزيد من الحلول المبتكرة Microsoft Excel في المستقبل.