كيفية إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel؟

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

أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel باستخدام VBA
أرسل بريدًا إلكترونيًا بسهولة إلى عناوين البريد الإلكتروني المحددة في الخلايا باستخدام Kutools for Excel

أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel باستخدام VBA

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

1. في ورقة العمل تحتوي على عناوين البريد الإلكتروني التي تريد إرسال رسائل البريد الإلكتروني إليها ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط الأدوات > المحلية كما هو موضح أدناه لقطة الشاشة.

3. في ال المراجع - VBAProject مربع الحوار ، يرجى البحث والتحقق من مكتبة كائنات Microsoft Outlook الخيار ، ثم انقر فوق OK .

4. ثم اضغط إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.

رمز VBA: أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

ملاحظة: يرجى تحديد موضوع بريدك الإلكتروني ونصه في كليهما .Subject = "اختبار" و . Body = "Dear" _ & vbNewLine & vbNewLine & _ "هذا بريد إلكتروني تجريبي" & _ "إرسال في Excel" خطوط في الكود.

5. اضغط على F5 مفتاح لتشغيل الكود. في الافتتاح كوتولس ل إكسيل مربع الحوار ، يرجى تحديد النطاق الذي يحتوي على عناوين البريد الإلكتروني التي سترسل إليها رسائل البريد الإلكتروني ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

ثم يتم إنشاء رسائل البريد الإلكتروني بناءً على عناوين البريد الإلكتروني المحددة كما هو موضح أدناه. الرجاء الضغط على إرسال أزرار لإرسال رسائل البريد الإلكتروني هذه.

ملاحظة:

إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا مع كوتولس ل إكسيل

سيوصيك هذا القسم بـ إرسال رسائل البريد الإلكتروني فائدة كوتولس ل إكسيل. باستخدام هذه الأداة ، يمكنك بسهولة إرسال رسائل البريد الإلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel. الرجاء القيام بما يلي.

1. حدد عناوين البريد الإلكتروني مع خلية العنوان في ورقة العمل الخاصة بك ، ثم انقر فوق كوتولس بلس > إرسال رسائل البريد الإلكتروني.

2. في ظهرت إرسال رسائل البريد الإلكتروني مربع الحوار ، يرجى إجراء التكوينات التالية:

3. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ليخبرك بعدد رسائل البريد الإلكتروني التي تم إرسالها. الرجاء النقر فوق OK زر وأغلق ملف إرسال رسائل البريد الإلكتروني صندوق المحادثة. انظر لقطة الشاشة:

ملاحظة:

العرض التوضيحي: أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا باستخدام Kutools for Excel

مقالات ذات صلة:

• كيفية إرسال بريد إلكتروني مع نسخ ولصق نطاق محدد في نص البريد الإلكتروني في Excel؟
• كيف ترسل بريدًا إلكترونيًا مرفقًا بعدة مرفقات في Excel؟
• كيفية إدراج التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق vba في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟
• كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...