Αντιγράψτε όλα τα συνημμένα από πολλά email σε ένα νέο email

Αντιγράψτε όλα τα συνημμένα από ένα email στο email απάντησής του

Αυτό το άρθρο θα εισαγάγει ένα VBA για γρήγορη αντιγραφή όλων των συνημμένων από πολλά email σε ένα νέο στο Outlook. Κάντε τα εξής:

1. Επιλέξτε πολλά email των οποίων τα συνημμένα θα αντιγράψετε και πατήστε άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
Note: Κράτημα Ctrl κλειδί, μπορείτε να επιλέξετε πολλαπλά μηνύματα δίπλα σε ένα, κάνοντας κλικ σε αυτά ένα προς ένα. κράτημα αλλαγή κλειδί, μπορείτε να επιλέξετε πολλά παρακείμενα μηνύματα ηλεκτρονικού ταχυδρομείου κάνοντας κλικ στο πρώτο και στο τελευταίο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο Module.

VBA: Αντιγράψτε όλα τα συνημμένα από πολλά email σε ένα νέο

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. Τύπος F5 κλειδί ή το τρέξιμο για να εκτελέσετε αυτό το VBA.

Τώρα θα δείτε ότι όλα τα συνημμένα αντιγράφονται από τα επιλεγμένα email και επικολλούνται σε ένα νέο email.

Εάν έχετε εγκαταστήσει το Kutools για Outlook, μπορείτε να το εφαρμόσετε Απάντηση με συνημμένο δυνατότητα για εύκολη αντιγραφή όλων των συνημμένων από ένα email στο απαντητικό του email στο Outlook. Παρακαλούμε κάντε τα εξής:

Επιλέξτε το email που θα απαντήσετε και κάντε κλικ Kutools > Απάντηση με συνημμένο > Απάντηση με Συνημμένο. Δείτε screenshot:

Τώρα θα δείτε ότι όλα τα συνημμένα αντιγράφονται αυτόματα στο απαντητικό email.

Πώς να αντιγράψετε συνημμένο σε άλλο email στο Outlook;