توقعات VBA | كيفية إرسال رسائل البريد الإلكتروني من Outlook باستخدام كود VBA؟
لقد رأينا VBA في Excel وكيف نقوم بأتمتة مهامنا في التفوق مع إنشاء وحدات الماكرو ، في Microsoft Outlook لدينا أيضًا مرجع لـ VBA واستخدامه يمكننا التحكم في التوقعات باستخدام VBA ، وهذا يجعل مهامنا المتكررة في outlook أسهل في التشغيل الآلي ، و على غرار برنامج Excel ، نحتاج إلى تمكين ميزة المطور لاستخدام VBA في Outlook.
توقعات VBA
يكمن جمال VBA في أنه يمكننا الرجوع إلى كائنات Microsoft الأخرى مثل PowerPoint و Word و Outlook. يمكننا إنشاء عروض تقديمية جميلة ، ويمكننا العمل باستخدام مستند Microsoft Word وأخيراً ، يمكننا إرسال رسائل البريد الإلكتروني أيضًا. نعم ، لقد سمعت ذلك بشكل صحيح ، يمكننا إرسال رسائل بريد إلكتروني من برنامج Excel نفسه. يبدو هذا محرجًا ولكنه في نفس الوقت يرسم الابتسامة على وجوهنا أيضًا. في هذه المقالة ، سأوضح لك كيفية العمل مع كائن Microsoft Outlook من Excel باستخدام ترميز VBA. واصل القراءة…
كيف نشير إلى Outlook من Excel؟
تذكر أن Outlook هو كائن ونحن بحاجة إلى تعيين المرجع لهذا في مكتبة مرجع الكائن. لتعيين كائن Outlook للرجوع إليه ، اتبع الخطوات التالية.
الخطوة 1: اذهب إلى محرر Visual Basic.
الخطوة 2: اذهب إلى Tools> Reference.
الخطوة 3: في مكتبة كائنات المراجع أدناه ، قم بالتمرير لأسفل وحدد "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY".
حدد مربع "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY" لإتاحته لبرنامج Excel VBA.
الآن يمكننا الوصول إلى كائن VBA Outlook من Excel.
اكتب رمزًا لإرسال رسائل بريد إلكتروني من VBA Outlook من Excel
يمكننا إرسال رسائل البريد الإلكتروني من Excel من خلال تطبيق outlook. لهذا ، نحتاج إلى كتابة أكواد VBA. اتبع الخطوات أدناه لإرسال رسائل البريد الإلكتروني من Outlook.
يمكنك تنزيل قالب VBA Outlook إلى Excel من هنا - VBA Outlook to Excel Template
الخطوة 1: إنشاء إجراء فرعي.
رمز:
خيار صريح Sub Send_Exails () End Sub
الخطوة 2: حدد المتغير كـ VBA Outlook.Application .
رمز:
الخيار الصريح الفرعي Send_Exails () باهت OutlookApp باسم Outlook.Application End Sub
الخطوة 3: المرجع المتغير أعلاه لتطبيق VBA Outlook. في Outlook ، نحتاج إلى إرسال رسائل بريد إلكتروني ، لذلك حدد متغيرًا آخر مثل Outlook.MailItem.
رمز:
خيار صريح فرعي Send_Exails () تعتيم OutlookApp كـ Outlook.Application باهت OutlookMail كـ Outlook.MailItem End Sub
الخطوة 4: الآن كلا المتغيرين هما متغيرات كائن. نحن بحاجة إلى ضبطهم. قم أولاً بتعيين المتغير "OutlookApp" على أنه تطبيق Outlook الجديد .
رمز:
Sub Send_Exails () تعتيم OutlookApp مثل Outlook.Application باهتة OutlookMail كـ Outlook.MailItem تعيين OutlookApp = Outlook.Application End Sub
الخطوة 5: الآن قم بتعيين المتغير الثاني "OutlookMail" على النحو التالي.
تعيين OutlookMail = OutlookApp.CreateItem (olMailItem)
رمز:
Sub Send_Exails () تعتيم OutlookApp مثل Outlook.Application باهت OutlookMail كـ Outlook.MailItem تعيين OutlookApp = تعيين Outlook.Application جديد OutlookMail = OutlookApp.CreateItem (olMailItem) نهاية الفرع
الخطوة 6: الآن باستخدام الوصول إلى بيان VBA Outlook Mail.
رمز:
Sub Send_Exails () خافت OutlookApp كـ Outlook.Application باهت OutlookMail كـ Outlook.MailItem تعيين OutlookApp = تعيين Outlook.Application جديد OutlookMail = OutlookApp.CreateItem (olMailItem) مع OutlookMail ينتهي بـ End Sub
الآن يمكننا الوصول إلى جميع العناصر المتاحة مع عناصر البريد الإلكتروني مثل "نص البريد الإلكتروني" و "إلى" و "نسخة إلى" و "نسخة مخفية الوجهة" و "الموضوع" والعديد من الأشياء الأخرى.
الخطوة 7: الآن داخل العبارة with the statement ، يمكننا رؤية قائمة IntelliSense بوضع نقطة .
الخطوة 8: حدد أولاً تنسيق النص كـ olFormatHtml .
رمز:
مع OutlookMail .BodyFormat = olFormatHTML تنتهي بـ
الخطوة 9: الآن اعرض البريد الإلكتروني.
رمز:
مع OutlookMail .BodyFormat = olFormatHTML. ينتهي العرض بـ
الخطوة 10: الآن نحتاج إلى كتابة البريد الإلكتروني في نص البريد الإلكتروني. لهذا حدد HtmlBody .
رمز:
باستخدام OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "اكتب بريدك الإلكتروني هنا" انتهى بـ
يوجد أدناه مثال لجسم كتابة البريد الإلكتروني.
الخطوة 11: بعد كتابة البريد الإلكتروني ، نحتاج إلى ذكر معرف البريد الإلكتروني الخاص بالمتلقي. لهذا الوصول " إلى ".
الخطوة 12: بعد ذلك ، اذكر من تريد إرسال نسخة منه إلى البريد الإلكتروني.
الخطوة 13: اذكر الآن معرف البريد الإلكتروني BCC ،
الخطوة 14: الشيء التالي هو أننا نحتاج إلى ذكر موضوع البريد الإلكتروني الذي نرسله.
الخطوة 15: أضف المرفقات الآن. إذا كنت تريد إرسال المصنف الحالي كمرفق ، فاستخدم المرفق باسم هذا المصنف
الخطوة 16: أخيرًا أرسل البريد الإلكتروني باستخدام طريقة الإرسال .
الآن ، سيرسل هذا الرمز البريد الإلكتروني من بريد VBA Outlook الخاص بك. استخدم رمز VBA أدناه لإرسال رسائل البريد الإلكتروني من منظورك.
لاستخدام الكود أدناه ، يجب عليك تعيين مرجع الكائن إلى "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY " ضمن مكتبة كائنات Excel VBA
عن طريق تعيين المرجع إلى مكتبة الكائنات يسمى الربط المبكر. سبب حاجتنا إلى تعيين المرجع إلى مكتبة الكائنات لأنه بدون تعيين مكتبة الكائنات على أنها "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY" لا يمكننا الوصول إلى قائمة IntelliSense لخصائص وأساليب VBA. هذا يجعل كتابة الكود أمرًا صعبًا لأنك تحتاج إلى التأكد مما تكتبه من حيث الأسلوب والتهجئة.
Sub Send_Emails () 'هذا الرمز ملزم مبكرًا ، على سبيل المثال في أدوات> مرجع> لديك تحقق من "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY" تعتيم Outlook.Application مثل Outlook.Application تعيين OutlookApp = تعيين Outlook.Application جديد OutlookMail = OutlookApp. CreateItem (olMailItem) باستخدام OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Dear ABC" & ""&"
"&" الرجاء العثور على الملف المرفق "&. HTMLBody 'last .HTMLBody يتضمن توقيعًا من المظهر.'
يتضمن فواصل الأسطر ب / ث سطرين. إلى = "[email protected]" .CC = "[email protected]" .BCC = "[email protected]؛ [email protected]" .Subject = "اختبار البريد ". المرفقات = ThisWorkbook. إرسال النهاية بـ End Sub
