كيف ترسل بريدًا إلكترونيًا مرفقًا بعدة مرفقات في Excel؟
تتحدث هذه المقالة عن إرسال بريد إلكتروني من خلال Outlook مع مرفقات متعددة مرفقة في Excel.
أرسل بريدًا إلكترونيًا يحتوي على مرفقات متعددة مرفقة في Excel برمز VBA
أرسل بريدًا إلكترونيًا يحتوي على مرفقات متعددة مرفقة في Excel برمز VBA
يرجى القيام بما يلي لإرسال بريد إلكتروني مرفق به عدة مرفقات في Excel.
1. الرجاء إدخال زر الأمر بالنقر فوق المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:
2. بعد إدخال زر الأمر ، يرجى النقر بزر الماوس الأيمن فوقه وتحديده عرض الرمز من قائمة السياق.
3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط الأدوات > مراجع حسابات كما هو موضح أدناه لقطة الشاشة.
4. في ال المراجع - VBAProject مربع الحوار ، يرجى البحث والتحقق من مكتبة كائنات Microsoft Outlook الخيار ، ثم انقر فوق OK .
5. ثم استبدل الكود الأصلي في نافذة التعليمات البرمجية برمز VBA أدناه.
كود فبا: أرسل بريدًا إلكترونيًا مرفقًا بمرفقات متعددة في إكسيل
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 = ""
.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
ملاحظات: يرجى تحديد مستلم البريد الإلكتروني والموضوع والجسم عن طريق تغيير المتغير في إلى = , .Subject = "اختبار" و .HTMLBody = "اختبار" خطوط في الكود.
6. اضغط على قديم + Q مفاتيح معًا للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
7. انقر المطور > وضع التصميم لإيقاف وضع التصميم. انظر لقطة الشاشة:
8. انقر فوق زر الأمر لتشغيل التعليمات البرمجية. في ظهرت تصفح نافذة ، حدد الملفات التي تريد إرفاقها في البريد الإلكتروني ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
9. ثم يتم إنشاء بريد إلكتروني مع الحقول المحددة والمرفقات المدرجة. الرجاء النقر فوق أرسل زر لإرساله. انظر لقطة الشاشة:
ملاحظات: يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.
أرسل بريدًا إلكترونيًا بسهولة عبر Outlook استنادًا إلى حقول القائمة البريدية التي تم إنشاؤها في Excel:
• إرسال رسائل البريد الإلكتروني فائدة كوتولس ل إكسيل يساعد المستخدمين على إرسال البريد الإلكتروني عبر Outlook بناءً على قائمة بريدية تم إنشاؤها في Excel.
قم بتنزيله وجربه الآن! (مسار مجاني لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في Excel؟
- كيفية إرسال بريد إلكتروني مع نسخ ولصق نطاق محدد في نص البريد الإلكتروني في Excel؟
- كيفية إدراج التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق vba في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!