Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية إرسال بريد إلكتروني إلى عدة مستلمين في قائمة من Excel عبر Outlook؟

Author Xiaoyang Last modified

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

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

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


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

يمكنك استخدام كود VBA لإرسال رسالة إلى عدة مستلمين دفعة واحدة، يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إرسال بريد إلكتروني إلى عدة مستلمين

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

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

a screenshot of selecting the email addresses list after running the code

4. ثم انقر فوق موافق، وسيتم عرض نافذة رسالة Outlook، ويمكنك رؤية أن جميع عناوين البريد الإلكتروني المختارة قد تم إضافتها إلى حقل "إلى"، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:

a screenshot of a created email with all selected email addresses listed in the To field

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


إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة:

مع ميزة إرسال رسائل البريد الإلكتروني في Kutools لـ Excel، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة من Excel عبر Outlook حسب الحاجة. وفي الوقت نفسه، يمكنك أيضًا تحويل نسخة كربونية أو نسخة مخفية من الرسائل إلى شخص معين. انقر لتنزيل Kutools لـ Excel!

a screenshot of using the Send Emails feature of Kutools to easily send personalized emails to multiple recipients with different attachments


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

إذا كنت بحاجة إلى إرسال رسالة إلى عدة مستلمين مع المصنف الحالي كمرفق، يمكنك تطبيق كود VBA التالي.

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إرسال بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

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

a screenshot of selecting the email addresses list after running the second VBA code

4. ثم انقر فوق زر موافق، وسيتم عرض نافذة رسالة Outlook، وقد تم إضافة جميع عناوين البريد الإلكتروني إلى حقل "إلى"، كما تم إدراج المصنف الحالي كمرفق أيضًا، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:

a screenshot of a created email with all selected email addresses listed in the To field and the current workbook as attachment

5. ثم انقر فوق زر الإرسال لإرسال هذه الرسالة إلى قائمة المستلمين مع المصنف الحالي كمرفق.


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

كيفية إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟


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

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...


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

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

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

Excel Word Outlook Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد