إذا قمنا بتحويل البريد الإلكتروني بتنسيق HTML إلى RTF قبل الرد ، فسيتم نسخ جميع أسماء المرفقات إلى رسالة الرد بعد النقر فوق الصفحة الرئيسية> رد في Outlook.

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

2. المضي قدما للنقر تنسيق النص > النص الغني، ثم احفظ وأغلق البريد الإلكتروني.

3. الآن تعود إلى العرض الرئيسي. استمر في تحديد البريد الإلكتروني ، وانقر فوق الصفحة الرئيسية - > رد.

4. الآن يتم نسخ جميع أسماء المرفقات من البريد الإلكتروني الأصلي ولصقها في رسالة الرد كما هو موضح أدناه. يرجى كتابة رسالة الرد وإرسالها.

ستقدم هذه الطريقة ماكرو VBA لنسخ جميع أسماء المرفقات عند الرد على بريد إلكتروني ، ثم لصق الأسماء في نص رسالة الرد على البريد الإلكتروني في Outlook.

1. صحافة قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.

2. في مستكشف المشروع الأيسر ، وسّع المشروع 1 ، وانقر نقرًا مزدوجًا لفتح ملف هذه الجلسة نافذة (انظر لقطة الشاشة أدناه) ، ثم الصق الكود أدناه في النافذة.

فبا: انسخ اسم جميع المرفقات عند الرد على بريد إلكتروني في Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. انقر الأدوات > مراجع.

4. في نافذة المراجع الافتتاحية - المشروع 1 لبرنامج Outlook 2016 ، يرجى التحقق من مكتبة كائنات Microsoft Word 16.0 مرجع في مربع المراجع المتاحة ، وانقر فوق OK زر. انظر لقطة الشاشة:

ملاحظة: الرجاء تحديد مكتبة كائنات Microsoft Word 15.0 مرجع إذا كنت تعمل مع Outlook 2013 ، أو مكتبة كائنات Microsoft Word 14.0 مرجع مع Outlook 2010.

5. احفظ VBA وأغلق نافذة Microsoft Visual Basic for Applications.

6. تعود الآن إلى الواجهة الرئيسية لبرنامج Outlook. حدد البريد الإلكتروني الذي سترد عليه ، وانقر الصفحة الرئيسية - > رد or الرد على الجميع.
ملاحظة: إذا لم يتم نسخ أسماء المرفقات ولصقها في البريد الإلكتروني للرد ، يرجى إعادة تشغيل Outlook والرد مرة أخرى.

والآن يتم نسخ جميع أسماء المرفقات من البريد الإلكتروني المحدد ولصقها في البريد الإلكتروني للرد. انظر لقطة الشاشة:

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

كوتولس لتوقعات: أضف أكثر من 100 أداة يدوية لبرنامج Outlook ، يمكنك تجربتها مجانًا دون قيود خلال 60 يومًا. إقرأ المزيد      التجربة المجانية الآن

1. حدد البريد الإلكتروني الذي سترد عليه ، وانقر كوتولس > أدوات المرفقات > نسخ الأسماء.

ثم يظهر مربع حوار ويخبرك أنه تم نسخ أسماء المرفقات إلى الحافظة. انقر OK لإغلاقه.

2. المضي قدما للنقر الصفحة الرئيسية - > رد للرد على البريد الإلكتروني المحدد.

3. في نافذة رسالة الرد ، ضع المؤشر في نص الرسالة ، واضغط على CTRL + V مفاتيح للصق أسماء المرفقات بسهولة.

يمكنك الرد بسهولة على رسائل البريد الإلكتروني المحددة مع الاحتفاظ بجميع المرفقات الأصلية في Outlook

بشكل عام ، تتم إزالة المرفقات الأصلية عند الرد على بريد إلكتروني في Outlook. ولكن بشكل رائع الرد مع إرفاق ميزة Kutools for Outlook ، يمكنك بسهولة الاحتفاظ بجميع مرفقات رسائل البريد الإلكتروني عند الرد عليها في Outlook. انقر للحصول على نسخة تجريبية مجانية مدتها 60 يومًا دون قيود!

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

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