إرسال بريد إلكتروني باستخدام VBA: تعلم في 11 خطوة بسيطة وسهلة

تعد Visual Basic for Applications أو VBA لغة برمجة قوية ولكنها سهلة وتتيح لك أتمتة Microsoft Excel على أكمل وجه. أحد هذه الأتمتة هو استخدام أكواد VBA لدمج تطبيقات Microsoft الأخرى مثل Outlook و PowerPoint و Word وزيادة الإنتاجية.

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

تنشيط مكتبة كائنات Microsoft Outlook

تحتاج إلى تعيين مرجع كائن إرسال البريد الإلكتروني في Outlook نظرًا لأنه كائن خارجي لـ Excel VBA . اتبع مع هذه الخطوات:

• احفظ ملف Excel الحالي كملف ممكّن بماكرو بالنقر فوق ملف > حفظ باسم > حدد موقعًا وتغيير حفظ كنوع .
• اضغط على Alt + F11 لإظهار محرر التعليمات البرمجية لـ VBA وانقر فوق الأدوات الموجودة في شريط القائمة العلوي.

• من هناك ، حدد مراجع ثم قم بالتمرير في قائمة المراجع المتاحة للعثور على مكتبة كائنات Microsoft Outlook 16.0 .
• حدد الكائن وانقر فوق "موافق" للخروج من قائمة المراجع المتاحة .

إرسال بريد إلكتروني باستخدام VBA: اكتب الرموز وتنفيذها

الآن بعد أن قمت بتمكين كائن Outlook في Excel VBA ، اتبع هذه الخطوات لكتابة ماكرو Excel وتنفيذ ما يلي:

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

Sub send_email_with_VBA () Dim EmailApp مثل Outlook.Application Dim Source as String Set EmailApp = New Outlook.Application Dim EmailItem as Outlook.MailItem Set EmailItem = EmailApp.CreateItem (olMailItem) EmailItem.To = "[email protected]" EmailItem = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "حالة شحن طلب العميل" EmailItem.HTMLBody = "Hi Team ،" & vbNewLine & vbNewLine & "PFA جدول البيانات لطلب اليوم status "& _ vbNewLine & vbNewLine & _" Regards، "& vbNewLine & _" Tamal Das "المصدر = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub

سيرسل الرمز المذكور أعلاه بريدًا إلكترونيًا باستخدام حساب Outlook الخاص بك إلى عناوين البريد الإلكتروني المذكورة في الكود.

يتوفر محتوى البريد الإلكتروني أيضًا في سطر كود EmailItem.HTMLBody . علاوة على ذلك ، سيقوم Excel VBA تلقائيًا بإرفاق المصنف المصدر بالبريد الإلكتروني كمرفق.

يمكنك إجراء التغييرات التالية لتخصيص العناوين والنص الأساسي للبريد الإلكتروني:

• استبدل جميع عناوين البريد الإلكتروني الموجودة في عرض الأسعار بجهات اتصال Outlook الخاصة بك .
• تخصيص EmailItem.Subject نص داخل الاقتباس كما تراه مناسبًا.
• في EmailItem.HTMLBody code ، يمكنك استبدال جميع النصوص داخل علامة الاقتباس باستخدام المحتوى الخاص بك.
• الآن ، قم بتشغيل البرنامج النصي VBA بالضغط على F5 .

لإرسال بريد إلكتروني باستخدام VBA بنجاح ، ستحتاج إلى تكوين حساب Gmail أو حساب Outlook في تطبيق Outlook المستقل لمجموعة Microsoft Office. لن يعمل Outlook المستند إلى المستعرض عبر الإنترنت مع رمز VBA هذا.

خاتمة

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

إذا كنت تريد المزيد من أتمتة Excel باستخدام VBA ، فاستخدم ترميز الطابع الزمني لـ VBA للاحتفاظ بسجل لتغييرات جدول البيانات.