Note: The other languages of the website are Google-translated. Back to English

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (47)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل بشكل جيد جدا ، شكرا جزيلا لذلك. لكن لدي فقط مشاكل صغيرة ، أحاول تغيير الكود لتحديد الخلايا التي أريدها مسبقًا لأخذ رسائل البريد الإلكتروني وإرسالها لأن الطريقة التي أنشأت بها ملف Excel الخاص بي. أرغب في تبديل مربع التحديد لمجموعة محددة من الخلايا. مثال: إصلاح جميع بياناتي سيكون بين A2: C6 لذلك عندما أقوم بتشغيل الماكرو لا أحتاج إلى تحديده مرة أخرى. شكرا جزيلا لك على كل ما أوضحته أعلاه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك تعديل الكود لإرفاق عدة ملفات في البريد الإلكتروني؟ تلك ستكون مساعدة عظيمة. شكرا لك مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن إضافة رمز بحيث يسحب أيضًا توقيع البريد الإلكتروني العادي؟ أيضًا ، عند تحديد النطاق الخاص بي إلى البريد الإلكتروني ، تمت تصفية جدول بيانات Excel الخاص بي ، ولكن عندما أقوم بتشغيل الماكرو ، فإنه لا يزال يسحب في الصفوف المخفية أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أود أن أعرف عن هذا أيضًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية إضافة cc في الكود أعلاه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
طريقة عظيمة

أريد فقط أن أسألك عن إمكانية تغيير الموضوع في كل مرة بناءً على البريد الإلكتروني ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا عزيزي
عند تطبيق Kutools for Excel ، يمكن أن يساعدك على إدراج الموضوعات بناءً على قيم الخلية ، ما عليك سوى تحديد رأس عمود الموضوع في مربع الحوار كما هو موضح في لقطة الشاشة التالية:

من فضلك جربها ، آمل أن تساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Skyyang ،

لقد كنت أحاول وأحاول الحصول على توقيع البريد الإلكتروني الخاص بي ولكن يبدو أنه لا يمكنني فهمه بشكل صحيح! هل لديك القليل من التعليمات البرمجية التي يمكنني إضافتها لتحقيق ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نشر الجنون هذا ، هذا مزيف ولا تصدق هذا المحتوى
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق ،
هذا رائع ، أحتاج إلى مساعدة واحدة أحتاج إلى إرفاق ملف pdf مختلف ببريد إلكتروني مختلف في كل مرة.
هل من الممكن ان يساعدني احد من فضلكم؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Skyyang ،
أحتاج إلى إرفاق ملف pdf مختلف لكل بريد. هل يمكنك المساعدة من فضلك ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ارفيند
يمكن أن يساعدك Kutools على إضافة مرفقات مختلفة متعددة عند إرسال رسائل البريد الإلكتروني.
يجب أولاً إدخال مسار المرفقات في الخلايا ، ثم تطبيق Kutools ، يرجى عرض لقطة الشاشة التالية:
أتمنى أن يساعدك ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Skyyang ،
لقد استخدمت الكود أدناه لإرسال البريد وعمل بشكل مثالي ، هل هناك أي شيء يمكنك مساعدتي في تعديله في الرمز لإرسال مرفقات pdf.
أحتاج إلى إرسال أكثر من 100 رسالة ، لذا من الصعب إنهاء إرفاق الملف في كل مرة. هل Kutools تعمل حسب المسار المحدد وترسل البريد تلقائيًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هل يمكنك مساعدتي في إرفاق وظيفة إضافية؟ مع رمز VBA أعلاه ، أحتاج إلى إرسال المرفق.
لا أستطيع استخدام Kutools :(
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف cc الناس في هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كانت لدي بيانات لعدد كبير من العملاء ولدى بعض العملاء أكثر من بيانات واحدة ... ولا أريد إرسال رسائل بريد منفصلة إلى العملاء ، ولكن ربما أرسلها بتنسيق جدولي في البريد الإلكتروني. كيف يمكنني إرسال بريد إلكتروني واحد فقط إلى العميل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ستيفن ، هل وجدت طريقة لإنجاز ذلك. يمكننا مساعدتك من خلال بوابة ويب بسيطة عبر الإنترنت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل قمت بحلها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اريد ان اعرف كيف اصنعها هل بامكانك اخبارى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكر!!

لكني أحاول إجراء الاختبار ولا أرسل شيئًا إلى emai. أيضا لا توجد رسالة خطأ .. هل لي أن أعرف ماذا حدث؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي قائمة بعناوين البريد الإلكتروني في Excel التي أحتاجها لإرسال رسائل بريد إلكتروني إلى الموضوع والجسم في الخلايا بجانب عنوان البريد الإلكتروني ولدي البرنامج النصي أدناه ولكني بحاجة إلى إرسال 100 بريد إلكتروني لكل ساعة كيف يمكنني إرضاء دعمك

إرسال فرعي
خافت كعدد صحيح ، Mail_Object ، Email_Subject ، o كمتغير ، lr طالما
lr = خلايا (Rows.Count، "A"). End (xlUp) .Row
تعيين Mail_Object = CreateObject ("Outlook.Application")
بالنسبة إلى i = 2 إلى lr
باستخدام Mail_Object.CreateItem (o)
.Subject = المدى ("B" & i). القيمة
.To = المدى ("A" & i). القيمة

. Body = Range ("C" & i). القيمة
.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)
.إرسال

عرض ".display" تعطيل العرض وتمكين الإرسال للإرسال تلقائيًا
انتهت ب
أنا القادم
MsgBox "تم إرسال البريد الإلكتروني بنجاح"، 64
Application.DisplayAlerts = خطأ
تعيين Mail_Object = لا شيء
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هبة
يمكن أن تساعدك رسائل إرسال رسائل البريد الإلكتروني Kutools for Excel في حل مشكلتك. يرجى ضبط الشروط كما هو موضح في لقطة الشاشة التالية:
باستخدام هذه الميزة ، يمكنك أيضًا تطبيق ميزة CC و BCC ، كما يمكنك إدراج مرفقات متعددة أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا المشرف


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لسبب ما ، يحتوي هذا الرمز على المكان الذي يرسل فيه كل بريد إلكتروني آخر في القائمة. هل هناك سبب لعدم إرسال كل واحد؟ قمت بنسخ الكود الموجود أعلاه مباشرةً ولم أغير شيئًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل كود فبا بشكل جيد ، شكرا ، ولكن كيف تضيف نسخة؟ حاولت وفشلت ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كود فبا يعمل بشكل جيد ، شكرا ، ولكن كيف تضيف نسخة؟ حاولت مع:


خافت xCc كسلسلة
then
xCc = xRg.Cells (i، 9) (العنوان موجود في العمود التاسع)


وفشل ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جين ،

لحل مشكلتك ، يرجى تطبيق الكود أدناه: (ملاحظة: يجب إضافة عمود CC في العمود C)

#If VBA7 و Win64 ثم
إعلان خاص دالة PtrSafe ShellExecute Lib "shell32.dll" اسم مستعار "ShellExecuteA" (_
ByVal hwnd As LongPtr ، ByVal lp العملية كسلسلة ، _
ByVal lp الملف كسلسلة ، ByVal lp المعلمات كسلسلة ، ByVal lp الدليل كسلسلة ، _
ByVal nShowCmd طويلة) كما LongPtr
#آخر
وظيفة التصريح الخاصة ShellExecute Lib "shell32.dll" الاسم المستعار "ShellExecuteA" (_
ByVal hwnd As Long، ByVal lp العملية كسلسلة ، _
ByVal lp الملف كسلسلة ، ByVal lp المعلمات كسلسلة ، ByVal lp الدليل كسلسلة ، _
ByVal nShowCmd طويلة) طالما
#إنهاء إذا
إرسال فرعي
خافت x البريد الإلكتروني كسلسلة
خافت xSubj كسلسلة
خافت xMsg كسلسلة
خافت xURL كسلسلة
خافت أنا كعدد صحيح
خافت ك مزدوج
خافت xCell كمجموعة
خافت xRg كمدى
خافت xTxt كسلسلة
خافت xCC كسلسلة
على خطأ استئناف التالي
xTxt = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("الرجاء تحديد نطاق البيانات:" ، "Kutools for Excel" ، xTxt ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
إذا xRg.Columns.Count <> 4 ثم
MsgBox "خطأ في التنسيق الإقليمي ، يرجى التحقق" ، "Kutools for Excel"
خروج الفرعية
إنهاء حالة
بالنسبة إلى i = 1 إلى xRg.Rows.Count
xEmail = xRg.Cells (أنا ، 2)
xCC = خلايا xRg (أنا ، 3)
xSubj = "رمز التسجيل الخاص بك"
xMsg = ""
xMsg = xMsg & "Dear" & xRg.Cells (i، 1) & "،" & vbCrLf & vbCrLf
xMsg = xMsg & "هذا هو رمز التسجيل الخاص بك"
xMsg = xMsg & xRg.Cells (i، 4) .Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "يرجى المحاولة ، ويسعدنا تلقي ملاحظاتك!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute (xSubj، ""، "٪ 20")
xMsg = Application.WorksheetFunction.Substitute (xMsg، ""، "٪ 20")
xMsg = Application.WorksheetFunction.Substitute (xMsg ، vbCrLf ، "٪ 0D٪ 0A")
xURL = "mailto:" & xEmail & "؟ cc =" & xCC & "& subject =" & xSubj & "& body =" & xMsg
ShellExecute 0 & ، vbNullString ، xURL ، vbNullString ، vbNullString ، vbNormalFocus
Application.Wait (Now + TimeValue ("0:00:02"))
Application.SendKeys "٪ s"
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت رمز VBA المذكور أعلاه ضمن "إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel مع رمز VBA". أردت أن أعرف ما إذا كان بإمكاني إرسال بريد إلكتروني إلى بعض الأفراد الذين يحتاجون إلى إخطار بناءً على إكسل يخبرني بإرسال تذكيرات إلى أولئك الذين لديهم عقود منتهية الصلاحية؟ لا يمكنني التفوق في إرسال رسائل البريد الإلكتروني وأنا أعلم أنه بسبب الكود نفسه. هل يمكن لأي شخص مساعدتي في حل هذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في إرسال رسائل البريد الإلكتروني ذات سطر الموضوع الفريد ، كيف يمكنني القيام بذلك باستخدام VBA؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جميع!

لدي قائمة برسائل البريد الإلكتروني في ورقة واحدة ومسودة البريد الإلكتروني في أخرى.
أحتاج إلى رمز لإرسال مسودة البريد الإلكتروني تلقائيًا من الورقة 2 إلى كل 5 أعضاء في القائمة الواردة في الورقة 1.
بمجرد إرسال أول 5 رسائل ، يجب أن يشير الرمز إليهم على أنهم "مرسلون" في عمود مخصص جديد ثم الانتظار لمدة 60 ثانية قبل إرسال المجموعة التالية المكونة من 5 رسائل بريد إلكتروني.
يجب أن يعمل الرمز حتى نهاية القائمة بأكملها.

يمكن أن يستخدم الكود outlook لإرسال رسائل البريد من ملف التعريف الافتراضي في Outlook.

الرجاء المساعدة.

يُرجى إعلامي إذا كنت بحاجة إلى مزيد من التوضيحات
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL