كيف ترسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من 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 الخاص بك للتأكد من إرسال رسائل البريد الإلكتروني بنجاح.
إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة:
بدافع كوتولس ل إكسيل's إرسال رسائل البريد الإلكتروني ميزة ، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة من Excel عبر Outlook حسب حاجتك. في نفس الوقت ، يمكنك نسخة أو نسخة مخفية من الرسائل إلى شخص معين أيضًا. قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن! |
أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من 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
إذا كان لديك كوتولس ل إكسيل، بما لديها إرسال رسائل البريد الإلكتروني ميزة ، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة حسب حاجتك.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس بلس > إرسال رسائل البريد الإلكتروني، انظر لقطة الشاشة:
2. في أرسل Emials في مربع الحوار ، يرجى تحديد نطاق البيانات الذي تريد استخدامه ، ثم تحديد عناوين المستلم والمرفقات والموضوع حسب حاجتك ، انظر لقطة الشاشة:
3. في مربع التعديل ، أدخل أسماء الترحيب الفردية ، يرجى الاختيار الاسم من القائمة المنسدلة ، ثم انقر فوق إدراج عنصر نائب لإدراج الأسماء في الرسالة ، انظر الصورة:
4. ثم اكتب نص رسالتك في المربع كما تريد ، انظر الصورة:
5. بعد الانتهاء من نص البريد الإلكتروني ، يرجى اختيار وضع الإرسال كما تريد ، ويمكنك الإرسال باستخدام Outlook أو الخادم المحدد ، راجع screesnhot:
ملاحظات: إذا كنت تريد استخدام خادم آخر ، فانقر فوق إعدادات الخادم الصادر لتعيين وضع الإرسال على الوضع الخاص بك ، راجع لقطة الشاشة:
6. أخيرًا ، انقر فوق أرسل زر لإرسال رسائل البريد الإلكتروني ، بعد الانتهاء ، سيظهر مربع موجه لتذكيرك بحالة الإرسال. انظر لقطة:
انقر فوق تنزيل وتجربة مجانية Kutools for Excel الآن!
عرض توضيحي: أرسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook
مقالة ذات صلة:
كيف ترسل بريدًا إلكترونيًا إلى عدة مستلمين في قائمة من Excel عبر Outlook؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!