كيف يمكنك الاحتفاظ بالمرفقات عند الرد على رسالة في Outlook؟

في برنامج Microsoft Outlook، تظل المرفقات الأصلية سليمة عند إعادة توجيه رسالة بريد إلكتروني. لكن عند الرد على رسالة، يُزيل Outlook تلقائيًّا جميع المرفقات، مفترضًا أنها غير ضرورية في سياق المحادثة. وقد يكون هذا محبِطًا وغير فعّال، خاصةً عندما تحتاج إلى الرجوع إلى ملفات مهمة، أو إعادة إرسال مستندات، أو الاحتفاظ بالمرفقات للحفاظ على السياق الكامل. لحسن الحظ، توجد عدة طرق لضمان بقاء المرفقات مضمنة عند الرد في Outlook—سواء كنت تفضل الحل اليدوي، أو الحل بنقرة واحدة، أو الحل الآلي:

الرد مع المرفقات عن طريق النسخ واللصق اليدوي(أساسي وممل)

بنقرة واحدة الرد مع المرفقات باستخدام Kutools لـ Outlook 👍(سريع وسهل)

الرد مع المرفقات تلقائيًّا باستخدام VBA(تقني ويتطلب إعدادًا)

الرد مع المرفقات عن طريق النسخ واللصق اليدوي

يمكنك نسخ المرفقات من رسالة البريد الإلكتروني يدويًّا ولصقها في رسالة الرد قبل إرسالها.

1. افتحOutlook، وحدد رسالة البريد الإلكتروني التي تريد الرد عليها، ثم اعرضها فيلوحة القراءةأو افتحها في نافذة منفصلة.

2. انقر على أيٍّ من المرفقات، ثم انقرتحديد الكل > نسخضمن تبويبالمرفقات.

3. انقر على زرردلفتح نافذة الرد.

4. في رسالة الرد، انقر في أي مكان داخل نص الرسالة، ثم اضغطCtrl+V، أو انقرلصقفي تبويبالرسالةلإدراج المرفقات المنسوخة.

5. اكتب ردك، وراجع المرفقات، ثم انقرإرسال.

---

📂 احفظ المرفقات من رسائل بريد إلكتروني متعددة بسهولة

هل سئمت من حفظ المرفقات رسالةً تلو الأخرى في Outlook؟ حدّث سير عملك باستخدامKutools لـ Outlook! تتيح لك الميزة القويةحفظ الكل (المرفقات)حفظ المرفقات من عدة رسائل أو مجلدات كاملة بنقراتٍ قليلة فقط. ودّع العمليات اليدوية المملة، وتولَّ زمام التحكم في صندوق بريدك بسلاسة!

حمّل Kutools لـ Outlook الآن

بنقرة واحدة الرد مع المرفقات باستخدام Kutools لـ Outlook 👍

للحصول على طريقة سريعة وسهلة للرد مع المرفقات، يمكنك استخدامKutools لـ Outlook. تتيح لك ميزةالرد مع المرفق الأصليالرد مع الاحتفاظ بالمرفقات الأصلية بنقرة واحدة فقط.

حدد رسالة البريد الإلكتروني التي تحتوي على المرفقات التي تريد الاحتفاظ بها، ثم انقرKutools > الرد مع المرفق الأصليأوالرد على الكل مع المرفق الأصلي.

هذا كل شيء! ستتضمن رسالة الرد تلقائيًّا جميع المرفقات من رسالة البريد الإلكتروني الأصلية. ما عليك سوى كتابة رسالتك والنقر علىإرسال.

الرد مع المرفقات تلقائيًّا باستخدام VBA

للمستخدمين المتمرسين في برمجة VBA، تُؤتمت هذه الطريقة عملية الرد مع المرفقات تلقائيًّا. ومع ذلك، تتطلب تمكين ماكرو Outlook وإضافة البرنامج النصي يدويًّا.

الخطوة 1: فتح محرر VBA

1. حدد رسالة البريد الإلكتروني التي ترغب في الرد عليها.

2. اضغطAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

3. في اللوحة اليسرى، قم بتوسيعProject1 > كائنات Microsoft Outlook. ثم انقر نقرًا مزدوجًا علىThisOutlookSession لفتحها.

الخطوة 2: إدراج كود VBA

انسخ والصق كود VBA التالي في نافذةThisOutlookSession:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

الخطوة 3: تشغيل ماكرو VBA

1. اضغطF5 أو انقر على زرتشغيللتنفيذ الماكرو.

2. في مربع حوارالماكرو، اخترThisOutlookSession.RunReplyAllWithAttachments للرد على الجميع، أو اخترThisOutlookSession.RunReplyWithAttachments للرد على مستلم واحد، ثم انقرتشغيل.

النتيجة

ستفتح نافذة الرد مُضمنةً جميع المرفقات الأصلية. كل ما عليك هو كتابة رسالتك والنقر علىإرسال.

الخلاصة: أي طريقة تختار؟

فيما يلي مقارنة بين الطرق الثلاث لمساعدتك على تحديد الأنسب لاحتياجاتك:

بالنسبة لمعظم المستخدمين، يُعدKutools لـ Outlookالخيار الأفضل لأنهأسرع وأسهل طريقةللرد مع المرفقات في Outlook. والآن، يمكنك بسهولةالرد مع المرفقاتفي Outlook باستخدام الطريقة الأنسب لسير عملك! 🚀

عرض توضيحي: بنقرة واحدة لـ الرد مع المرفقات باستخدام Kutools لـ Outlook

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

• كيف يمكنك الاحتفاظ بالمرفقات عند الرد على رسالة في Outlook؟
• كيف يمكنك حفظ جميع المرفقات من عدة رسائل بريد إلكتروني دفعة واحدة في مجلد واحد داخل Outlook؟
• كيف يمكنك إزالة جميع المرفقات من رسالة بريد إلكتروني في Outlook؟

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

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

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

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

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة