كيفية إرسال بريد إلكتروني مع العديد من المرفقات المضافة في Excel؟
تتحدث هذه المقالة عن إرسال بريد إلكتروني عبر Outlook مع العديد من المرفقات المضافة في Excel.
إرسال بريد إلكتروني مع مرفقات متعددة مضمنة في Excel باستخدام كود VBA
إرسال بريد إلكتروني مع مرفقات متعددة مضمنة في Excel باستخدام كود VBA
يرجى اتباع الخطوات التالية لإرسال بريد إلكتروني مع مرفقات متعددة مضافة في Excel.
1. يرجى إدراج زر أمر بالضغط على Developer > Insert > Command Button (ActiveX Control). انظر لقطة الشاشة:
2. بعد إدراج زر الأمر، يرجى النقر بزر الماوس الأيمن عليه واختيار عرض الكود من قائمة السياق.
3. في نافذة Microsoft Visual Basic for Applications التي تفتح، يرجى النقر على Tools > References كما هو موضح في لقطة الشاشة أدناه.
4. في مربع الحوار References – VBAProject، يرجى العثور على خيار Microsoft Outlook Object Library وتحديده، ثم النقر على زر موافق.
5. ثم استبدل الكود الأصلي في نافذة الكود بالكود التالي بلغة VBA.
كود VBA: إرسال بريد إلكتروني مرفقًا بمرفقات متعددة في Excel
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = "happy.xuebi@163.com"
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
ملاحظة: يرجى تحديد مستلم البريد الإلكتروني والموضوع والنص عن طريق تغيير المتغيرات في .To = happy.xuebi@163.com, .Subject = "test" و.HTMLBody = "test" في الكود.
6. اضغط معًا على مفتاحي Alt + Q للخروج من نافذة Microsoft Visual Basic for Applications.
7. انقر على Developer > Design Mode لإيقاف تشغيل وضع التصميم. انظر لقطة الشاشة:
8. انقر على زر الأمر لتشغيل الكود. في نافذة Browse المنبثقة، حدد الملفات التي تحتاج إلى إرفاقها في البريد الإلكتروني، ثم انقر على زر موافق. انظر لقطة الشاشة:
9. ثم يتم إنشاء بريد إلكتروني مع الحقول والمرفقات المحددة. يرجى النقر على زر الإرسال لإرساله. انظر لقطة الشاشة:
ملاحظة: يعمل كود VBA فقط عندما تستخدم Outlook كبرنامج بريدك الإلكتروني.
إرسال بريد إلكتروني بسهولة عبر Outlook بناءً على حقول قائمة المراسلة المنشأة في Excel:
الأداة إرسال البريد الإلكتروني في Kutools لـ Excel تساعد المستخدمين على إرسال البريد الإلكتروني عبر Outlook بناءً على قائمة المراسلة المنشأة في Excel.
قم بتنزيله وتجربته الآن! (30-day free trail)
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel؟
- كيفية إرسال بريد إلكتروني مع نسخ ولصق نطاق محدد في نص البريد الإلكتروني في Excel؟
- كيفية إدراج توقيع في بريد Outlook عند الإرسال بواسطة vba في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم الوصول إلى تاريخ الاستحقاق في Excel؟
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!