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

كيفية نسخ جميع أسماء المرفقات عند الرد في Outlook؟

عند الرد على بريد إلكتروني بتنسيق RTF (بتنسيق Rich Format) في Outlook ، سيتم نسخ أسماء جميع المرفقات ولصقها في نص الرسالة تلقائيًا (انظر لقطة الشاشة أدناه). ومع ذلك ، عند الرد على بريد إلكتروني بتنسيق HTML في Outlook ، تكون المرفقات مفقودة في الرد على البريد الإلكتروني. هنا ، ستقدم هذه المقالة بعض الطرق لنسخ جميع أسماء المرفقات عند الرد على رسائل البريد الإلكتروني ، أو في رسائل البريد الإلكتروني المستلمة مباشرة.


انسخ جميع أسماء المرفقات عند الرد بتغيير HTML إلى RTF

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

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

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

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

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

انسخ جميع أسماء المرفقات عند الرد باستخدام VBA

ستقدم هذه الطريقة ماكرو 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.

كوتولس لتوقعات: مجموعة أدوات Outlook النهائية التي تحتوي على أكثر من 100 أداة سهلة الاستخدام. جربه مجانًا لمدة 60 يومًا، بدون قيود، ولا تقلق!   اقرأ أكثر...   ابدأ النسخة التجريبية المجانية الآن!

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

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

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

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

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

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


الرد مع المرفقات


مقالات ذات صلة:


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

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

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations