3 דרכים להוריד את כל הקבצים המצורפים מ-Outlook

עברו על המדריך הזה כדי ללמוד את כל הדרכים

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

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

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

איך אני מוריד את כל הקבצים המצורפים ממייל?

1. שימוש באפליקציית שולחן העבודה

1. הפעל את Microsoft Outlook אפליקציה במחשב Windows שלך.
2. חפש ופתח את האימייל הזה בחלונית הקריאה שממנה אתה מוריד את הקבצים המצורפים.
3. עבור אל קבצים מצורפים בשורת התפריטים העליונה, לחץ לחיצה ימנית על אחד מהקבצים המצורפים בחלק הימני ובחר שמור את כל הקבצים המצורפים בתפריט הנפתח.
instagram story viewer
4. הקש על Ctrl מקש ובחר את כל הקבצים המצורפים שברצונך להוריד בתיבת הדו-שיח הקטנה שנפתחת.
5. הקש על בסדר לאחר בחירת הקבצים המצורפים הדרושים.
6. חדש שמור כ ייפתח חלון קופץ כדי לשמור את הקבצים המצורפים שלך. דפדף לתיקיה שבה ברצונך לשמור את הקבצים המצורפים ולחץ על בסדר לחצן בצד ימין למטה כדי להתחיל את הורדת הקובץ המצורף.

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

2. שימוש באפליקציית האינטרנט

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

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

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

הערה

אתה יכול לנסות שיטה זו רק אם אתה משתמש ב-Outlook 2019, 2016, 2013, 2010, 2007 או 2003.

1. צור תיקייה חדשה

1. להשתמש ב חלונות + ה קיצור דרך להפעלה סייר קבצים.
2. נווט אל מסמכים תיקיה מהסרגל הצד השמאלי.
3. לחץ לחיצה ימנית במקום כלשהו בחלק הימני ובחר חָדָשׁ בא אחריו תיקיה מתפריט ההקשר.
4. לחץ פעמיים על שם התיקיה ושנה את שמה ל קבצים מצורפים.

2. צור סקריפט VBA

1. כעת הפעל את אפליקציית Outlook במחשב Windows שלך.
2. בחר את קוֹבֶץ אפשרות ולאחר מכן בחר אפשרויות מהסרגל הצד השמאלי.
3. בחר התאמה אישית של סרט מהפאנל השמאלי של אפשרויות מילים חַלוֹן.
4. בחר את מפתח אפשרות ב- כרטיסיות ראשיות ולחץ על ועוד סמל כדי להוסיף מצב מפתחים לתפריט רצועת הכלים של Outlook.
5. סגור את החלון הקופץ 'אפשרויות Word' ולאחר מכן בחר מצב מפתח בא אחריו ויז'ואל בייסיק מהתפריט הראשי.
6. בחר פרוייקט 1 מוצג כברירת מחדל ולאחר מכן בחר לְהַכנִיס בא אחריו מודול כדי לגשת לחלון המודול.
7. כעת העתק והדבק את הקוד הבא לתוך מודול מספר 1 ולסגור את החלון.

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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" 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

3. הפעל את סקריפט VBS

1. עבור אל מצב מפתח ולאחר מכן בחר ויז'ואל בייסיק מהסרט של Outlook.
2. בחר מודול מספר 1 ופגע ב F5 מפתח להפעלת הקוד.
3. לחץ על שמור את הקובץ המצורף לאחר בחירת הקבצים המצורפים כדי לאשר את הפעולה.

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

זה הכל במדריך הזה! מקווה שאתה מודע לדרכים השונות שבהן תוכל להוריד בקלות את כל קבצי הדוא"ל המצורפים מאפליקציית Microsoft Outlook.

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

אם יש לך שאלות, או שאתה יודע על שיטות אחרות, הודע לנו בסעיף ההערות.