كيفية إرسال بريد إلكتروني إلى عدة مستلمين في قائمة من Excel عبر Outlook؟
إذا كان لديك عدة عناوين بريد إلكتروني في عمود داخل ورقة العمل، وتريد الآن إرسال بريد إلكتروني إلى هذه القائمة من المستلمين مباشرةً من 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 لتنفيذ هذا الكود، ستظهر نافذة منبثقة لتذكيرك بتحديد قائمة العناوين، انظر إلى الصورة:
4. ثم انقر فوق موافق، وسيتم عرض نافذة رسالة Outlook، ويمكنك رؤية أن جميع عناوين البريد الإلكتروني المختارة قد تم إضافتها إلى حقل "إلى"، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:
5. بعد الانتهاء من كتابة الرسالة، يرجى النقر فوق زر الإرسال، وسيتم إرسال هذه الرسالة إلى المستلمين الموجودين في قائمة ورقة العمل الخاصة بك.
إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة: مع ميزة إرسال رسائل البريد الإلكتروني في Kutools لـ Excel، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة من Excel عبر Outlook حسب الحاجة. وفي الوقت نفسه، يمكنك أيضًا تحويل نسخة كربونية أو نسخة مخفية من الرسائل إلى شخص معين. انقر لتنزيل Kutools لـ Excel! |
إرسال بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق باستخدام كود 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 لتشغيل هذا الكود، ستظهر نافذة منبثقة لتذكيرك بتحديد العناوين التي تريد إرسال الرسالة إليها، انظر إلى الصورة:
4. ثم انقر فوق زر موافق، وسيتم عرض نافذة رسالة Outlook، وقد تم إضافة جميع عناوين البريد الإلكتروني إلى حقل "إلى"، كما تم إدراج المصنف الحالي كمرفق أيضًا، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:
5. ثم انقر فوق زر الإرسال لإرسال هذه الرسالة إلى قائمة المستلمين مع المصنف الحالي كمرفق.
المقالات ذات الصلة:
كيفية إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد