انتقل إلى المحتوى الرئيسي

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 1

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

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

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


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

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 2

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

doc إرسال رسائل بريد إلكتروني مخصصة 3

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

doc إرسال رسائل بريد إلكتروني مخصصة 4

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 5

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

doc إرسال رسائل بريد إلكتروني مخصصة 6

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 7

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

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

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 8

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


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

بدافع كوتولس ل إكسيل's إرسال رسائل البريد الإلكتروني ميزة ، يمكنك بسرعة إرسال رسائل بريد إلكتروني مخصصة إلى عدة مستلمين بمرفقات مختلفة من Excel عبر Outlook حسب حاجتك. في نفس الوقت ، يمكنك نسخة أو نسخة مخفية من الرسائل إلى شخص معين أيضًا.       قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

doc إرسال رسائل بريد إلكتروني مخصصة 18 1


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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

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


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

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

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

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

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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

doc إرسال رسائل بريد إلكتروني مخصصة 9

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


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

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations