-->

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

 

السلام عليكم ورحمة الله وبركاته

اهلا بكم متابعى موقع عالم الاوفيس

كثير منا من يحتاج الى ارسال ايميلات بشكل مستمر من خلال ملف الاكسيل

اليوم لدينا مقال يشرح كيفية إرسال رسائل البريد الإلكتروني من Gmail باستخدام Excel VBA.على سبيل المثال ، قد ترغب في إعداد نظام بريد إلكتروني آلي لإرسال تقارير أسبوعية بالبريد الإلكتروني إلى الزملاء - دون الحاجة إلى التحديد اليدوي إلى / الموضوع / نسخة / نص البريد الإلكتروني / المرفقات.يسمح لك كود VBA والإرشادات (أدناه) بفعل ذلك ...ما عليك سوى تكييف الماكرو ذي الصلة وتشغيله لإنشاء رسائل البريد الإلكتروني الخاصة بك.عند فتح المصنف ، تحتاج إلى السماح بتشغيل وحدات الماكرو. وإلا يقوم Excel بإيقاف تشغيل التعليمات البرمجية لـ VBA.يحتوي الملف العمل على كود VBA - واحدة لـ Gmail


إرسال بريد إلكتروني من Gmail باستخدام Excel VBA


الخطوة 1: تنشيط Microsoft CDO لنظام التشغيل Windows

للوصول إلى Gmail ، نحتاج أولاً إلى تنشيط Microsoft CDO لنظام التشغيل Windows. يمكن تحقيق ذلك من خلال الانتقال إلى "المراجع" في القائمة المنسدلة للأدوات لمحرر VBA.

 

 

الخطوة 2: السماح بالتطبيقات الأقل أمانًا

انتقل إلى

  https://myaccount.google.com/security?pli=1#connectedapp

من متصفحك وشغّل خيار "السماح بالتطبيقات الأقل أمانًا".

الخطوة 3: تنفيذ الكود التعليمات البرمجية لـ VBA

نفِّذ تعليمات VBA البرمجية الكود  يمكنك نسخ الكود إما من مثال الملف لهذه المقالة أو من الكود في المربع أدناه.

من المتوقع أن تقوم بتغيير الكود وفقًا لمواصفاتك وحسب متطلبات حسابك .

يرجى ملاحظة أن الكود الوارد أدناه هو مجرد مثال.

يتم تمييز أجزاء الكود و التعليمات البرمجية التي يجب تخصيصها باستخدام المربعات الحمراء في لقطة الشاشة هذه:

Sub SendGmail()

 

   'إنشاء كائن CDO

   Dim Mail As CDO.Message

   Set Mail = New CDO.Message

 

   تمكين مصادقة SSL

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

 

   'Make SMTP authentication Enabled=true (1)

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

 

   اضبط خادم SMTP وتفاصيل المنفذ

    احصل على هذه التفاصيل من صفحة الإعدادات في حساب Gmail الخاص بك

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

   "smtp.gmail.com"

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

   'قم بتعيين بيانات اعتماد حساب Gmail الخاص بك

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/sendusername") = _

   "username@gmail.com"

   Mail.Configuration.Fields.Item _

   ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _

   "*********"

 

   'تحديث حقول التكوين

   Mail.Configuration.Fields.Update

 

   'تعيين كافة خصائص البريد الإلكتروني

   With Mail

      .Subject = "Write subject here"

      .From = "username@gmail.com"

      .To = "user1@gmail.com;user4@gmail.com"

      .CC = "user2@gmail.com"

      .BCC = "user3@gmail.com"

      .textbody = "write your mail here"

      .AddAttachment ("Folder Address") '"لإرفاق المستندات بالبريد

   End With

   'لارسال الايميل

   Mail.Send

 

End Sub

 

 لتحميل ملف العمل


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق