Másolja az összes mellékletet több e-mailből egy új e-mailbe

Másolja az összes mellékletet egy e-mailből a válaszoló e-mailbe

Ez a cikk bemutatja a VBA-t, amely az összes mellékletet gyorsan másolja több e-mailből egy újba az Outlookban. Kérjük, tegye a következőket:

1. Válasszon ki több e-mailt, amelyek mellékletét átmásolja, majd nyomja meg az gombot más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.
Megjegyzések: Tartás Ctrl gombot, kiválaszthat több nem szomszédos e-mailt úgy, hogy egyesével rájuk kattint; holding műszak gombot, kiválaszthat több szomszédos e-mailt az elsőre és az utolsóra kattintva.

2. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új modul ablakba.

VBA: Másolja az összes mellékletet több e-mailből egy újba

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. nyomja meg F5 vagy a futás gombra a VBA futtatásához.

Most látni fogja, hogy az összes mellékletet átmásolja a kiválasztott e-mailekből, és beilleszti egy új e-mailbe.

Ha telepítette a Kutools for Outlook programot, alkalmazhatja Válaszoljon a Csatolással funkcióval könnyedén átmásolhatja az összes mellékletet egy e-mailből az Outlook válaszoló e-mailjébe. Kérjük, tegye a következőket:

Válassza ki azt az e-mailt, amelyre válaszolni fog, majd kattintson a gombra Kutools > Válaszoljon a Csatolással > Válaszoljon a Csatolással. Lásd screenshot:

Most látni fogja, hogy az összes melléklet automatikusan másolódik a válaszoló e-mailbe.

Hogyan lehet másolni a mellékletet egy másik e-mailbe az Outlook programban?