كيف تُرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟
على سبيل المثال، لديك نطاق بيانات في ورقة عمل يحتوي على أعمدة الاسم وعنوان البريد الإلكتروني ورمز التسجيل، وتريد الآن إرسال رسالة تتضمّن تحية مخصصة ورمز تسجيل فريد لكل مستلم مذكور في العمود A. ولحل هذه المشكلة، قد تساعدك الطرق التالية.
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel باستخدام وظيفة دمج المراسلات (Mail Merge)
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel باستخدام كود VBA
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة مع مرفقات مختلفة باستخدام Kutools لـ Excel
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel باستخدام وظيفة دمج المراسلات (Mail Merge)
باستخدام وظيفةدمج المراسلاتفي Word، يمكنك إنجاز هذه المهمة بسرعة وسهولة، يُرجى اتباع الخطوات التالية خطوة بخطوة:
1.افتح مستند Word فارغ جديد، ثم انقر علىمراسلات>اختر المستلم>استخدام قائمة موجودة، راجع لقطة الشاشة:
2. في نافذةمصدر تحديد البيانات، اختر المصنف الذي يحتوي على نطاق البيانات الذي تريد استخدامه، ثم انقر على زرفتح. راجع لقطة الشاشة:
3. في مربع الحوار الظاهرتحديد الجدول، اختر ورقة العمل التي تحتوي على نطاق البيانات المطلوب، ثم انقر على زرموافق. راجع لقطة الشاشة:
4. تم الآن ربط رسالة البريد الإلكتروني الخاصة بك بقائمة العناوين، ويمكنك تعديل نص الرسالة وإضافة عناصر نائبة تُشير إلى الموضع الذي ستظهر فيه المعلومات الفريدة في كل رسالة.
(1.) لإدراج اسم التحية الخاص بكل مستلم، انقر علىمراسلات > إدراج حقل دمج > الاسم، وسيتم إدراج الاسم المخصص في الرسالة، مع ظهور اسم الحقل محاطًا بـ« ».
(2.) واصل كتابة رسالتك وأدرجرمز التسجيلفي المكان الذي تريده، راجع لقطة الشاشة:
5. بعد الانتهاء من صياغة الرسالة، انقر علىمعاينة النتيجةضمن تبويبالمراسلاتلمراجعة رسائل البريد الإلكتروني وإدخال التعديلات قبل إكمال عملية الدمج فعليًّا.
6. بعد التأكد من عدم وجود أي مشكلات، يمكنك إرسال رسائل البريد الإلكتروني إلى المستلمين بشكل منفصل. يُرجى النقر علىمراسلات > إنهاء الدمج وإرسال > إرسال رسالة بريد إلكتروني. راجع لقطة الشاشة:
7. بعد ذلك، في مربع الحوار المنبثقالدمج إلى بريد إلكتروني، قم بالعمليات التالية:
(1.) من قائمةإلىالمنسدلة، اختر عمودعنوان_البريد_الإلكتروني؛
(2.) يمكنك كتابة موضوع الرسالة في مربع نصالموضوع؛
(3.) من قسمإرسال السجلات، اخترالكل.
8. ثم انقر علىموافق، وستُرسل رسائل البريد الإلكتروني إلى المستلمين بشكل منفصل مع رمز التسجيل الخاص بكلٍّ منهم دفعة واحدة. وبعد إرسال الرسائل، يمكنك الانتقال إلى Outlook للتأكد من إرسالها بنجاح.
إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين مع مرفقات مختلفة: بفضل ميزةKutools لـ Excel's إرسال رسائل بريد إلكتروني، يمكنك إرسال رسائل بريد إلكتروني مخصصة بسرعة إلى عدة مستلمين مع مرفقات مختلفة من Excel عبر Outlook وفقًا لاحتياجاتك. وفي الوقت نفسه، يمكنك أيضًا إضافة نسخة (CC) أو نسخة مخفية (Bcc) للرسائل إلى شخص معيّن.حمّل وجرب مجانًا Kutools لـ Excel الآن!
|
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel باستخدام كود VBA
باستثناء وظيفة دمج المراسلات، يمكن لكود 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. ثم انقر على زرموافق، وسيتم إرسال رسائل البريد الإلكتروني إلى العناوين بشكل منفصل، كلٌّ مع رمز التسجيل الخاص به، واحدة تلو الأخرى. وبعد إرسال الرسائل، يمكنك الانتقال إلى Outlook للتأكد من إرسالها بنجاح.
ملاحظة: في الكود أعلاه، يمكنك تعديل موضوع الرسالة أو نصها وفقًا لاحتياجاتك.
إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة مع مرفقات مختلفة باستخدام Kutools لـ Excel
إذا كنت تمتلكKutools لـ Excel، فباستخدام ميزتهإرسال رسائل بريد إلكتروني، يمكنك إرسال رسائل بريد إلكتروني مخصصة بسرعة إلى عدة مستلمين مع مرفقات مختلفة تناسب احتياجاتك.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. انقر علىKUTOOLS PLUS > إرسال رسائل بريد إلكتروني، كما هو موضح في لقطة الشاشة التالية:
2. في مربع حوارإرسال رسائل بريد إلكتروني، يرجى تحديد نطاق البيانات الذي تريد استخدامه، ثم اختر عناوين المستلمين والمرفقات والموضوع وفقًا لاحتياجاتك. راجع لقطة الشاشة:
3. في مربع التحرير، لإدراج أسماء التحية الفردية، اخترالاسممن القائمة المنسدلة، ثم انقر علىإدراج العنصر النائبلإدراج الأسماء في الرسالة. راجع لقطة الشاشة:
4. بعد ذلك، اكتب نص رسالتك في المربع وفقًا لاحتياجاتك، كما هو موضح في لقطة الشاشة التالية:
5. بعد الانتهاء من كتابة نص الرسالة، يُرجى اختيار وضع الإرسال الذي تفضّله—فيمكنك الإرسال عبر Outlook أو عبر الخادم الذي حددته. راجع لقطة الشاشة:
ملاحظة: إذا أردت استخدام خادم آخر، انقر علىإعدادات SMTPلضبط وضع الإرسال وفقًا لما تريد، راجع لقطة الشاشة:
6. أخيرًا، انقر على زرإرساللإرسال الرسائل. وعند الانتهاء، ستظهر نافذة منبثقة لتذكيرك بحالة الإرسال. راجع لقطة الشاشة:
انقر الآن لتنزيل Kutools لـ Excel وتجربته مجانًا!
عرض توضيحي: إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook
مقال ذو صلة:
كيف تُرسل بريدًا إلكترونيًّا إلى عدة مستلمين من قائمة في Excel عبر Outlook؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل