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

Author: Xiaoyang Last Modified: 2025-05-30

هل هناك أي طرق جيدة لنا لإدراج جميع أسماء المرفقات في نص الرسالة عند كتابة بريد إلكتروني في 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

doc-list-attaches-into-message-1

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

doc-list-attaches-into-message-2

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

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

doc-list-attaches-into-message-5

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

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

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

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

doc-list-attaches-into-message-6

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

doc-list-attaches-into-message-7

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

doc-list-attaches-into-message-8

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

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

أدوات Kutools لـ Outlook: اكتشف أكثر من 100 ميزة أساسية ومتقدمة! استمتع بأكثر من 70 ميزة مجانًا. قم بتنزيل واستكشاف الإصدار المجاني اليوم!

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

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

doc-list-attaches-into-message-9