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

Author: Siluvia Last Modified: 2025-08-06

بالنسبة لأولئك الذين يعتادون على استخدام اسم المرفق كموضوع للبريد الإلكتروني في 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

doc-autofill-subject-line-with-attachment-name-2

4. الآن تحتاج إلى حفظ الكود وإعادة تشغيل Outlook.

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

doc-autofill-subject-line-with-attachment-name-3

ثم سيتم ملء سطر الموضوع تلقائيًا باسم المرفق الذي تم إدراجه.

doc-autofill-subject-line-with-attachment-name-4

ملاحظات:

1) إذا كنت قد قمت بالفعل بملء الموضوع، فإن إدراج مرفق لن يؤدي إلى ظهور نافذة الحوار.

2) إذا قمت بإزالة موضوع موجود من البريد الإلكتروني الحالي ولكن المؤشر لا يزال معروضًا في سطر الموضوع، فإن إدراج مرفق لن يؤدي إلى ظهور نافذة الحوار أيضًا. بعد إزالة الموضوع، تحتاج إلى النقر بعيدًا عن سطر الموضوع لتحديث مربع الرسالة لجعل الكود يعمل.

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

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

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

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

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

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