كيف تُرسل بريدًا إلكترونيًّا إلى عنوان البريد الإلكتروني المُحدَّد في خلية Excel؟
افترض أن لديك قائمة بعناوين بريد إلكتروني، وترغب الآن في إرسال رسالة بريد إلكتروني إلى هذه العناوين دفعةً واحدة مباشرةً من Excel. كيف يمكنك تحقيق ذلك؟ سيعرض لك هذا المقال طرق إرسال بريد إلكتروني إلى عناوين متعددة محددة في خلايا Excel.
إرسال بريد إلكتروني إلى عناوين عنوان البريد الإلكتروني المحددة في الخلايا في Excel باستخدام VBA
إرسال بريد إلكتروني بسهولة إلى عناوين عنوان البريد الإلكتروني المحددة في الخلايا باستخدام Kutools لـ Excel
إرسال بريد إلكتروني إلى عناوين عنوان البريد الإلكتروني المحددة في الخلايا في Excel باستخدام VBA
يمكنك استخدام كود VBA التالي لإرسال رسائل بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في Excel. يُرجى اتباع الخطوات التالية:
1. في ورقة العمل التي تحتوي على عناوين البريد الإلكتروني التي تريد إرسال رسائل بريد إلكتروني إليها، اضغط معًا على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications المفتوحة، انقر فوقTools > References كما هو موضح في لقطة الشاشة أدناه.
3. في مربع الحوارReferences – VBAProject، ابحث عن الخيارMicrosoft Outlook Object Library، وحدّده، ثم انقر على زرOK.
4. بعد ذلك، انقر فوقInsert > Module. ثم انسخ والصق كود VBA أدناه في نافذة Module.
كود 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 = «test» و.Body = «Dear » _ & vbNewLine & vbNewLine & _ "This is a test email " & _ «sending in Excel».
5. اضغط على مفتاحF5 لتشغيل الكود. بعد فتح مربع الحوارKutools لـ Excel، حدد النطاق الذي يحتوي على عناوين البريد الإلكتروني التي سترسل إليها رسائل البريد الإلكتروني، ثم انقر على زرOK. انظر لقطة الشاشة:
بعد ذلك، يتم إنشاء رسائل البريد الإلكتروني بناءً على عناوين البريد الإلكتروني المحددة، كما هو موضح في لقطة الشاشة أدناه. يُرجى النقر على أزرارSend لإرسال هذه الرسائل.
ملاحظات:
إرسال بريد إلكتروني إلى عناوين عنوان البريد الإلكتروني المحددة في الخلايا باستخدام Kutools لـ Excel
يقدّم لك هذا القسم أداةSend Emails منKutools لـ Excel. باستخدام هذه الأداة، يمكنك إرسال رسائل بريد إلكتروني بسهولة إلى عناوين البريد الإلكتروني المحددة في خلايا Excel. يُرجى اتباع الخطوات التالية.
1. حدد عمود عنوان البريد الإلكتروني بما في ذلك الخلية العنوانية في ورقة العمل الخاصة بك، ثم انقر فوقKUTOOLS PLUS > Send Emails.
2. في مربع الحوار المنبثقSend Emails، يُرجى إجراء الإعدادات التالية:
3. بعد ذلك، يظهر مربع حوارKutools لـ Excelلإعلامك بعدد رسائل البريد الإلكتروني التي تم إرسالها. يُرجى النقر على زرOK وإغلاق مربع حوارSend Emails. انظر لقطة الشاشة:
ملاحظات:
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
عرض توضيحي: إرسال بريد إلكتروني إلى عناوين عنوان البريد الإلكتروني المحددة في الخلايا باستخدام Kutools لـ Excel
مقالات ذات صلة:
- كيف تُرسل بريدًا إلكترونيًّا من Excel مع نسخ ولصق نطاق معيّن مباشرةً في نص الرسالة؟
- كيف تُرسل بريدًا إلكترونيًّا يحتوي على عدة مرفقات مباشرةً من Excel؟
- كيف تُدرج توقيعًا في رسالة بريد Outlook الإلكتروني عند الإرسال عبر VBA من Excel؟
- كيف تُرسل بريدًا إلكترونيًّا عند استيفاء تاريخ الاستحقاق في Excel؟
- كيف تُرسل بريدًا إلكترونيًّا تلقائيًّا عند تغيُّر قيمة خلية في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل