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

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

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

2. انتقل الآن للنقر علىنص التنسيق > نص منسّق (Rich Text)، ثم احفظ البريد الإلكتروني وأغلقه.

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

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

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

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

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

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

بعد ذلك، تظهر نافذة منبثقة تُخبرك بأن اسم المرفق قد نُسخ إلى الحافظة. انقرموافقلإغلاقها.

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

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

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

1. اضغط على مفاتيحAlt+F11 في آنٍ واحد لفتح نافذة Microsoft Visual Basic for Applications.

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

VBA: نسخ أسماء جميع المرفقات عند الرد على رسالة بريد إلكتروني في 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 Object Library من مربع المراجع المتاحة، ثم انقر على زرموافق. انظر لقطة الشاشة:

ملاحظة: حدد مرجعMicrosoft Word 15.0 Object Library إذا كنت تستخدم Outlook 2013، أو مرجعMicrosoft Word 14.0 Object Library إذا كنت تستخدم Outlook 2010.

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

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

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