انتقل إلى المحتوى الرئيسي

كيفية إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في 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 زر. انظر لقطة الشاشة:

ثم يتم إنشاء رسائل البريد الإلكتروني بناءً على عناوين البريد الإلكتروني المحددة كما هو موضح أدناه. الرجاء الضغط على أرسل أزرار لإرسال رسائل البريد الإلكتروني هذه.

ملاحظة:

1. إذا كان هناك ثلاثة عناوين بريد إلكتروني موجودة بشكل منفصل في الخلايا المحددة ، فسيتم إنشاء ثلاث رسائل بريد إلكتروني.
2. يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.

إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا مع كوتولس ل إكسيل

سيوصيك هذا القسم بـ إرسال رسائل البريد الإلكتروني فائدة كوتولس ل إكسيل. باستخدام هذه الأداة ، يمكنك بسهولة إرسال رسائل البريد الإلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel. الرجاء القيام بما يلي.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد عناوين البريد الإلكتروني مع خلية العنوان في ورقة العمل الخاصة بك ، ثم انقر فوق كوتولس بلس > إرسال رسائل البريد الإلكتروني.

2. في ظهرت إرسال رسائل البريد الإلكتروني مربع الحوار ، يرجى إجراء التكوينات التالية:

2.1) حدد رأس قائمة عناوين البريد الإلكتروني في إلى قائمة منسدلة؛
2.2) أدخل موضوع البريد الإلكتروني في الموضوع صندوق؛
2.3) تكوين جسم بريدك الإلكتروني ؛
2.4) تحقق من إرسال رسائل البريد الإلكتروني عبر Outlook صندوق؛
شنومكس) انقر فوق أرسل زر. انظر لقطة الشاشة:

3. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ليخبرك بعدد رسائل البريد الإلكتروني التي تم إرسالها. الرجاء النقر فوق OK زر وأغلق ملف إرسال رسائل البريد الإلكتروني صندوق المحادثة. انظر لقطة الشاشة:

ملاحظة:

1. يمكنك الذهاب إلى ملف Outlook المواد المرسلة مجلد للتحقق من رسائل البريد الإلكتروني المرسلة.
2. يمكنك أيضًا استخدام خادم آخر بالنقر فوق إعدادات الخادم الصادر لتعيين وضع الإرسال الخاص بك.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


العرض التوضيحي: أرسل بريدًا إلكترونيًا إلى عناوين البريد الإلكتروني المحددة في الخلايا باستخدام Kutools for Excel


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations