Tüm ekleri birden çok e-postadan yeni bir e-postaya kopyalayın

Tüm ekleri bir e-postadan yanıtlayan e-postaya kopyalayın

Bu makale, tüm ekleri birden çok e-postadan Outlook'taki yenisine hızla kopyalamak için bir VBA tanıtacaktır. Lütfen aşağıdaki işlemleri yapın:

1. Eklerini kopyalayacağınız birden fazla e-posta seçin ve Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.
not: Tutma Ctrl tuşu, tek tek tıklayarak birden çok bitişik olmayan e-postayı seçebilirsiniz; tutma vardiya tuşuna basarsanız, ilkini ve sonunu tıklayarak birden çok bitişik e-postayı seçebilirsiniz.

2. tıklayın Ekle > modülve ardından yeni Modül penceresine VBA kodunun altına yapıştırın.

VBA: Tüm ekleri birden çok e-postadan yenisine kopyalayın

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. Basın F5 tuşu veya koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

Artık tüm eklerin seçilen e-postalardan kopyalandığını ve yeni bir e-postaya yapıştırıldığını göreceksiniz.

Kutools for Outlook yüklüyse, uygulayabilirsiniz Ek ile yanıtla Outlook'taki yanıtlayan e-postaya bir e-postadaki tüm ekleri kolayca kopyalama özelliği. Lütfen aşağıdaki işlemleri yapın:

Cevaplayacağınız e-postayı seçin ve tıklayın Kutools > Ek ile yanıtla > Ek ile yanıtlayın. Ekran Bkz:

Artık tüm eklerin otomatik olarak yanıtlayan e-postaya kopyalandığını göreceksiniz.

Outlook'ta eki başka bir e-postaya nasıl kopyalayabilirim?