كيفية سرد أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني في Outlook؟

هل هناك أي طرق جيدة لنا لإدراج أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني في Outlook؟ في هذه المقالة، سأتحدث عن كيفية حل هذه المهمة في Outlook.

سرد أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني باستخدام كود VBA

سرد أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني باستخدام ميزة بسيطة

سرد أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني باستخدام كود VBA

يرجى اتباع الخطوات التالية لإكمال هذه المهمة:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا فوق ThisOutlookSession من لوحة Project1(VbaProject.OTM) لفتح النموذج، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة.

كود VBA: سرد أسماء جميع المرفقات في نص الرسالة:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. بعد ذلك استمر بالنقر على إدراج > وحدة، وقم بنسخ ولصق الكود أدناه في الوحدة الفارغة التي تم فتحها، شاهد لقطة الشاشة:

كود VBA: سرد أسماء جميع المرفقات في نص الرسالة:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. وبعد ذلك انقر على أدوات > المراجع في نافذة Microsoft Visual Basic for Applications، في مربع الحوار المنبثق References-Project1، قم بتحديد خيار Microsoft Word Object Library من قائمة المراجع المتاحة، شاهد لقطة الشاشة:

5. انقر موافق للخروج من مربع الحوار، ثم يجب عليك إضافة زر الماكرو إلى شريط الأدوات السريع. في نافذة رسالة جديدة، اختر المزيد من الأوامر من القائمة المنسدلة تخصيص شريط الأدوات السريع، شاهد لقطة الشاشة:

6. في مربع حوار خيارات Outlook، قم بالعمليات التالية:

(1.) حدد الماكرو من قائمة أوامر الاختيار المنسدلة؛

(2.) انقر على اسم الماكرو الذي قمت بإدخاله للتو؛

(3.) وبعد ذلك انقر على زر الإضافة لإضافة الماكرو إلى شريط الأدوات السريع.

7. بعد ذلك انقر موافق لإغلاق مربع الحوار، الآن تم إدراج زر الماكرو في شريط الأدوات السريع، شاهد لقطة الشاشة:

8. الآن، عندما تقوم بإنشاء رسالة جديدة، وتنقر على زر الماكرو، سيتم إدراج أسماء المرفقات فوق نص الرسالة كما هو موضح في لقطة الشاشة التالية:

سرد أسماء جميع المرفقات في نص الرسالة عند كتابة بريد إلكتروني باستخدام ميزة بسيطة

قد يكون الكود أعلاه صعبًا بعض الشيء بالنسبة لك لتطبيقه، إذا كان لديك أدوات Kutools لـ Outlook، باستخدام ميزتها نسخ الأسماء، يمكنك بسرعة نسخ أسماء المرفقات الخاصة برسالة والصقها حيثما تحتاج إليها.

بعد تثبيت أدوات Kutools لـ Outlook، يرجى القيام بما يلي:

1. أولاً، يرجى إنشاء البريد الإلكتروني الجديد الذي تحتاجه، وبعد ذلك انقر على أدوات > نسخ الأسماء في نافذة الرسالة الجديدة، شاهد لقطة الشاشة:

2. وبعد ذلك، ستظهر مربع تنبيه لتذكيرك بأن أسماء المرفقات قد تم نسخها إلى الحافظة، شاهد لقطة الشاشة:

3. الآن، تحتاج فقط إلى الضغط على Ctrl + V معًا للصق أسماء المرفقات في نص الرسالة الذي تحتاج إليه، شاهد لقطة الشاشة:

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

---

أفضل أدوات إنتاجية أوفيس

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء الرسائل.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...

👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

قائمة ميزات أدوات Kutools لـ Outlook تحميل الآن فتح المجلد للشراء