כיצד להדפיס את כל הקבצים המצורפים באחד או במספר הודעות דואר אלקטרוני ב-Outlook?

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

אנא שים לב שלב זה יפתח את הקובץ המצורף הנבחר וידפיס את הקובץ המצורף הנבחר בו זמנית.

כדי להדפיס קבצים מצורפים אחרים בהודעה זו, אנא חזור על שלבים 2 עד 4.

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

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

השתמשו כעת בגרסה החינמית של Kutools עבור Outlook הכוללת מעל 100 תכונות, כאשר 70+ תכונות זמינות בחינם לכל החיים!

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

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

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

2. ב-Outlook 2010 או גרסאות מאוחרות יותר, אנא לחץ על קובץ > הדפסה > אפשרויות הדפסה. ראה את צילום המסך הבא:

3. בתיבת הדו-שיח הדפסה, אנא סמן את הדפסת הקבצים המצורפים. הקבצים המצורפים יודפסו למדפסת ברירת המחדל בלבד אפשרות בחלק אפשרויות ההדפסה.

4. לחץ על כפתור ההדפסה.

5. בתיבת הדו-שיח פתיחת קובץ מצורף שתופיע, אנא לחץ על כפתור הפתיחה כדי להמשיך. (הערה: תיבת דו-שיח זו תופיע עבור כל קובץ מצורף בנפרד.)

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

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

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

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

2. לחץ יחדיו על מקשי Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

3. בחלון Microsoft Visual Basic for Applications, לחץ על כלים > הפניות. ואז סמן את אפשרות Microsoft Scripting Runtime כפי שמוצג להלן. לאחר שסיימת, לחץ על אישור.

4. לחץ על הוספה > מודול, ואז הדבק את הקוד VBA הבא לחלון המודול החדש.

VBA: הדפסת כל הקבצים המצורפים במספר הודעות דואר ב-Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. לחץ על מקש F5 או לחץ על כפתור הריצה כדי להריץ את קוד ה-VBA הזה. עכשיו תראה שכל הקבצים המצורפים בהודעות שנבחרו וכל התמונות בגוף ההודעה הודפסו.

הערה:

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

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

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

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

2. לחץ יחדיו על מקשי Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

3. בחלון Microsoft Visual Basic for Applications, לחץ על כלים > הפניות. ואז סמן את אפשרות Microsoft Scripting Runtime כפי שמוצג להלן. לאחר שסיימת, לחץ על אישור.

4. לחץ על הוספה > מודול, ואז הדבק את הקוד VBA הבא לחלון המודול החדש.

VBA: הדפסת כל הקבצים המצורפים במספר הודעות דואר ב-Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = 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

5. לחץ על מקש F5 או לחץ על כפתור הריצה כדי להריץ את קוד ה-VBA הזה. עכשיו תראה שכל הקבצים המצורפים בהודעות שנבחרו הודפסו.

הערה:

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

הדגמה: הדפסת קובץ אחד או כל הקבצים המצורפים בהודעת דואר ב-Outlook

---

כלי הפרודוקטיביות הטובים ביותר ל-Office

חדשות חמות: Kutools עבור Outlook משיק גרסה חינמית!

התנסו בגרסה החינמית החדשה של Kutools עבור Outlook עם יותר מ-70 תכונות מדהימות, לשימושכם לתמיד! לחצו להורדה עכשיו!

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

📧 אוטומציה של כתובת דואר אלקטרוני: תגובה אוטומטית (זמין עבור POP ו-IMAP) / תזמון שליחת כתובת דואר אלקטרוני / העתקה אוטומטית/עותק מוסתר לפי כלל בעת שליחת משלח אימייל / העברה אוטומטית (כלל מתקדם) / הוספת ברכה אוטומטית / פיצול אוטומטי של דואר אלקטרוני עם מספר נמענים להודעות נפרדות...

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

📁 קבצים מצורפים Pro: שמירה אצווה / פרידה אצווה / דחיסה אצווה / שמירה אוטומטית / נתק אוטומטית / דחיסה אוטומטית...

🌟 קסם הממשק: 😊עוד אימוגי יפים ומגניבים / קבלת תזכורת כאשר מגיע דואר אלקטרוני חשוב / מזעור Outlook במקום סגירה...

👍 פעולות בלחיצה אחת: השב לכולם עם קבצים מצורפים / דואר אלקטרוני נגד פישינג / 🕘הצגת אזור הזמן של השולח...

👩🏼‍🤝‍👩🏻 אנשי קשר ויומן: הוספת אנשי קשר מאצווה מתוך כתובת דואר אלקטרוני נבחרת / פיצול קבוצת אנשי קשר לקבוצות נפרדות / הסר תזכורת יומולדת...

פתחו מיד את Kutools עבור Outlook בלחיצה אחת. אל תחכו – הורידו עכשיו והגבירו את היעילות שלכם!

רשימת תכונות של Kutools עבור Outlook הורד גרסה חינמית שדרג לגרסה מקצועית