كيف يمكن تعبئة موضوع بريد Outlook تلقائيًا باسم المرفق؟

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

تعبئة موضوع البريد الإلكتروني تلقائيًا بـ اسم المرفق باستخدام كود VBA

يرجى تشغيل كود VBA التالي لتعبئة موضوع البريد الإلكتروني تلقائيًا باسم «إدراج مرفق» في Outlook.

1. افتح Outlook، ثم اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر نقرًا مزدوجًا علىProject1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession لفتح محررThisOutlookSession (Code).

3. بعد ذلك، انسخ كود VBA التالي إلى محررThisOutlookSession (Code).

كود VBA: تعبئة تلقائية لـ موضوع البريد الإلكتروني بـ اسم المرفق

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. الآن، احفظ الكود وأعد تشغيل Outlook.

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

بعد ذلك، سيتم تعبئة سطر الموضوع تلقائيًا باسم «إدراج مرفق».

ملاحظات:

مساعد البريد الذكي في Outlook: ردود أذكى، وتواصل أوضح (سحر بنقرة واحدة!)

بسِّط مهام Outlook اليومية مع مساعد البريد الذكي من Kutools لـ Outlook! تعلّم هذه الأداة القوية من بريدك السابق لتقدّم لك ردودًا ذكية ودقيقة، وتحسّن محتوى رسائلك، وتساعدك في صياغتها وتنقيحها بسلاسة ودون أي جهد.

يدعم هذا الميزة:

• الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
• قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
• الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
• الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
• التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
• الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.

يدعم هذا الميزة:

• الردود الذكية على البريد الإلكتروني
• المحتوى المُحسَّن
• مسودات مبنية على الكلمات المفتاحية
• تمديد المحتوى الذكي
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

لا تنتظر—نزّل مساعد البريد الذكي الآن واستمتع بـ!

---

أفضل أدوات إنتاجية 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

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