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

كيف ترسل بريدًا إلكترونيًا مرفقًا بعدة مرفقات في 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 = "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

ملاحظة: يرجى تحديد مستلم البريد الإلكتروني والموضوع والجسم عن طريق تغيير المتغير في . إلى = happy.xuebi@163.com, .Subject = "اختبار" و .HTMLBody = "اختبار" خطوط في الكود.

6. اضغط على قديم + Q مفاتيح معًا للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

7. انقر المطور > وضع التصميم لإيقاف وضع التصميم. انظر لقطة الشاشة:

8. انقر فوق زر الأمر لتشغيل التعليمات البرمجية. في ظهرت تصفح نافذة ، حدد الملفات التي تريد إرفاقها في البريد الإلكتروني ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

9. ثم يتم إنشاء بريد إلكتروني مع الحقول المحددة والمرفقات المدرجة. الرجاء النقر فوق إرسال زر لإرساله. انظر لقطة الشاشة:

ملاحظة: يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.


أرسل بريدًا إلكترونيًا بسهولة عبر Outlook استنادًا إلى حقول القائمة البريدية التي تم إنشاؤها في Excel:

إرسال رسائل البريد الإلكتروني فائدة كوتولس ل إكسيل يساعد المستخدمين على إرسال البريد الإلكتروني عبر Outlook بناءً على قائمة بريدية تم إنشاؤها في Excel.
قم بتنزيله وجربه الآن! (30- درب مجاني ليوم واحد)



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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (14)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا قادر على "إرسال بريد إلكتروني سريعًا مع مرفقات متعددة مرفقة في Excel باستخدام Kutools for Excel" باستخدام الخطوات المذكورة أعلاه ، ولكني أرغب في اتخاذ خطوة أخرى إلى الأمام وتخصيص كل بريد إلكتروني عن طريق إدخال أسمائهم (من عمود في ورقة Excel) في نص البريد الإلكتروني. أثناء وجودي في نص البريد الإلكتروني ، أحاول تحديد الحقل والنقر فوق "إدراج عنصر نائب" ولكن لم يحدث شيء. أي فكرة لماذا أو كيف يمكنني إصلاح هذا؟ شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كانت الملفات المذكورة أعلاه موجودة في مجلدات فرعية؟ كيف تبحث عن ملف في مجلد ومجلدات فرعية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو تم إرسال عدة مستخدمين مختلفين ومرفقات مختلفة مع سطر موضوع مختلف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود أعلاه يعمل بشكل مثالي شكرا !! لكن يبدو أن توقيع البريد الإلكتروني التلقائي الخاص بي يختفي مع هذا الرمز. اي فكرة لماذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا فريق .... لا يمكنني رؤية المرفق في البريد ، لذا إذا اتبعت خطوتك ... هل يمكنك مساعدتك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع ...... يعمل على أكمل وجه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استمتعت بالعمل من خلال هذا الحل لإضافة مرفقات متعددة إلى بريد إلكتروني من داخل Excel VBA. شكرًا لك. أعلم أن الكثير منا يستفيد ومن ثم يريد بعض الجوانب المخصصة لما نحاول القيام به بالضبط. أنا لست مختلفًا ، ولكن بالنسبة للخطوة 8. هل يمكننا تحديد المسار الذي يمكن لـ تصفح ستفتح النافذة مع؟ يمكنني التصفح إلى مجلد آخر في موقع مختلف ولكن إذا كان بإمكاني تعيين المسار ، فسيكون ذلك بمثابة توفير للوقت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أنا غوستاريا صابر كومو كيداريا لا ماكرو سيكويرا إنفيرار إن أون ميسمو كورريو إيه فارياس الأشخاص الذين يخدعون مختلفين.
شكرا جزيلا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen، zodat er allen pdf-bestanden aan de mail kunnen worden toegevoegd؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أليكس دي جراف ،
يستدعي الرمز مباشرة نافذة اختيار ملف Microsoft. هذا يجعل من السهل على مستخدمي VBA تحديد الملفات المطلوبة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،

نعم انا افهم ذلك. ومع ذلك ، أريد أن يكون المستخدمون قادرين فقط على تحديد ملفات pdf.
هل هذا ممكن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أليكس دي جراف ،
يسرد رمز VBA التالي فقط ملفات PDF في نافذة التصفح. يرجى محاولة إعطائها.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،
نعم ، أنا أفهم ذلك. ومع ذلك ، هل من الممكن تقييد المستخدمين لاختيار ملفات pdf فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد إرسال بريد إلكتروني مع البريد أو البريد الإلكتروني أو ملف Excel naims62@hotmail.com
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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