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

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

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

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

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

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

1. اضغط مع الاستمرار على مفتاحَيْALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.

2. في نافذةمايكروسوفت فيجوال بيسيك للتطبيقات، انقر نقرًا مزدوجًا على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. بعد ذلك، انقر علىأدوات > المراجعفي نافذةمايكروسوفت فيجوال بيسيك للتطبيقات. ثم في مربع الحوار المنبثقالمراجع - Project1، حدد خيارMicrosoft Word Object Library من قائمةالمراجع المتاحة. انظر لقطة الشاشة:

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

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

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

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

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

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

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

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

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

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

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

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

3. الآن، كل ما عليك فعله هو الضغط معًا على مفتاحَيْCtrl + V لصق اسم المرفق في نص الرسالة الذي تحتاجه. انظر لقطة الشاشة:

مقالات ذات صلة إضافية:

---

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

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

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

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

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

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

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

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

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

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

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة