Zkopírujte všechny přílohy z více e-mailů do nového e-mailu

Zkopírujte všechny přílohy z e-mailu do jeho e-mailu, který odpovídá

Tento článek představí VBA pro rychlé kopírování všech příloh z více e-mailů do nové v aplikaci Outlook. Postupujte prosím následovně:

1. Vyberte více e-mailů, jejichž přílohy zkopírujete, a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.
Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících e-mailů kliknutím na jeden po druhém; podíl směna můžete vybrat více sousedních e-mailů kliknutím na první a poslední.

2, klikněte Vložit > Modula poté vložte do nového okna modulu pod kód VBA.

VBA: Zkopírujte všechny přílohy z více e-mailů do nového

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. lis F5 nebo klávesu Běh tlačítko pro spuštění tohoto VBA.

Nyní uvidíte, že všechny přílohy jsou zkopírovány z vybraných e-mailů a vloženy do nového e-mailu.

Pokud máte nainstalovaný program Kutools pro aplikaci Outlook, můžete jej použít Odpovězte s přílohou funkce pro snadné zkopírování všech příloh z e-mailu do odpovědního e-mailu v aplikaci Outlook. Postupujte prosím následovně:

Vyberte e-mail, na který odpovíte, a klikněte Kutools > Odpovězte s přílohou > Odpovězte přílohou. Viz obrázek:

Nyní uvidíte, že všechny přílohy se automaticky zkopírují do e-mailu s odpovědí.

Jak zkopírovat přílohu do jiného e-mailu v aplikaci Outlook?