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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(3.) من قسم إرسال السجلات، اختر الكل.

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

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

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

1. اضغط مع الاستمرار على مفاتيح ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.

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. وبعد ذلك انقر فوق موافق، سيتم إرسال رسائل البريد الإلكتروني إلى العناوين المنفصلة مع رمز تسجيلهم الفردي واحدًا تلو الآخر، وبعد إرسال رسائل البريد الإلكتروني، يمكنك الانتقال إلى Outlook للتأكد من أن الرسائل قد تم إرسالها بنجاح.

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

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

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

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

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

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

4. ثم اكتب نص الرسالة في المربع حسب الحاجة، انظر لقطة الشاشة:

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

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

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

انقر لتنزيل Kutools لـ Excel وتجربته مجانًا الآن!

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

مقال ذو صلة:

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