טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

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

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

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

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


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

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

Kutools עבור Outlook: עם יותר מ 40 שימושי תוספות Outlook, ללא תשלום כדי לנסות ללא הגבלה 45 ימים. הורד ניסיון ללא תשלום עכשיו!

Kutools עבור Outlook: 100 + כלים מתקדמים חדשים עבור Outlook.
הכרטיסייה 'משרד': אפשר עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי: הבא תפריטים ישנים סרגלי כלים חזרה אל 2007, 2010, 2013, 2016 ו- 2019.

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

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

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

3. לאחר מכן לחץ על הַבלָעָה > מודול לפתוח את מודול ולאחר מכן להעתיק ולהדביק את קוד ה- VBA הבא לחלון.

קוד VBA לשמירת קבצים מצורפים

Public Sub SaveAttachments()
'Update 20141121
	Dim objOL As Outlook.Application
	Dim objMsg As Outlook.MailItem
	Dim objAttachments As Outlook.Attachments
	Dim objSelection As Outlook.Selection
	Dim i As Long
	Dim lngCount As Long
	Dim strFile As String
	Dim strFolderpath As String
	Dim strDeletedFiles As String
	strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
	Set objOL = CreateObject("Outlook.Application")
	Set objSelection = objOL.ActiveExplorer.Selection
	strFolderpath = strFolderpath & "\Attachments\"
	For Each objMsg In objSelection
		Set objAttachments = objMsg.Attachments
		lngCount = objAttachments.Count
		strDeletedFiles = ""
		If lngCount > 0 Then
			For i = lngCount To 1 Step -1
				strFile = objAttachments.Item(i).FileName
				strFile = strFolderpath & strFile
				objAttachments.Item(i).SaveAsFile strFile
'objAttachments.Item(i).Delete()
				If objMsg.BodyFormat <> olFormatHTML Then
					strDeletedFiles = strDeletedFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
				Else
					strDeletedFiles = strDeletedFiles & "<br>" & "<a href='file://" & _
					strFile & "'>" & strFile & "</a>"
				End If
				Next i
				If objMsg.BodyFormat <> olFormatHTML Then
					objMsg.Body = vbCrLf & "The file(s) were saved to " & strDeletedFiles & vbCrLf & objMsg.Body
				Else
					objMsg.HTMLBody = "<p>" & "The file(s) were saved to " & strDeletedFiles & "</p>" & objMsg.HTMLBody
				End If
				objMsg.Save
			End If
		Next
		ExitSub:
		Set objAttachments = Nothing
		Set objMsg = Nothing
		Set objSelection = Nothing
		Set objOL = Nothing
	End Sub

הערות: קוד VBA זה יסיר לצמיתות את הקובץ המצורף מהאימייל.

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

5. לחזור ל Microsoft Visual Basic עבור יישומים חלון, ולחץ על כדי להפעיל את הקוד.

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

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


שמור את כל הקבצים המצורפים מיילים מרובים לתיקייה עם Kutools עבור Outlook (רק כמה קליקים)

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

Kutools עבור Outlook : עם יותר מ 20 שימושי Outlook תוספות, חופשי לנסות ללא הגבלה 45 ימים.

1. להיכנס לתיקיית הדוא"ל ובחר את מספר הודעות דוא"ל עם קבצים מצורפים ברשימת הדואר על ידי החזקת Ctrl מַפְתֵחַ.

2. לאחר מכן לחץ על Kutools > ניתוק הכל. ראה צילום מסך:

3. ואז א בחר תיקייה תיבת הדו שיח קופץ, אנא לחץ על לְדַפדֵף כדי לבחור תיקיה כדי לשמור את הקבצים המצורפים מנותקים, לבדוק את יצירת תיקיות משנה הוא בסגנון הבא ולאחר מכן ציין סגנון תיקייה מהרשימה הנפתחת. לבסוף לחץ על OK לַחְצָן. ראה צילום מסך:

4. בפתיחה ניתוק הכל תיבת הדו שיח, אנא לחץ על יש לַחְצָן.

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

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


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

Kutools עבור Outlook כולל 20 + תכונות וכלים רבי עוצמה עבור Microsoft Outlook. חינם ללא הגבלה ב- 45 ימים. הורד את גרסת הניסיון בחינם עכשיו!


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



Kutools עבור Outlook

יותר מ 100 פונקציות מתקדמות עבור Outlook 2010, 2013, 2016, 2019 ו- 365

צילומי מסך עבור. עבור באנר

תכונות נוספות | הורדה חינמית | רק 39.00 $ עבור מאות פונקציות

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brian · 1 years ago
    This is what the code is at now, and it does save all the attachments, but it only adds text to the first message. Can anyone help me with this?

    Public Sub SaveAttachments()
    'Update 20170523
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim I As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Set objOL = CreateObject("Outlook.Application")
    Set objSelection = objOL.ActiveExplorer.Selection
    strFolderpath = "C:\Users\brianp\Documents\Attachments\"
    For Each objMsg In objSelection
    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    'Use this to test MsgBox "Subject = " & objMsg.Subject & " lngCount = " & objAttachments.Count
    If lngCount > 0 Then
    For I = lngCount To 1 Step -1
    strFile = objAttachments.Item(I).FileName
    strFile = strFolderpath & strFile
    objAttachments.Item(I).SaveAsFile strFile
    Next I
    End If
    If objMsg.BodyFormat olFormatHTML Then
    objMsg.Body = vbCrLf & "The Attached file(s) were saved to " & "" & strFile & "" & vbCrLf & objMsg.Body
    Else
    objMsg.HTMLBody = "" & "The Attached file(s) were saved to " & "" & strFile & "" & "" & objMsg.HTMLBody
    End If
    Next
    ExitSub:
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    Brian · 1 years ago
    I can get this to run but how and the objSelection.Count is 2 but it will only save the attachments on the first email.
  • To post as a guest, your comment is unpublished.
    Atron Seige · 2 years ago
    Thanks! This saved me a lot of time and frustration!
  • To post as a guest, your comment is unpublished.
    Josh Fernandez · 2 years ago
    Works great with no problems! Thanks. Saved me a bunch of time!

    Thanks,

    Josh
  • To post as a guest, your comment is unpublished.
    Sathish · 2 years ago
    How to remove the "The file(s) were saved to" which is showing below.....