إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

في أحد الموضوعات لأحد الأخوة الأعضاء كان قد طلب كيفية إرسال رسالة بريد إلكتروني (إيميل Email) باستخدام ملف إكسيل

واليوم أقدم لكم الطريقة بالتفصيل من الألف إلى الياء ... وإن شاء الله تكون الطريقة ناجحة ومفيدة للجميع

الخطوات اللازمة لعمل المطلوب :

فتح حساب جديد على الـ Gmail إذا لم يكن لديك حساب وكيفية إنشاء حساب جديد مشروحة بالصور :

 

نقوم بفتح برنامج الـ Outlook من قائمة Start ثم All Programs وندخل بيانات الحساب الذي أنشيء على الـ Gmail .. بهذا الشكل :

وأخيراً وبعد عملية إنشاء الحساب وربط برنامج الـ Outlook بحساب الـ Gmail .. نقوم بفتح ملف إكسيل وفي العمود الأول ندخل الإيميلات المراد إرسال بريد إلكتروني لها .. وفي العمود الثاني نكتب اسم صاحب الايميل (اختياري) وفي العمود الثالث نكتب محتوى الرسالة المراد إرسالها ..

وهذا هو الكود الذي سيقوم بمهمة إرسال رسائل البريد الالكتروني دفعة واحدة لكل الإيميلات المسجلة لديك ..

ملحوظة مهمة جداً : من خلال محرر الأكواد يتم إضافة المكتبة التالية Microsoft Outlook Object Library من القائمة Tools ثم References ..

Sub Mail_To_Friends()
    Dim SendTo As String
    Dim ToMSg As String
    Dim I As Integer
    
    For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        SendTo = ThisWorkbook.Sheets(1).Cells(I, 1)
        If SendTo <> "" Then
            ToMSg = ThisWorkbook.Sheets(1).Cells(I, 3)
            Send_Mail SendTo, ToMSg
        End If
    Next I
    
    MsgBox "Done ...", 64
End Sub

Sub Send_Mail(SendTo As String, ToMSg As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
 
        With OutlookMail
            .To = SendTo
            .CC = ""
            .BCC = ""
            .Subject = "Hello Officena"
            .Body = ToMSg
            .Send
        End With
 
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

وأخيراً إليكم الملف المرفق مطبق فيه الكود وفيه نموذج لشكل ورقة العمل .. ويوجد زر أمر لعملية الإرسال ..

 

وهذا هو الملف

 

 

تقبلوا وافر تقديري واحترامي

كان معكم أخوكم أبو البراء من منتدى أوفيسنا

Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.rar

[خير الايمان]

استاذنا المتالق دائما

ياسر خليل 

شرح ولا اروع ... وافادة بمعنى الكلمة

اعزك الله ونفعك بما علمك

دمت ودام تالقك

تقديري

[ياسر خليل أبو البراء]

أخي الكريم خير الإيمان

بارك الله فيك على ردك الطيب ومرورك العطر وجزاكم الله خيراً على دعائك الطيب المبارك

 

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

أو ربما يكون هناك عوائق في التنفيذ .. ولذا تلاحظ أنني فصلت الأمر بالتفصيل الممل بالصور حتى لا يكون هناك أدنى مشكلة في التطبيق

تقبل وافر تقديري واحترامي

[ياسر خليل أبو البراء]

إخواني الكرام

من الغريب أن الموضوع قد سأل عنه أناس كثيرون .. ولما طرح الموضوع بشكل تفصيلي بحيث يجيب على أسئلة السائلين لم أجدهم

عموماً أقوم برفع الموضوع لمزيد من الاستفادة

تقبلوا تحياتي

[أبوبسمله]

هحاول انفذه بكره ان شاء الله

الا انه لم يتم الربط معى من قبل وكانت محاولات فاشله

ساقوم بالربط غدا وربنا يجعلها سهله على ايدك يا ابوالبراء

جزاك الله كل خير

تقبل تحياتى ياغالى

[خالد الشاعر]

استاذ ياسر

انا مش قادر احمل الملف ممكن تحميلة على موقع اخر

جزاكم الله كل خيراً

[ياسر خليل أبو البراء]

أخي الغالي أحمد

إن شاء الله توفق في تطبيق الموضوع ..أنا شرحته بالصور لكي أزيل أي لبس بالموضوع ، نظراً لصعوبة تطبيقه بالفعل .. ولكن الحمد لله الذي يسر لنا الأمور

 

أخي الكريم خالد

إليك الملف

من هنا

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

تقبل تحياتي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الفاضل والمعلم الجليل ياسر خليل

سلمت يداك ... شرح وافى جدا واستفاده كبيره

جزاك الله كل الخير 

[ياسر خليل أبو البراء]

وعليكم السلام أخي الغالي أبو حنين

وجزيت خيراً بمثل ما دعوت لي وزيادة

مشكور على مرورك العطر بالموضوع وأرجو التطبيق وموافاتنا بالنتائج ..

تقبل تحياتي

[ياسر خليل أبو البراء]

أخي الغالي أحمد الفلاحجي ..هل طبقت الخطوات بالموضوع أم أنك متعثر ؟ أعلمنا بالنتيجة بارك الله فيك

تقبل تحياتي

[ابو العلاء]

بسم الله ما شاء الله

الله يفتح عليك استاذنا