Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να αποθηκεύσετε όλα τα συνημμένα από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε φάκελο στο Outlook;

Ως συνήθως, όταν λαμβάνετε μηνύματα με πολλά συνημμένα και θέλετε να αποθηκεύσετε αυτά τα συνημμένα σε ένα συγκεκριμένο φάκελο, θα πρέπει να τα αποθηκεύσετε ένα προς ένα με ορισμένες ενοχλητικές λειτουργίες. Θέλετε να απαλλαγείτε από τις χρονοβόρες λειτουργίες και να αποθηκεύσετε άμεσα τα πολλαπλά συνημμένα ταυτόχρονα; Δείτε τα παρακάτω μαθήματα.

Αποθηκεύστε όλα τα συνημμένα από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε φάκελο με κώδικα VBA

Αρκετά κλικ για να αποθηκεύσετε όλα τα συνημμένα από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε φάκελο με το Kutools για Outlook


Αποθηκεύστε εύκολα όλα τα συνημμένα από πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου σε φάκελο:

Με την Αποσυνδέστε όλα τα συνημμένα χρησιμότητα του Kutools για το Excel, μπορείτε να αποθηκεύσετε εύκολα όλα τα συνημμένα από πολλαπλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου σε συγκεκριμένο φάκελο στο Outlook όπως παρουσιάστηκε παρακάτω.

Kutools για το Outlook: με περισσότερα από 40 εύχρηστα πρόσθετα του Outlook, δωρεάν να δοκιμάσετε χωρίς περιορισμούς σε 45 ημέρες. Λήψη και δοκιμή δωρεάν τώρα!

Kutools για το Outlook: 100 + Νέα προηγμένα εργαλεία για το Outlook.
Καρτέλα Office: Ενεργοποίηση επεξεργασίας καρτελών και περιήγησης στο Office, Ακριβώς όπως Chrome, Firefox, IE 8 / 9 / 10.
Κλασικό μενού: Φέρτε πίσω παλιά μενού και γραμμές εργαλείων σε Office 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

Note: Αυτός ο κώδικας VBA θα καταργήσει οριστικά το συνημμένο από το μήνυμα ηλεκτρονικού ταχυδρομείου.

4. Παω σε Outlook Mail για να επιλέξετε τα μηνύματα ηλεκτρονικού ταχυδρομείου με συνημμένα που θέλετε να αποθηκεύσετε τα συνημμένα.

5. Επιστροφή στο Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο για να εκτελέσετε τον κώδικα.

6. Όταν εμφανιστεί ένα πλαίσιο προτροπής, κάντε κλικ στην επιλογή Επιτρέψτε για να αποθηκεύσετε το συνημμένο. Note: Οι συχνότητες εμφάνισης του κουμπιού προτροπής εξαρτώνται από τον αριθμό των μηνυμάτων ηλεκτρονικού ταχυδρομείου που έχετε επιλέξει. Εάν έχετε επιλέξει δύο μηνύματα ηλεκτρονικού ταχυδρομείου με συνημμένα, το πλαίσιο προτροπής θα εμφανιστεί δύο φορές και πρέπει να κάνετε κλικ Επιτρέψτε δύο φορές για να ολοκληρώσετε όλες τις εξοικονομήσεις.

7. Αφού ολοκληρώσετε όλες τις οικονομίες, θα δείτε το αποτέλεσμα όπως φαίνεται στα παρακάτω screenshots. Μπορείτε να βρείτε τα αποθηκευμένα συνημμένα σύμφωνα με τη διαδρομή αποθήκευσης ή να ανοίξετε απευθείας το συνημμένο απλά κάνοντας κλικ στη διαδρομή αποθήκευσης.


Αποθηκεύστε όλα τα συνημμένα από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε φάκελο με το 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

πυροβολισμό οθόνης kutools για προοπτική μικροσκοπικό για banner 201812

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 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.....