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

يمكن أن تكون إدارة مرفقات البريد الإلكتروني في Outlook أمرًا صعبًا، خاصةً عند الحاجة إلى استخراج المرفقات من رسائل بريد إلكتروني متعددة وتوحيدها في رسالة جديدة أو نسخ جميع المرفقات من رسالة بريد إلكتروني إلى رد. فحفظ الملفات وإعادة إرفاقها يدويًّا ليس فقط يستغرق وقتًا طويلاً، بل هو أيضًا عرضة للأخطاء. لحسن الحظ، هناك طريقتان فعالتان لتبسيط هذه المهمة: يمكنك استخدامVBA لاستخراج وإدراج مرفقات من رسائل بريد إلكتروني متعددة في رسالة جديدة، رغم أنه يتطلب بعض المعرفة التقنية. ومع ذلك، وللحصول على حل أسرع وخالٍ من المتاعب، توفر أداةKutools لـ Outlookخيارًا بنقرة واحدة لنسخ جميع المرفقات من رسالة بريد إلكتروني إلى رسالة الرد فورًا، مما يجعلها الخيار الأكثر كفاءة وسهولة في الاستخدام.

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

نسخ جميع المرفقات من رسالة بريد إلكتروني إلى رسالة رد فورًا باستخدام أداة رائعة 👍(بدون جهد ومُوصى به)

---

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

إذا كنت تفضل استخدام VBA لأتمتة هذه العملية، فاتبع الخطوات التالية لاستخراج ونسخ جميع المرفقات من رسائل بريد إلكتروني متعددة وإنشاء رسالة بريد إلكتروني جديدة بسرعة.

الخطوة 1: تحديد رسائل بريد إلكتروني متعددة

في Outlook، اختر الرسائل الإلكترونية التي تتضمّن المرفقات التي ترغب في نسخها.

• اضغط باستمرار على مفتاح «Ctrl» لتحديد عدة رسائل بريد إلكتروني غير متجاورة.
• اضغط مع الاستمرار على مفتاح «Shift» لتحديد نطاق من الرسائل الإلكترونية المتجاورة.

الخطوة 2: فتح محرر VBA

اضغط «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

الخطوة 3: إدراج كود VBA في وحدة جديدة

انقر «Insert» > «Module» لإنشاء وحدة جديدة، ثم الصق كود 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

الخطوة 4: تشغيل كود VBA

اضغط "F5" أو انقر على زر التشغيل لتنفيذ الكود. وسيتم فتح نافذة إنشاء بريد إلكتروني جديد تحتوي على جميع المرفقات المستخرجة من الرسائل الإلكترونية المحددة.

---

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

لحلٍّ أبسط وأسرع، استخدم ميزة «الرد مع المرفق الأصلي» في «Kutools لـ Outlook»، والتي تتيح لك نسخ جميع المرفقات من رسالة البريد الإلكتروني مباشرةً إلى رسالة الرد بنقرة واحدة—بدون الحاجة إلى VBA أو النسخ اليدوي للمرفقات.

1. في طريقة عرض البريد، حدد الرسالة الإلكترونية التي تريد الرد عليها، ثم انقر على «Kutools» > «الرد مع المرفق الأصلي» أو «الرد على الكل مع المرفق الأصلي».

2. الآن، تمت عملية نسخ جميع المرفقات من الرسالة الإلكترونية المحددة تلقائيًّا إلى رسالة الرد.

---

مقالات ذات صلة

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