كيفية إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في 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 زر وأغلق ملف إرسال رسائل البريد الإلكتروني صندوق المحادثة. انظر لقطة الشاشة:
ملاحظة:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
العرض التوضيحي: أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا باستخدام Kutools for Excel
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني مع نسخ ولصق نطاق محدد في نص البريد الإلكتروني في Excel؟
- كيف ترسل بريدًا إلكترونيًا مرفقًا بعدة مرفقات في Excel؟
- كيفية إدراج التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق vba في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!