Skip to main content

כיצד לשמור קבצים מצורפים מבלי לפתוח את הדוא"ל ב-Outlook?

Author: Siluvia Last Modified: 2025-05-30

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

שמירת קבצים מצורפים מודעה אחת או יותר מבלי לפתוח עם קוד VBA
שמירת קבצים מצורפים מודעה אחת או יותר מבלי לפתוח עם כלי מדהים


שמירת קבצים מצורפים מודעה אחת או יותר מבלי לפתוח עם קוד VBA

הקוד VBA הבא יכול לעזור לשמור קבצים מצורפים מודעה אחת או יותר בו-זמנית מבלי לפתוח את הודעות הדוא"ל ב-Outlook. אנא עשו כמפורט להלן.

1. בחרו הודעה או מספר הודעות בהן תרצו לשמור את הקבצים המצורפים, לחצו על המקשים Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. הרחיבו את תיקיית אובייקטי Microsoft Outlook, הקליקו פעמיים על ThisOutlookSession כדי לפתוח את חלון הקוד, ולאחר מכן העתיקו את הקוד VBA הבא לתוכו.

save attachments with VBA 1

קוד VBA: שמירת קבצים מצורפים מבלי לפתוח את הודעות הדוא"ל

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. לחצו על מקש F5 כדי להריץ את הקוד. לאחר מכן יופיע חלון BrowseForFolder, אנא בחרו תיקייה לשמירת הקבצים המצורפים, ולאחר מכן לחצו על הכפתור אישור.

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

הערה: כל הקבצים המצורפים ינתקו מההודעות וישארו עם קישורים נתיבי שמירה מתאימים בגוף ההודעה.

save attachments with VBA 2

שמירת קבצים מצורפים מודעה אחת או יותר מבלי לפתוח עם כלי מדהים

אם אתם חדשים בשימוש ב-VBA, השיטה בחלק זה תהיה הבחירה הטובה עבורכם.

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

פתחו את היעילות המירבית של הדואר האלקטרוני עם Kutools עבור Outlook! גשו ל-70 תכונות חזקות לגמרי בחינם, לנצח. הורידו את הגרסה المجانية עכשיו!

1. בחרו את ההודעות המכילות את הקבצים המצורפים שתרצו לשמור, לחצו על Kutools Plus > כלי קבצים מצורפים > שמור הכל.

2. בחלון הגדרות השמירה, עליכם לבצע את הפעולות הבאות:

  • 2.1) בתוך הסעיף שמור קבצים מצורפים לתיקייה זו, בחרו תיקייה לשמירת הקבצים המצורפים;
  • 2.2) תיבת סגנון השמירה למטה היא אופציונלית עבורכם ליצור תת-תיקייה בסגנון מסוים לשמירת הקבצים המצורפים, או לשנות את שמות הקבצים המצורפים עם סגנון מסוים.
  • 2.3) לחצו על אישור כדי להתחיל לשמור את כל הקבצים המצורפים מההודעות שנבחרו.

טיפים: עם התצורה לעיל, כל הקבצים המצורפים יישמרו לתיקייה שצוינה. אם ברצונכם לשמור רק קבצים מסוימים, כגון רק קבצי PDF עם המילה "חשבונית" בשם הקובץ, תוכלו להגדיר את תנאי הסינון כדלקמן.  

  • לחצו על כפתור אפשרויות מתקדמות כדי להרחיב את תנאי הסינון;
  • הגדרו את התנאים בהתאם לצרכים שלכם.
    טיפים: כאן אני מסמן את שם קובץ מצורף תיבת מכילה ואז מקלידים "חשבונית" לתוך תיבת הטקסט, לאחר מכן מסמנים את סוג הקובץ המצורף הוא תיבת סוג הקובץ, מקלידים ".pdf" לתוך תיבת הטקסט.
save attachments with kutools 2

3. בחלון הדו-שיח הבא שיופיע, לחצו על כן כדי להמשיך.

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

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


מאמרים קשורים

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

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

חיפוש מילים בתוך קובץ מצורף (תוכן) ב-Outlook
כאשר אנו מקלידים מילת מפתח בתיבת החיפוש המיידי ב-Outlook, הוא יחפש את המפתח בנושאי הודעות הדוא"ל, בגופים, בקבצים מצורפים וכו'. אבל עכשיו אני צריך לחפש את המפתח רק בתוכן הקובץ המצורף ב-Outlook, יש רעיון? מאמר זה מציג את השלבים המפורטים לחיפוש מילים בתוך תוכן קובץ מצורף ב-Outlook בקלות.