كيفية نسخ جميع المرفقات من رسائل البريد الإلكتروني المتعددة إلى بريد إلكتروني جديد في 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" أو انقر على زر التشغيل لتنفيذ الكود. سيتم فتح بريد إلكتروني جديد يحتوي على جميع المرفقات المستخرجة من رسائل البريد الإلكتروني المحددة.
العيوب:
- ❌ يتطلب معرفة بـ VBA: غير مناسب للمبتدئين ويتضمن العمل مع الأكواد.
- ❌ يتطلب إعدادًا يدويًا: تحتاج إلى فتح محرر VBA وإدراج الكود وتشغيله في كل مرة.
- ❌ قيود أمان محتملة: بعض إصدارات Outlook تحظر الماكرو بسبب سياسات الأمان.
- ❌ لا يوجد مرونة: يجب إعادة تشغيل البرنامج النصي كلما احتجت إلى نسخ المرفقات مرة أخرى.
📂 حفظ المرفقات من رسائل البريد الإلكتروني المتعددة بسهولة
هل تعبت من حفظ المرفقات رسالة برسالة في Outlook؟ قم بتبسيط سير عملك باستخدام أدوات Kutools لـ Outlook! تتيح لك ميزة حفظ الكل (المرفقات) القوية حفظ المرفقات من رسائل البريد الإلكتروني المتعددة أو المجلدات بأكملها بنقرات قليلة فقط. وداعًا للعمليات اليدوية المملة، واستلم زمام صندوق الوارد الخاص بك بسهولة.
نسخ جميع المرفقات من بريد إلكتروني إلى رد البريد الإلكتروني فورًا باستخدام أداة رائعة 👍
للحصول على حل أبسط وأسرع، يمكنك استخدام ميزة الرد مع المرفق الأصلي في "أدوات Kutools لـ Outlook". تتيح لك هذه الطريقة نسخ جميع المرفقات من بريد إلكتروني مباشرة إلى بريد الرد بنقرة واحدة فقط - بدون الحاجة إلى VBA أو نسخ المرفقات يدويًا.
افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!
1. في عرض البريد، حدد البريد الإلكتروني الذي تريد الرد عليه. ثم انقر فوق "Kutools" > "رد مع المرفق الأصلي أو رد الكل مع المرفق الأصلي".
2. الآن، يتم نسخ جميع المرفقات من البريد الإلكتروني المحدد تلقائيًا إلى بريد الرد.
مزايا طريقة أدوات Kutools لـ Outlook:
- ✅ لا حاجة إلى النسخ أو اللصق اليدوي: يعمل فورًا بنقرة واحدة.
- ✅ لا حاجة إلى كتابة أكواد VBA: سهل الاستخدام وخالٍ من المتاعب.
- ✅ توفير الوقت: يقلل بشكل كبير الجهد مقارنة بالطرق اليدوية.
- ✅ متوافق مع جميع إصدارات Outlook: لا قيود على الماكرو أو تحذيرات الأمان.
مقالات ذات صلة
كيفية نسخ المرفق إلى بريد إلكتروني آخر في Outlook؟
أفضل أدوات إنتاجية أوفيس
أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...
👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!
افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!
