كيف ترسل رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من 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؟
أفضل أدوات إنتاجية المكتب
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٪ ، ويقلل مئات النقرات بالماوس كل يوم!






























