כיצד לשמור על קבצים מצורפים בעת התגובה ב-Outlook?

Author: Kelly Last Modified: 2025-05-30

ב-Microsoft Outlook, כאשר אתה מעביר דואר אלקטרוני, הקבצים המצורפים המקוריים נשארים ללא שינוי. עם זאת, כאשר אתה עונה לדואר אלקטרוני, Outlook מסיר אוטומטית את כל הקבצים המצורפים, בהנחה שהם אינם נחוצים בשיחה. זה יכול להיות מתסכל ואי-יעיל, במיוחד כאשר אתה צריך להתייחס לקבצים חשובים, לשלוח מחדש מסמכים או לשמור על קבצים לצירוף טוב יותר. למרבה המזל, ישנן מספר דרכים להבטיח שהקבצים המצורפים יישארו כלולים בעת התגובה ב-Outlook, בין אם אתה מעדיף פתרון ידני, לחיצה אחת או אוטומטי.

תגובה עם קבצים מצורפים באמצעות העתקה והדבקה ידנית (בסיסי ומפרך)

תגובה עם קבצים מצורפים בלחיצה אחת באמצעות Kutools עבור 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 עבור 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 Objects. לחץ פעמיים על 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 כדי להגיב למקבל אחד. לחץ על Run.

the screenshot of the Macros dialog box

תוצאה

חלון התגובה יפתח וכל הקבצים המצורפים המקוריים יכללו. פשוט כתוב את הודעתך ולחץ על שלח.

יתרונות וחסרונות של שיטת ה-VBA:

✅ אוטומטי: אין צורך להעתיק ולהדביק קבצים מצורפים ידנית.
❌ דורש ידע ב-VBA : עשוי שלא להיות ידידותי למתחילים.
❌ מאקרוים מושבתים כברירת מחדל : עליך להפעיל אותם באופן ידני.

מסקנה: איזו שיטה כדאי לבחור?

הנה השוואה בין שלוש השיטות כדי לעזור לך להחליט איזו מהן מתאימה ביותר לצרכיך:

שיטת	הכי טוב עבור	سهولة الاستخدام	كفاءة
نسخ يدوي والصق	الاستخدام العرضي	⭐⭐⭐⭐	⭐⭐
Kutools لـ Outlook	الاستخدام اليومي، المستخدمون غير التقنيين	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
ماكرو VBA	محبو الأتمتة، المستخدمون المتقدمون	⭐⭐⭐	⭐⭐⭐⭐

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