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

Author: Kelly Last Modified: 2025-05-30

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

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

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

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

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

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

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

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

the screenshot of step about replying with attachments by manually copying and pasting 1

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

the screenshot of step about replying with attachments by manually copying and pasting 2

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

the screenshot of step about replying with attachments by manually copying and pasting 3

5. قم بصياغة ردك، راجع المرفقات، وانقر فوق إرسال.

القيود:

يدوي وتكراري: ليس مثاليًا للاستخدام المتكرر.
يستغرق وقتًا: يتطلب خطوات إضافية في كل مرة.
عرضة للأخطاء: قد تنسى نسخ ولصق المرفقات.

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

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

قم بتنزيل أدوات Kutools لـ Outlook الآن

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

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

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

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

the screenshot of the Reply with Original Attachment or Reply All with Original Attachment button

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

the screenshot of keeping attchments in replying email using Kutools for Outlook

لماذا تستخدم Kutools لـ Outlook؟

✅ يوفر الوقت: لا حاجة لنسخ ولصق المرفقات يدويًا.
✅ حل بنقرة واحدة: يرد فورًا مع المرفقات.
✅ سهل الاستخدام: سهل الاستخدام ولا يتطلب مهارات تقنية.

ملاحظة: لتطبيق أداة الرد مع المرفق الأصلي من Kutools لـ Outlook، يجب عليك أولاً تنزيل وتثبيت Kutools لـ Outlook.

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

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

💡 ملاحظة مهمة: قبل تشغيل ماكرو VBA، تحتاج إلى تمكين الماكرو في Outlook.

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

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

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

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

the screenshot of the ThisOutlookSession option

الخطوة 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. في مربع الحوار Macros، حدد ThisOutlookSession.RunReplyAllWithAttachments للرد على الجميع أو حدد ThisOutlookSession.RunReplyWithAttachments للرد على مستلم واحد. انقر فوق تشغيل.

the screenshot of the Macros dialog box

النتيجة

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

إيجابيات وسلبيات طريقة VBA:

✅ مؤتمتة: لا حاجة لنسخ ولصق المرفقات يدويًا.
❌ يتطلب معرفة VBA : قد لا تكون مناسبة للمبتدئين.
❌ يتم تعطيل الماكرو افتراضيًا : يجب تمكينها يدويًا.

الاستنتاج: أي طريقة يجب أن تختارها؟

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

الطريقة	الأفضل لـ	سهولة الاستخدام	الكفاءة
النسخ واللصق اليدوي	الاستخدام العرضي	⭐⭐⭐⭐	⭐⭐
Kutools لـ Outlook	الاستخدام اليومي، المستخدمون غير التقنيين	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
ماكرو VBA	محبو الأتمتة، المستخدمون المتقدمون	⭐⭐⭐	⭐⭐⭐⭐

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