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

Author: Siluvia Last Modified: 2025-05-30

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

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

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

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

1. ראשית, עליך ליצור תיקייה לשמירת הקבצים המצורפים במחשב שלך.

כנס לתיקיית "מסמכים" וצור תיקייה בשם "קבצים מצורפים". ראה צילום מסך:

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

3. לחץ על "הוספה" > "מודול" כדי לפתוח את חלון "מודול", ולאחר מכן העתק אחד מהקודים הבאים של VBA לחלון.

קוד VBA 1: שמירה בכמות גדולה של קבצים מצורפים מרובות הודעות (שמירת קבצים בעלי שם זהה בדיוק)

הערה: קוד זה ישמור את כל הקבצים בעלי השם הזהה בדיוק על ידי הוספת הספרות 1, 2, 3... אחרי שמות הקבצים.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

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

קוד VBA 2: שמירה בכמות גדולה של קבצים מצורפים מרובות הודעות (בדיקת כפילויות)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

הערות:

1) אם ברצונך לשמור את כל הקבצים בעלי אותו השם בתיקייה, אנא השתמש בקוד "VBA code 1" לעיל. לפני הרצת הקוד, אנא לחץ על "כלים" > "הפניות", ולאחר מכן סמן את התיבה "Microsoft Scripting Runtime" בחלון הדו-שיח "הפניות - פרויקט".

2) אם ברצונך לבדוק עבור שמות קבצים מצורפים כפולים, אנא השתמש בקוד "VBA code 2". לאחר הרצת הקוד, יופיע דו-שיח שיאתר אותך האם להחליף את הקבצים המצורפים הכפולים, בחר "כן" או "לא" בהתאם לצרכים שלך.

5. לחץ על מקש "F5" כדי להריץ את הקוד.

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

הערות: עשוי להופיע תיבת אזהרה של "Microsoft Outlook", אנא לחץ על הכפתור "אפשר" כדי להמשיך.

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

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

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

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

הערה: באפשרותך לבחור מספר הודעות לא סמוכות על ידי החזקת מקש "Ctrl" ובבחירתן אחת אחרי השנייה;
או לבחור מספר הודעות סמוכות על ידי החזקת מקש "Shift" ובבחירת ההודעה הראשונה והאחרונה.

2. לחץ על "Kutools Plus" > "כלי קבצים מצורפים" > "שמור הכל". ראה צילום מסך:

3. בדו-שיח "הגדרות שמירה", לחץ על כפתור כדי לבחור תיקייה לשמירת הקבצים המצורפים, ולאחר מכן לחץ על כפתור "אישור".

save attachments by kutools for outlook 1

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

הערות:

1. אם ברצונך לשמור קבצים מצורפים בתיקיות שונות בהתבסס על הודעות דוא"ל, אנא סמן את התיבה "צור תת תיקיות בסגנון הבא", ובחר סגנון תיקייה מהתפריט הנפתח.
2. בנוסף לשמירת כל הקבצים המצורפים, באפשרותך לשמור קבצים מצורפים לפי תנאים מסוימים. למשל, אם ברצונך לשמור רק את קבצי ה-PDF ששם הקובץ שלהם מכיל את המילה "חשבונית", אנא לחץ על כפתור "אפשרויות מתקדמות" כדי להרחיב את התנאים, ולאחר מכן הגדר כפי שמוצג להלן.
3. אם ברצונך לשמור באופן אוטומטי קבצים מצורפים כאשר הודעות מגיעות, תכונת שמירת קבצים מצורפים אוטומטית יכולה לעזור.
4. כדי לנתק את הקבצים המצורפים ישירות מההודעות שנבחרו, תכונת נתק את כל הקבצים המצורפים של "Kutools עבור Outlook" יכולה לעזור.

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

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

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

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

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

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