كيفية إرسال البريد الإلكتروني بالجملة من Outlook باستخدام Excel VBA

هل تحتاج إلى تسليم رسائل بريد إلكتروني جماعية مخصصة لعملائك أو عملائك أو أصدقائك أو أي جهات اتصال أخرى؟ هل تريد أن تفعل ذلك بنقرة واحدة؟ أن من الممكن! هناك أداة سحرية في Microsoft Excel تقوم بكل ذلك. إنه Visual Basic للتطبيقات ويعرف أيضًا باسم Excel VBA.

تابع القراءة لمعرفة كيفية إرسال بريد إلكتروني مجمع من Outlook باستخدام Excel VBA . هناك المزيد! يمكنك ممارسة ذلك باتباع أبسط الخطوات المذكورة في البرنامج التعليمي أدناه. دعونا نحفر!

كيفية إرسال البريد الإلكتروني بالجملة من Outlook باستخدام Excel VBA

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

سيستخدم برنامج VBA الذي ستقوم بتشغيله Microsoft Outlook كتطبيق إرسال البريد الإلكتروني. وبالتالي ، تحتاج إلى تثبيت Outlook وتكوينه على جهاز الكمبيوتر الخاص بك. لن يتمكن رمز VBA من استخدام برنامج Outlook المستند إلى مستعرض الويب.

بمجرد أن تصبح جاهزًا باستخدام ملف Excel وتطبيق Outlook ، قم بتنفيذ الخطوات التالية:

• قم بتنظيم ورقة عمل البريد الإلكتروني المجمعة في 6 أعمدة.
• اكتب عناوين الأعمدة في الصف A1: إرسال بالبريد الإلكتروني إلى (أ) ؛ Email CC (B) ؛ موضوع البريد الإلكتروني (ج) ؛ نص البريد الإلكتروني (D) ، المرفق (E) ، الحالة (F).
• أضف جميع "إلى العناوين" تحت عنوان العمود أ . يمكنك إضافة الآلاف من رسائل البريد الإلكتروني إذا أردت.
• وبالمثل ، اكتب "عناوين CC" أسفل عنوان العمود ب .
• حان الوقت لتخصيص سطر موضوع البريد الإلكتروني. يمكنك إضافة مواضيع بريد إلكتروني مخصصة لكل جهة اتصال تحت عنوان العمود C.
• الشيء نفسه ينطبق على محتوى نص البريد الإلكتروني. نسخ محتوى البريد الإلكتروني ولصقه في الصفوف الموجودة أسفل عنوان العمود D.
• قم بنسخ ولصق مواقع مرفقات الملفات أسفل عنوان العمود E.
• للحصول على موقع المرفق ، اضغط على Shift وحدد الملف الهدف على جهاز الكمبيوتر الخاص بك.
• الآن ، انقر بزر الماوس الأيمن وحدد نسخ كمسار لنسخ عنوان الملف في حافظة الكمبيوتر.
• يمكنك الآن لصق العنوان مباشرة في صفوف العمود E.
• اترك العمود F فارغًا لأن رمز VBA سوف يملأ الحالات تلقائيًا.

• احفظ ورقة Excel كملف ممكن بماكرو.
• الآن ، اضغط على Alt + F11 لإحضار محرر كود VBA.
• انقر فوق "أدوات" في القائمة العلوية ثم حدد "المراجع" .
• ابحث عن مكتبة كائنات Microsoft Office 16.0 في القائمة التالية وحدد المربع.
• انقر فوق "موافق" لحفظ Outlook ككائن لـ VBA.

• الآن ، انقر فوق إدراج ثم اختر الوحدة النمطية لفتح محرر التعليمات البرمجية.
• انسخ والصق الكود المذكور أدناه في الوحدة النمطية .

Sub Send_Bulk_Mails () Dim sh As مجموعة ورقة العمل sh = ThisWorkbook.Sheets ("Worksheet_Name") Dim i As Integer Dim OA as Object Dim msg As Object Set OA = CreateObject ("outlook.application") Dim last_row كـ عدد صحيح last_row = التطبيق. CountA (sh.Range ("A: A")) لـ i = 2 To last_row اضبط msg = OA.createitem (0) msg.to = sh.Range ("A" & i) .Value msg.cc = sh. النطاق ("B" & i) .Value msg.Subject = sh.Range ("C" & i) .Value msg.body = sh.Range ("D" & i) .Value If sh.Range ("E" & i) .Value <> "" ثم msg.attachments.Add sh.Range ("E" & i) .Value End If msg.send sh.Range ("F" & i) .Value = "Sent" Next i MsgBox "تم إرسال جميع رسائل البريد الإلكتروني" End Sub

• أدخل اسم ورقة العمل الحالية مفصولاً بشرطة سفلية في سطر الرمز 3 حيث تقول (" اسم_ورقة العمل ").
• انقر فوق حفظ من القائمة لحفظ البرنامج النصي.
• يمكنك الضغط على F5 لتشغيل الماكرو وسيقوم Excel تلقائيًا بإرسال رسائل البريد الإلكتروني من خلال Outlook.

• يمكنك أيضًا الوصول إلى هذا الماكرو لاحقًا من علامة التبويب Developer في قائمة شريط Excel.

خاتمة

الآن بعد أن اتبعت مع كيفية إرسال رسائل بريد إلكتروني مجمعة من Outlook باستخدام برنامج Excel VBA التعليمي ، يمكنك بسهولة إرسال رسائل بريد إلكتروني جماعية دون إضاعة الوقت في إرسال بريد إلكتروني يدوي.

هل تريد تعلم خدعة VBA أخرى لبرنامج Excel؟ راجع هذا البرنامج التعليمي لمعرفة كيفية أتمتة التدقيق الإملائي في Excel باستخدام VBA.