كيف تُرسل رسالة بريد إلكتروني إلى عدة مستلمين من قائمة في Excel عبر Outlook؟
في العديد من سيناريوهات بيئة العمل، قد تجد نفسك أمام قائمة عناوين بريد إلكتروني مخزَّنة في عمود ضمن ورقة عمل Excel—مثل توزيع النشرات الإخبارية، أو إرسال الفواتير، أو إخطار المشاركين بحدثٍ ما. بدلاً من إدخال كل عنوان يدويًا أو فتح Outlook لإنشاء رسالة جديدة، يمكنك الآن تبسيط هذه المهمة بشكل كبير: إذ يُمكِّنك Excel من إرسال رسائل البريد الإلكتروني مباشرةً إلى جميع المستلمين دفعة واحدة. يقدّم لك هذا الدليل حلولًا مفصلة لإرسال رسائل بريد إلكتروني جماعية من Excel، بالتكامل السلس مع Outlook—ليوفّر لك الوقت، ويقلل الأخطاء، ويضمن تنفيذ المهام بدقة وفعالية.
إرسال رسالة بريد إلكتروني إلى عدة مستلمين من Excel باستخدام كود VBA
إرسال رسالة بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق باستخدام كود VBA
حل بديل: إرسال عنوان البريد الإلكتروني مفصولة بفواصل منقوطة باستخدام صيغة Excel
إرسال رسالة بريد إلكتروني إلى عدة مستلمين من Excel باستخدام كود VBA
إذا كنت ترغب في إرسال نفس الرسالة الإلكترونية إلى مجموعة من الأشخاص دفعة واحدة، وكانت قائمة عناوينهم موجودة في عمود بورقة العمل، يمكنك أتمتة هذه المهمة باستخدام كود VBA. تُعد هذه الطريقة مثالية للإشعارات الجماعية أو التحديثات الدفعية، دون الحاجة إلى إضافة المستلمين يدويًا في Outlook. يُرجى اتباع الخطوات التالية:
1. اضغط علىALT + F11 معًا لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات. إذا لم تكن قد قمت بتمكين تبويب المطور، فابحث عن التعليمات في إعدادات Excel.
2.في نافذة VBA، انقر علىإدراج > وحدة نمطية. سيؤدي ذلك إلى فتح نافذة وحدة نمطية فارغة لإدخال الكود الخاص بك. الصق الكود التالي داخلها:
كود 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(أو انقر على «تشغيل») لتنفيذ الكود. بعد التنفيذ، ستظهر لك نافذة منبثقة تطلب منك تحديد قائمة العناوين من ورقة العمل الخاصة بك. تتيح لك هذه الخطوة اختيار جميع الخلايا التي تحتوي على عناوين البريد الإلكتروني المطلوبة بسهولة، مما يضمن أن الكود يُطبَّق فقط على المستلمين الذين يتبعون تنسيق البريد الإلكتروني ()*@*). راجع لقطة الشاشة:
4.بعد تحديد العناوين، انقر علىموافق. سيتم فتح نافذة رسالة جديدة فيOutlook مع ملء العناوين المختارة تلقائيًا في حقلإلى. يمكنك الآن إدخال الموضوع وكتابة رسالتك وفقًا لاحتياجاتك. وتتيح لك النافذة إجراء المزيد من التعديلات عند الحاجة للتخصيص أو التوضيح. راجع لقطة الشاشة:
5.بمجرد الانتهاء من كتابة رسالتك، انقر على زرإرساللإرسال البريد الإلكتروني إلى جميع المستلمين المدرَجين في القائمة دفعةً واحدة. تضمن لك هذه الطريقة عدم تفويت أي عنوان وتسريع التواصل الجماعي!
تلميح: تأكد من أن لديك Outlook مُثبَّتًا ومُعدًّا كعميل البريد الإلكتروني الافتراضي لضمان عمل هذه الطريقة بشكل صحيح. وإذا واجهت مشكلات مثل عدم ظهور النافذة المنبثقة، فراجع إعدادات أمان ماكرو في Excel مرة أخرى.
السيناريوهات المناسبة: استخدم هذه الطريقة لإرسال إعلانات جماعية أو إشعارات فعاليات أو نشر معلومات متطابقة إلى عدة أشخاص دفعة واحدة. تتميّز بالسرعة والدقة مع الحد الأدنى من الإدخال اليدوي، لكنها تقتصر على عدم إمكانية تخصيص الرسالة لكل مستلم بشكل فردي.
استكشاف الأخطاء وإصلاحها: إذا لم تفتح نافذة رسالة Outlook، فتأكد أولًا من أن Outlook قيد التشغيل بشكل طبيعي وأنه معيّن كمعالج البريد الافتراضي. كما يُرجى التحقق من أن جميع الخلايا المحددة تحتوي على عناوين بريد إلكتروني صالحة—رغم أن النظام يتضمّن معالجةً للأخطاء، إلا أن تجنّب الخلايا الفارغة أو تلك ذات التنسيق غير الصحيح يضمن أفضل النتائج.
إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين مع مرفقات مختلفة: للمتطلبات الأكثر تقدمًا، مثل إرسال مرفقات فريدة أو محتوى مخصص أو إضافة حقول CC/Bcc تلقائيًا، تجعلك ميزةKutools لـ Excelمع وظيفةإرسال رسائل البريد الإلكترونيتُرسل رسائل بريد إلكتروني مخصصة من Excel عبر Outlook بسهولة وسرعة. وتتيح لك هذه الوظيفة تخصيص الرسائل لكل مستلم، وإرفاق ملفات منفصلة، وإدراج مستلمي النسخة (CC) أو النسخة المخفية (Bcc) وفقًا لاحتياجاتك — لتحقيق مراسلات جماعية أكثر مرونة واحترافية.انقر لتنزيل Kutools لـ Excel!
|
إرسال رسالة بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق باستخدام كود VBA
إذا كنت بحاجة إلى إرسال مصنف Excel الحالي الخاص بك إلى مجموعة من المستلمين كمرفق، يمكن أن يساعدك حل VBA التالي في أتمتة هذه العملية. تكون هذه الطريقة مثالية لمشاركة التقارير أو الملخصات المالية أو المستندات التعاونية مع أصحاب المصلحة المتعددين.
1. افتح Excel، ثم اضغط علىALT + F11 لتشغيل بيئةمايكروسوفت فيجوال بيسك للتطبيقات.
2.في محرر VBA، انتقل إلىإدراج>وحدة نمطية، ثم انسخ والصق الكود أدناه في نافذة الوحدة النمطية:
كود 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 لتشغيل الكود. ستظهر نافذة منبثقة تطلب منك تحديد خلايا عناوين البريد الإلكتروني. يساعدك هذا الأسلوب على تضمين جميع المستلمين ذوي الصلة من ورقة العمل الخاصة بك، ويضمن إضافة عناوين البريد الإلكتروني ذات التنسيق الصحيح فقط. راجع لقطة الشاشة التالية:
4.بعد تأكيد الاختيار، انقر علىموافق. سيقوم Outlook تلقائيًا بإنشاء نافذة رسالة جديدةرسالةمع إدراج المستلم المحدَّد في حقلإلىوإرفاق المصنف المفتوح حاليًا. يمكنك بعد ذلك تخصيص محتوى الرسالة وسطر الموضوع قبل الإرسال. راجع لقطة الشاشة:
5. انقر على زرإرساللإرسال بريدك الإلكتروني—مع إرفاق المصنف—إلى جميع المستلمين دفعة واحدة.
تحذير: إذا كان مصنفك يحتوي على معلومات حساسة، فتأكد من مراجعة قائمة المستلمين بدقة قبل الإرسال. وفي حال واجهت خطأً أثناء إرفاق الملف، تحقق من أن المصنف محفوظٌ ولا يُستخدم حاليًّا في برنامج آخر، وأن Outlook مضبوطٌ بشكل صحيح لإرسال رسائل البريد الإلكتروني عبر الأتمتة.
حالات الاستخدام: يُستخدم هذا الحل على نطاق واسع لتوزيع التقارير الدورية، أو تقديم مصنفات تعاونية، أو مشاركة ملفات مرجعية مع الفرق أو العملاء. وهو فعّال في توصيل المستندات الجماعية، لكنه لا يدعم إرفاق ملفات منفصلة لكل مستلم.
المشاكل الشائعة: إذا لم تفتح نافذة المطالبة أو لم يتم إرسال البريد الإلكتروني، فتأكد من أنك منحت أذونات الماكرو وأن مصنفك محفوظ قبل تشغيل الكود. كما يُرجى التحقق مرة أخرى من وجود خلايا فارغة في اختيارك، إذ يتخطى الكود أي محتوى لا يتوافق مع تنسيقات البريد الإلكتروني القياسية.
حل بديل: إرسال عنوان البريد الإلكتروني مفصولة بفواصل منقوطة باستخدام صيغة Excel
إذا كنت ترغب في تجميع قائمة من عناوين البريد الإلكتروني بسرعة في خلية واحدة—مفصولة بفواصل منقوطة لنسخها بسهولة إلى حقول Outlook إلى،CC، أوBcc—فإن صيغ Excel تُقدّم لك حلاً سريعًا وبسيطًا، خاصةً إذا كنت تفضّل عدم استخدام الماكرو.
1.افترض أن عنوان بريدك الإلكتروني مدرج في العمود A، من الصف 1 إلى 7. أدخل الصيغة التالية في خلية فارغة (مثل B1):
=TEXTJOIN(";",TRUE,A1:A7)2. اضغط علىEnter. ستظهر نتيجةً سلسلة نصية واحدة تحتوي على جميع عناوين البريد الإلكتروني من النطاق المحدَّد، مفصَّلة بفواصل منقوطة. يمكنك بعد ذلك نسخ هذه الخلية ولصقها مباشرةً في حقول المستلمين في Outlook.
معلمات الصيغة:
- TEXTJOIN: تدمج نطاقًا من الخلايا باستخدام المُحدِّد الذي تحدده—وفي هذه الحالة، الفاصلة المنقوطة.
- TRUE: تستثني جميع الخلايا الفارغة في النطاق، وستتم دمج جميع عناوين البريد الإلكتروني الصالحة دون أي فراغات.
- A1:A10: غيّر هذا النطاق ليتوافق مع قائمة عناوين بريدك الإلكتروني.
المزايا: لا تتطلب هذه الطريقة تمكين ماكرو، مما يجعلها خيارًا مثاليًا للبيئات التي يكون فيها VBA مقيدًا. كما تُعدّ وسيلة سريعة وفعّالة لنسخ قائمة مجمّعة إلى أي منصة بريد إلكتروني، وليس إلى Outlook فقط.
القيود: على عكس VBA، لا تقوم تلقائيًا بإنشاء رسالة بريد إلكتروني أو بأتمتة عملية الإرسال، لكنها تحسّن الكفاءة عند التعامل مع قوائم المستلمين.
تلميح: إذا تغيّرت قائمتك، فاحرص على تحديث نطاق الصيغة وفقًا لذلك. وبالنسبة للتنسيقات التي لا تستخدم الفاصلة المنقوطة كمُحدِّد، استبدل";" بالحرف الذي تفضّله.
مقال ذو صلة:
كيف تُرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل