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

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

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

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

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

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

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

في Outlook، حدد رسائل البريد الإلكتروني التي تحتوي على المرفقات التي تريد نسخها.

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

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

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

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

انقر على "إدراج" > "وحدة" لإنشاء وحدة جديدة. والصق الكود التالي لـ 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" أو انقر على زر التشغيل لتنفيذ الكود. ستفتح رسالة بريد إلكتروني جديدة تحتوي على جميع المرفقات المستخرجة من رسائل البريد الإلكتروني المختارة.

---

📂 حفظ المرفقات من رسائل البريد الإلكتروني المتعددة بسهولة

هل تشعر بالملل من حفظ المرفقات واحدة تلو الأخرى في Outlook؟ قم بتبسيط سير عملك باستخدام أدوات Kutools لـ Outlook! تتيح لك ميزة حفظ الكل (المرفقات) القوية حفظ المرفقات من رسائل البريد الإلكتروني المتعددة أو المجلدات بأكملها بنقرات قليلة فقط. وداعًا للعمليات اليدوية المملة، وتحكم في بريدك الوارد بسهولة.

تحميل أدوات Kutools لـ Outlook الآن

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

للحصول على حل أبسط وأسرع، يمكنك استخدام ميزة الرد بالمرفق الأصلي في "أدوات Kutools لـ Outlook". تتيح لك هذه الطريقة نسخ جميع المرفقات من بريد إلكتروني مباشرةً إلى بريد الرد بنقرة واحدة فقط - بدون الحاجة إلى VBA أو نسخ المرفقات يدويًا.

1. في عرض البريد، حدد البريد الإلكتروني الذي تريد الرد عليه. ثم انقر على "Kutools" > "رد مع المرفق الأصلي أو رد الكل مع المرفق الأصلي".

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

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

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

---

أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة