كيف يمكنك إرسال كل ورقة عمل إلى عنوان بريد إلكتروني مختلف من Excel؟
إذا كان لديك مصنف Excel يحتوي على أوراق عمل متعددة، وكل منها يحتوي على عنوان بريد إلكتروني في الخلية S1، فقد ترغب في إرسال كل ورقة كمرفق منفصل إلى مستلمها المخصص. قد تكون هذه المهمة مملة إذا قمت بها يدويًا، خاصةً عند التعامل مع عدد كبير من الأوراق. في هذا البرنامج التعليمي، سنوضح لك كيفية استخدام كود VBA لإرسال كل ورقة عمل من مصنف Excel الخاص بك تلقائيًا كمرفق إلى عنوان البريد الإلكتروني الموجود في الخلية S1 الخاصة بكل ورقة.
إرسال كل ورقة إلى عنوان البريد الإلكتروني مختلفة من Excel باستخدام كود VBA
سيتيح لك كود VBA التالي إرسال كل ورقة عمل كمرفق إلى المستلم المذكور في الخلية S1. يُرجى اتباع الخطوات التالية:
1. اضغط علىAlt + F11 في آنٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.
2. بعد ذلك، انقر علىInsert > Module، ثم انسخ والصق كود VBA أدناه في النافذة.
كود VBA: إرسال كل ورقة كمرفق إلى عنوان البريد الإلكتروني مختلفة
Sub Mail_Every_Worksheet()
'Updateby ExtendOffice
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xFileExt As String
Dim xFileFormatNum As Long
Dim xTempFilePath As String
Dim xFileName As String
Dim xOlApp As Object
Dim xMailObj As Object
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
xTempFilePath = Environ$("temp") & "\"
If Val(Application.Version) < 12 Then
xFileExt = ".xls": xFileFormatNum = -4143
Else
xFileExt = ".xlsm": xFileFormatNum = 52
End If
Set xOlApp = CreateObject("Outlook.Application")
For Each xWs In ThisWorkbook.Worksheets
If xWs.Range("S1").Value Like "?*@?*.?*" Then
xWs.Copy
Set xWb = ActiveWorkbook
xFileName = xWs.Name & " of " _
& VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & " "
Set xMailObj = xOlApp.CreateItem(0)
xWb.Sheets.Item(1).Range("S1").Value = ""
With xWb
.SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
With xMailObj
'specify the CC, BCC, Subject, Body below
.To = xWs.Range("S1").Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add xWb.FullName
.Display
End With
.Close SaveChanges:=False
End With
Set xMailObj = Nothing
Kill xTempFilePath & xFileName & xFileExt
End If
Next
Set xOlApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
- S1 هي الخلية التي تحتوي على عنوان البريد الإلكتروني الذي تريد إرسال الرسالة إليه. إذا كان عنوان بريدك الإلكتروني موجودًا في خلية أخرى، مثلA1، فيمكنك تعديل الكود ليتوافق مع هذا التغيير.
- يمكنك تحديد الحقول CC وBCC وSubject وBody حسب رغبتك في الكود؛
- لإرسال البريد الإلكتروني مباشرةً دون فتح نافذة الرسالة الجديدة التالية، غيّر.Display إلى.Send.
3. بعد ذلك، اضغط علىF5 لتشغيل هذا الكود، وستُدرج كل ورقة تلقائيًا في نافذة الرسالة الجديدة كمرفق. انظر لقطة الشاشة:
4. أخيرًا، انقر على زرSend لإرسال كل بريد إلكتروني واحدًا تلو الآخر.
Kutools لـ Excel: أرسل رسائل بريد إلكتروني مخصصة بسهولة بنقرة واحدة!
هل مللتَ من إرسال رسائل العملاء واحدًا تلو الآخر؟ مع ميزة «إرسال رسائل البريد الإلكتروني» من Kutools لـ Excel، يصبح تواصلك أسرع وأكثر احترافية! كل ما عليك هو إعداد جدول Excel يحتوي على الأسماء وعناوين البريد الإلكتروني ورموز التسجيل، ثم إدراج العناصر النائبة—ليقوم النظام تلقائيًا بإنشاء رسائل بريد إلكتروني مخصصة وإرسال مئات الرسائل بنقرة واحدة. لا مزيد من المهام المتكررة!
- 💡 تملأ العناصر النائبة الديناميكية (مثل الاسم ورمز التسجيل) المحتوى الشخصي تلقائيًا لكل مستلم، مما يضمن شعور كل منهم بأن البريد الإلكتروني مُعدّ خصيصًا له.
- 📎 أرفق ملفات مخصصة لضمان تسليم دقيق
- 📤 يتكامل بسلاسة مع Outlook لإرسال آمن وموثوق
- 📝 احفظ قوالب رسائل البريد الإلكتروني وأعِد استخدامها لتحقيق أقصى كفاءة
- 🎨 محرر مرئي سهل الاستخدام يُظهر لك بالضبط ما سيراه المستلم (WYSIWYG)
- يستخدم توقيع Outlook الخاص بك تلقائيًا—لا حاجة لأي إعداد إضافي، فقط اضغط على «إرسال»!
- احصل على Kutools لـ Excel الآن!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل