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

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

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

الرجاء تشغيل رمز فبا التالي لملء موضوع البريد الإلكتروني تلقائيًا باسم المرفق المدرج في Outlook.

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين مشروع 1 (VbProject.OTM) > كائنات Microsoft Outlook > هذه الجلسة لفتح ThisOutlookSession (رمز) محرر.

3. ثم انسخ رمز VBA التالي إلى ملف ThisOutlookSession (رمز) محرر.

رمز فبا: ملء تلقائي لموضوع البريد الإلكتروني باسم المرفق

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. من الآن فصاعدًا ، عندما تقوم بإدخال مرفق في رسالة بريد إلكتروني لم يتم ملء موضوع به بعد ، أ كوتولس لتوقعات سيظهر مربع حوار يسألك عما إذا كنت تريد استخدام اسم المرفق كموضوع ، انقر فوق نعم .

بعد ذلك ، سيتم ملء سطر الموضوع باسم المرفق المُدرج تلقائيًا.

ملاحظة:

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

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

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

Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

لقطة kutools outlook kutools tab 1180x121

لقطة kutools outlook kutools plus tab 1180x121

اقرأ أكثر... التحميل الان...

التعليقات (7)

لا يوجد تقييم. كن أول من يقيم!

الكسندر

منذ حوالي أسبوعين

#42567

تم تصغير هذا التعليق بواسطة المشرف على الموقع

обрый день. одскажите пожалуйста можно сделать то бы тема из 2 и более айлов с раздел؟ هل ترغب في ذلك؟ аранее спасибо

رد

كريستال الكسندر

منذ حوالي أسبوعين

#42696

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا Александр ،

هل تقصد إضافة عدة مرفقات أثناء إضافة أسماء المرفقات هذه في نفس الوقت إلى الموضوع ثم ربطها بـ AND؟

رد

بلغ

الكسندر كريستال

منذ حوالي أسبوع

#42763

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Да. اقرأ المزيد менно два файла، больше не надо.

رد

الكسندر

منذ حوالي أسبوع

#42786

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Да، именно. ТЕ

رد

الكسندر

منذ حوالي 5 أيام

#42847

تم تصغير هذا التعليق بواسطة المشرف على الموقع

обрый день. А при добавлении 2 файлов в тему писалось через И.

رد

كريستال الكسندر

منذ 1 اليوم

#42933

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا Александр ،

The following VBA code can help to solve your problem. Please give it a try.

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub

رد

بلغ

الكسندر كريستال

منذ 1 اليوم

#42946

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?

رد

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط