انتقل إلى المحتوى الرئيسي

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

أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (11)
No ratings yet. Be the first to rate!
karloslb
karloslb
This comment was minimized by the moderator on the site
Everything works now. Thanks very much.
Reply
Report
0
0
crystal
crystal     karloslb
This comment was minimized by the moderator on the site
I'm glad I could help you.
Reply
Report
0
0
karloslb
karloslb
This comment was minimized by the moderator on the site
Hello,
I pasted your code. Outlook 365 restarted. I've tried several times, but it doesn't work. The subject line remains empty. What could be the problem?
Reply
Report
0
0
crystal
crystal     karloslb
This comment was minimized by the moderator on the site
Hi Karol,

Please check if the corresponding Macro settings are enabled in your Outlook.
Go to File > Options. In the Outlook Options window, select Trust Center in the left pane. In the Trust Center window, select Macro Settings in the left pane, and then select the Enable all macros option in the Macro Settings section and check the Apply macro security settings to installed add-ins box in the Add-ins section.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/subject-auto.png
Reply
Report
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Reply
0
0
crystal
crystal     Александр
This comment was minimized by the moderator on the site
Hi Александр,

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
Reply
Report
0
0
Александр
Александр     crystal
This comment was minimized by the moderator on the site
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Reply
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Reply
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Reply
0
0
crystal
crystal     Александр
This comment was minimized by the moderator on the site
Hi Александр,

Do you mean adding multiple attachments while adding those attachment names at the same time to the subject and then linking them with AND?
Reply
Report
0
0
Александр
Александр     crystal
This comment was minimized by the moderator on the site
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations