كيف ترسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟

على سبيل المثال ، لدي نطاق البيانات التالي في ورقة العمل التي تحتوي على أعمدة الاسم وعنوان البريد الإلكتروني ورمز التسجيل ، والآن ، أريد إرسال رسالة مع تحية مخصصة ورمز التسجيل الخاص بهم إلى عناوين البريد الإلكتروني المنفصلة في العمود أ. لحل هذه المشكلة ، قد تساعدك الطرق التالية.

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel مع وظيفة دمج المراسلات

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel مع رمز VBA

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة تحتوي على مرفقات مختلفة باستخدام Kutools for Excel

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel مع وظيفة دمج المراسلات

مع الكلمات دمج البريد وظيفة ، يمكنك إنهاء هذه المهمة بسرعة وسهولة ، يرجى القيام بالخطوة التالية خطوة بخطوة:

1. قم بتشغيل مستند Word فارغ جديد ، ثم انقر فوق موافق الرسائل > حدد المستلمين > استخدم قائمة موجودة، انظر لقطة الشاشة:

2. في حدد مصدر البيانات ، اختر المصنف الذي يتضمن نطاق البيانات الذي تريد استخدامه ، وانقر فوق اذهب الى زر ، انظر لقطة الشاشة:

3. في المستقبل حدد جدول مربع الحوار ، الرجاء اختيار ورقة العمل مع نطاق البيانات الذي تحتاجه ، ثم انقر فوق OK زر ، انظر لقطة الشاشة:

4. وقد تم ربط المستند الرئيسي لرسالة البريد الإلكتروني وقائمة العناوين معًا ، الآن ، يمكنك تحرير الرسالة النصية وإضافة عناصر نائبة تشير إلى مكان ظهور المعلومات الفريدة في كل رسالة.

(1.) لإدخال اسم الترحيب الفردي الخاص بهم ، انقر فوق الرسائل > أدخل حقل دمج > الاسم، تم إدراج الاسم المخصص في الرسالة ، واسم الحقل مُحاط بـ «».

(2.) استمر في كتابة رسالتك وأدخل ملف رمز التسجيل في المكان الذي تريده ، انظر لقطة الشاشة:

5. بعد إنشاء الرسالة ، يمكنك النقر فوق معاينة النتائج تحت البريدية علامة التبويب لمعاينة رسائل البريد الإلكتروني وإجراء التغييرات قبل إكمال الدمج فعليًا.

6. بعد التأكد من عدم وجود مشكلة ، يمكنك إرسال رسائل البريد الإلكتروني إلى المستلمين المنفصلين ، يرجى النقر فوق الرسائل > إنهاء ودمج > إرسال رسالة إلكترونية، انظر لقطة الشاشة:

7. ثم ظهرت في الخارج دمج في البريد الإلكتروني في مربع الحوار ، قم بالعمليات التالية:

(1.) من إلى القائمة المنسدلة ، الرجاء الاختيار عنوان البريد الالكترونى عمود؛

(2.) يمكنك كتابة الموضوع في ملف الموضوع مربع نص سطر

(3.) من إرسال السجلات القسم، حدد جميع .

8. ثم انقر فوق OK، يتم إرسال رسائل البريد الإلكتروني إلى مستلمين منفصلين باستخدام رمز التسجيل الخاص بهم مرة واحدة ، وبعد إرسال رسائل البريد الإلكتروني ، يمكنك الانتقال إلى Outlook الخاص بك للتأكد من إرسال رسائل البريد الإلكتروني بنجاح.

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel مع رمز VBA

باستثناء وظيفة دمج المراسلات ، يمكن لرمز فبا التالي أيضًا أن يقدم لك معروفًا ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز VBA: أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد استخدامه ، انظر لقطة الشاشة:

4. ثم انقر فوق OK زر ، سيتم إرسال رسائل البريد الإلكتروني إلى عناوين منفصلة مع رمز التسجيل الفردي واحدًا تلو الآخر ، بعد إرسال رسائل البريد الإلكتروني ، يمكنك الانتقال إلى Outlook الخاص بك للتأكد من إرسال رسائل البريد الإلكتروني بنجاح.

ملاحظة: في الكود أعلاه ، يمكنك تغيير الموضوع أو الرسالة الأساسية حسب حاجتك.

أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة تحتوي على مرفقات مختلفة باستخدام Kutools for Excel

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس بلس > إرسال رسائل البريد الإلكتروني، انظر لقطة الشاشة:

2. في أرسل Emials في مربع الحوار ، يرجى تحديد نطاق البيانات الذي تريد استخدامه ، ثم تحديد عناوين المستلم والمرفقات والموضوع حسب حاجتك ، انظر لقطة الشاشة:

3. في مربع التعديل ، أدخل أسماء الترحيب الفردية ، يرجى الاختيار الاسم من القائمة المنسدلة ، ثم انقر فوق إدراج عنصر نائب لإدراج الأسماء في الرسالة ، انظر الصورة:

4. ثم اكتب نص رسالتك في المربع كما تريد ، انظر الصورة:

5. بعد الانتهاء من نص البريد الإلكتروني ، يرجى اختيار وضع الإرسال كما تريد ، ويمكنك الإرسال باستخدام Outlook أو الخادم المحدد ، راجع screesnhot:

ملاحظة: إذا كنت تريد استخدام خادم آخر ، فانقر فوق إعدادات الخادم الصادر لتعيين وضع الإرسال على الوضع الخاص بك ، راجع لقطة الشاشة:

6. أخيرًا ، انقر فوق إرسال زر لإرسال رسائل البريد الإلكتروني ، بعد الانتهاء ، سيظهر مربع موجه لتذكيرك بحالة الإرسال. انظر لقطة:

انقر فوق تنزيل وتجربة مجانية Kutools for Excel الآن!

عرض توضيحي: أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook

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

كيف ترسل بريدًا إلكترونيًا إلى عدة مستلمين في قائمة من Excel عبر Outlook؟

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...