كيف ترسل بريدًا إلكترونيًا إلى عدة مستلمين في قائمة من Excel عبر Outlook؟
إذا كان لديك عناوين بريد إلكتروني متعددة في عمود من ورقة العمل ، والآن ، فأنت تريد إرسال بريد إلكتروني إلى قائمة المستلمين هذه من Excel مباشرة دون فتح Outlook. في هذه المقالة ، سأتحدث عن كيفية إرسال بريد إلكتروني إلى عدة مستلمين من Excel في نفس الوقت.
أرسل بريدًا إلكترونيًا إلى عدة مستلمين من Excel باستخدام رمز VBA
أرسل بريدًا إلكترونيًا إلى عدة مستلمين باستخدام المصنف الحالي كمرفق باستخدام رمز VBA
أرسل بريدًا إلكترونيًا إلى عدة مستلمين من Excel باستخدام رمز VBA
يمكنك استخدام رمز VBA لإرسال رسالة إلى عدة مستلمين في وقت واحد ، يرجى القيام بما يلي:
1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أرسل بريدًا إلكترونيًا إلى عدة مستلمين
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. ثم اضغط OK، ونظرة الرسالة يتم عرض النافذة ، يمكنك رؤية إضافة جميع عناوين البريد الإلكتروني المحددة إلى ملف إلى ، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك ، انظر الصورة:
5. بعد الانتهاء من الرسالة ، الرجاء الضغط أرسل زر ، وسيتم إرسال هذه الرسالة إلى هؤلاء المستلمين في قائمة ورقة العمل الخاصة بك.
أرسل بريدًا إلكترونيًا إلى عدة مستلمين باستخدام المصنف الحالي كمرفق باستخدام رمز VBA
إذا كنت بحاجة إلى إرسال رسالة إلى عدة مستلمين باستخدام المصنف الحالي كمرفق ، فيمكنك تطبيق رمز VBA التالي.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: أرسل بريدًا إلكترونيًا إلى عدة مستلمين باستخدام المصنف الحالي كمرفق
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. ثم اضغط OK زر و Outlook الرسالة يتم عرض نافذة ، تمت إضافة جميع عناوين البريد الإلكتروني إلى إلى ، وتم إدراج المصنف الحالي كمرفق أيضًا ، وبعد ذلك يمكنك إدخال الموضوع وإنشاء رسالتك ، انظر لقطة الشاشة:
5. ثم اضغط أرسل زر لإرسال هذه الرسالة إلى قائمة المستلمين مع المصنف الحالي كمرفق.
إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة:
بدافع كوتولس ل إكسيل's إرسال رسائل البريد الإلكتروني ميزة ، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة من Excel عبر Outlook حسب حاجتك. في نفس الوقت ، يمكنك نسخة أو نسخة مخفية من الرسائل إلى شخص معين أيضًا. انقر لتنزيل Kutools for Excel! |
مقالة ذات صلة:
كيف ترسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!