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

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

سنوضح لك في هذا البرنامج التعليمي كيفية تنزيل جميع المرفقات من Outlook .

كيفية تنزيل جميع مرفقات البريد الإلكتروني في Microsoft Outlook(Microsoft Outlook Email Attachments) مرة واحدة(Once) على نظام Windows(Windows)

لتنزيل جميع المرفقات مرة واحدة باستخدام تطبيق Windows Microsoft Outlook ، قم بما يلي:

  1. افتح Outlook وقم بتسجيل الدخول إلى ملف تعريف Outlook الخاص بك .
  2. حدد البريد الإلكتروني الذي يحتوي على مرفقات Outlook المطلوبة .
  3. انقر بزر الماوس الأيمن فوق أي من الملفات المرفقة وحدد حفظ(Save) جميع المرفقات في القائمة المنسدلة. إذا كنت تريد حفظ ملف واحد فقط، فحدد حفظ باسم(Save As) .

  1. في مربع الحوار الجديد، اضغط باستمرار على المفتاح CTRL على لوحة المفاتيح وحدد كافة المرفقات التي تريد تنزيلها. انقر فوق موافق(Click OK) .

  1. حدد الموقع الذي ترغب في حفظ الملفات فيه واضغط على زر موافق.

كيفية تنزيل جميع مرفقات البريد الإلكتروني في Microsoft Outlook(Microsoft Outlook Email Attachments) مرة واحدة(Once) على نظام Mac(Mac)

فيما يلي كيفية تنزيل كافة المرفقات باستخدام Outlook لنظام التشغيل Mac :

  1. افتح تطبيق مايكروسوفت أوتلوك.
  2. حدد رسالة البريد الإلكتروني(Email) التي تحتوي على مرفقاتك.
  3. انقر(Click) فوق المرفقات(Attachments) وحدد تنزيل الكل(Download All) .

  1. حدد الموقع الذي ترغب في حفظ مرفقاتك فيه، ثم حدد اختيار(Choose) .

كيفية تنزيل مرفقات Outlook المتعددة(Download Multiple Outlook Attachments) من رسائل البريد الإلكتروني المتعددة(Multiple Emails)

من الممكن أيضًا تنزيل مرفقات متعددة من العديد من رسائل البريد الإلكتروني مرة واحدة. لنفعل ذلك:

استخدم كود VBA

إذا كنت تستخدم Outlook 2019 أو 2016 أو 2013 أو 2010 أو 2007 أو 2003، فيمكنك استخدام محرر VBA(VBA editor) لتنزيل مرفقات متعددة من رسائل بريد إلكتروني متعددة.

  1. افتح مجلد المستندات وأنشئ مجلدًا جديدًا باسم "المرفقات". هذا هو المكان الذي سيتم تنزيل المرفقات الخاصة بك إليه.
  2. افتح مايكروسوفت أوتلوك.
  3. اضغط على(Press) مفتاحي Alt و F11 على(Alt) لوحة المفاتيح لفتح محرر VBA .
  4. انقر بزر الماوس الأيمن Microsoft Outlook Object > Insert > Insert Module .

  1. انسخ الكود التالي في المحرر ثم اضغط على Enter:

خافت GCount كعدد صحيح

خافت GFilepath كسلسلة

حفظ المرفقات الفرعية العامة ()

"تحديث 20200821

تعتيم xMailItem كـ Outlook.MailItem

تعتيم(Dim) xAttachments مثل Outlook.Attachments

تعتيم(Dim) xSelection مثل Outlook.Selection

خافت ط طالما

خافت xAttCount طالما

خافت(Dim) xFilePath كسلسلة(String) ، xFolderPath كسلسلة ، xSaveFiles (String)كسلسلة(String)

خطأ في الصفحة، إذهب للتالي

xFolderPath = CreateObject ("WScript.Shell").SpecialFolders(16)

قم بتعيين(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath و"المرفقات"

إذا كان VBA.Dir ( xFolderPath , vbDirectory) = vbNullString إذن

VBA.MkDir xFolderPath

إنهاء إذا

غفيليباث = ""

لكل xMailItem في xSelection

قم بتعيين(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = ""

إذا كان xAttCount> 0 ثم

لأني = xAttCount إلى 1 الخطوة(Step) -1

عدد الجي = 0

xFilePath = xFolderPath & xAttachments.Item (i).اسم الملف

GFilepath = xFilePath

xFilePath = FileRename (xFilePath)

إذا كان IsEmbeddedAttachment ( xAttachments.Item (i)) = خطأ إذن

xAttachments.Item(i).SaveAsFile xFilePath

إذا كان xMailItem.BodyFormat <> olFormatHTML ثم

xSaveFiles = xSaveFiles & vbCrLf & "مرجع الارتباط التشعبي غير صالح.>"

آخر

xSaveFiles = xSaveFiles & "
" & " xFilePath & “‘>” & xFilePath & “ "

إنهاء إذا

إنهاء إذا

بعدها انا

إنهاء إذا

التالي

تعيين xAttachments = لا شيء

تعيين xMailItem = لا شيء

تعيين xSelection = لا شيء

نهاية الفرعية

وظيفة FileRename ( FilePath As String ) كسلسلة(String)

خافت xPath كسلسلة

خافت xFso كـ FileSystemObject

خطأ في الصفحة، إذهب للتالي

Set xFso = CreateObject (" Scripting.FileSystemObject ")

xPath = FilePath

FileRename = xPath

إذا كان xFso.FileExists(xPath) إذن

جي كونت = جي كونت + 1

xPath = xFso.GetParentFolderName( GFilepath ) & "" & xFso.GetBaseName ( GFilepath ) & " " & GCount & "." + xFso.GetExtensionName( GFilepath )

FileRename = FileRename(xPath)

إنهاء إذا

xFso = لا شيء

وظيفة النهاية

الوظيفة(Function IsEmbeddedAttachment) مضمنة ( إرفاق كمرفق (Attach))(Attachment)

تعتيم xItem كـ MailItem

خافت xCid كسلسلة

تعتيم xID كسلسلة

خافت xHtml كسلسلة

خطأ في الصفحة، إذهب للتالي

IsEmbeddedAttachment = خطأ

تعيين xItem = Attach.Parent

إذا كان xItem.BodyFormat <> olFormatHTML، فاخرج من الوظيفة(Function)

xCid = ""

xCid = Attach.PropertyAccessor.GetProperty ("http://schemas.microsoft.com/mapi/proptag/0x3712001F")

إذا كان xCid <> "" إذن

xHtml = xItem.HTMLBody

xID = "cid:" & xCid

إذا كان InStr(xHtml, xID) > 0 ثم

IsEmbeddedAttachment = صحيح(True)

إنهاء إذا

إنهاء إذا

وظيفة النهاية

ملاحظة: يمكنك نسخ الكود الأصلي أعلاه من Extend Office(original code above from Extend Office) ولصقه في المحرر.

  1. اضغط F5(Press F5) لتشغيل البرنامج النصي. قد تظهر لك نافذة منبثقة تطالبك بالسماح بهذا الإجراء.

استخدام أداة خارجية

إذا كنت تستخدم إصدارًا آخر من Outlook ، أو تريد تنزيل نوع ملف آخر غير PST(a file type other than PST) ، أو تجد أن أسلوب VBA مرهقًا، فيمكنك تنزيل أداة يمكنها مساعدتك في تنزيل مرفقات Outlook متعددة مرة واحدة.

تتمتع التطبيقات مثل Outlook Attachment Extractor بوظيفة حفظ المرفقات ليس فقط من ملفات PST ، ولكن من تنسيقات الملفات الأخرى مثل ملفات OST(OST) و BAK و MSG و OLK و OLM أيضًا. يمكنك أيضًا تكوين التطبيق لتصفية المرفقات حسب حجم الملف أو التاريخ أو المرسل.

كيفية تنزيل جميع المرفقات من ملف تالف(Corrupted)

إذا لم تتمكن من فتح مرفقات الملفات أو عرضها أو حفظها في Outlook ، فقد يكون ملف Microsoft Outlook PST تالفًا أو تالفًا. (Microsoft Outlook PST)يمكنك إصلاح ملف PST(repair the PST file) لاسترداد المرفق باستخدام أدوات مثل تطبيق SCANPST.exe .

لاستخدام هذه الأداة، أغلق Outlook وانتقل إلى أحد المواقع التالية، وفقًا لإصدار Outlook لديك :

  1. Outlook 2019: C: ملفات البرنامج (x86) Microsoft Office\root\Office16
  2. توقعات 2016: C: ملفات البرنامج (x86) مايكروسوفت Office\root\Office16
  3. توقعات 2013: C: ملفات البرنامج (x86) مايكروسوفت أوفيس Office\Office15
  4. Outlook 2010: C: ملفات البرنامج (x86) Microsoft Office\Office14
  5. Outlook 2007: C: ملفات البرنامج (x86) Microsoft Office\Office12

ثم انقر نقراً مزدوجاً فوق SCANPST.EXE.

حدد استعراض(Select Browse) ، وحدد موقع ملف بيانات Outlook الذي تريد فحصه، ثم اضغط على ابدأ(Start) .

إذا عثرت الأداة على أخطاء، فحدد إصلاح(Repair) لمحاولة إصلاحها. بمجرد الانتهاء، أعد تشغيل Outlook وتحقق مما إذا كان يعمل الآن.

تبسيط أنشطة البريد الإلكتروني الخاص بك

يعد تنزيل ملفات متعددة من Outlook أمرًا سهلاً ويمكنك أيضًا تنزيل ملفات متعددة من رسائل بريد إلكتروني متعددة مرة واحدة. إذا وجدت أن الطرق المضمنة في Outlook صعبة للغاية، فيمكنك تنزيل أدوات مثل Outlook Attachment Extractor لمساعدتك.



About the author

أنا فني كمبيوتر عملت مع Android وبرامج المكتب لسنوات عديدة. لقد قمت أيضًا بتعليم الأشخاص كيفية استخدام أجهزة Mac على مدار السنوات الخمس الماضية أو نحو ذلك. إذا كنت تبحث عن شخص يعرف كيفية إصلاح الأشياء على جهاز الكمبيوتر الخاص بك ، فربما يمكنني مساعدتك!



Related posts