انسخ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى بريد إلكتروني جديد

انسخ جميع المرفقات من رسالة بريد إلكتروني إلى بريدها الإلكتروني للرد

ستقدم هذه المقالة VBA لنسخ جميع المرفقات بسرعة من رسائل بريد إلكتروني متعددة إلى واحدة جديدة في Outlook. الرجاء القيام بما يلي:

1. حدد عدة رسائل بريد إلكتروني سوف تنسخ مرفقاتها ، واضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
ملاحظات: تحتجز CTRL المفتاح ، يمكنك تحديد عدة رسائل بريد إلكتروني غير متجاورة بالنقر فوقها واحدة تلو الأخرى ؛ تحتجز تغير مفتاح ، يمكنك تحديد عدة رسائل بريد إلكتروني متجاورة بالنقر فوق الأول والأخير.

2. انقر إدراج > وحدة، ثم قم بلصق كود فبا أدناه في نافذة الوحدة النمطية الجديدة.

فبا: انسخ جميع المرفقات من رسائل بريد إلكتروني متعددة إلى واحدة جديدة

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 for Outlook مثبتًا ، فيمكنك تطبيقه الرد مع إرفاق ميزة لنسخ كافة المرفقات بسهولة من رسالة بريد إلكتروني إلى بريد الرد الإلكتروني في Outlook. يرجى القيام بما يلي:

حدد البريد الإلكتروني الذي ستقوم بالرد عليه، وانقر فوق كوتولس > الرد مع إرفاق > الرد بالمرفق. انظر لقطة الشاشة:

سترى الآن أنه تم نسخ كافة المرفقات إلى البريد الإلكتروني الرد تلقائيًا.

كيف تنسخ المرفق إلى بريد إلكتروني آخر في Outlook؟