Копирайте всички прикачени файлове от множество имейли в нов имейл

Копирайте всички прикачени файлове от имейл в имейла за отговор

Тази статия ще представи VBA за бързо копиране на всички прикачени файлове от множество имейли в нов в Outlook. Моля, направете следното:

1. Изберете няколко имейла, чиито прикачени файлове ще копирате, и натиснете Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.
Забележка: Задържане Ctrl клавиш, можете да изберете множество несъседни имейли, като щракнете върху тях един по един; държане Превключване можете да изберете няколко съседни имейла, като щракнете върху първия и последния.

2. Щракнете Поставете > Модулии след това поставете под кода на VBA в новия прозорец на модула.

VBA: Копирайте всички прикачени файлове от няколко имейла в нов

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.

Сега ще видите, че всички прикачени файлове са копирани от избраните имейли и поставени в нов имейл.

Ако имате инсталиран Kutools за Outlook, можете да го приложите Отговорете с прикачен файл функция за лесно копиране на всички прикачени файлове от имейл в неговия имейл за отговор в Outlook. Моля, направете следното:

Изберете имейла, на който ще отговорите, и щракнете Kutools > Отговорете с прикачен файл > Отговорете с прикачен файл. Вижте екранна снимка:

Сега ще видите, че всички прикачени файлове се копират автоматично в имейла за отговор.

Как да копирате прикачен файл към друг имейл в Outlook?