3 طرق لتنزيل جميع المرفقات من Outlook

راجع هذا الدليل لتتعلم كل الطرق

كمستخدم محترف ، يمكن أن يكون تنزيل الكثير من المرفقات من رسائل البريد الإلكتروني المستلمة في Outlook أمرًا رتيبًا ويستغرق وقتًا طويلاً.

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

إذا كنت مهتمًا بمعرفة الإجراء خطوة بخطوة ، فابق معنا بينما نوجهك خلال الإجراء.

كيف يمكنني تنزيل جميع المرفقات من بريد إلكتروني؟

1. باستخدام تطبيق سطح المكتب

1. قم بتشغيل ملف مايكروسوفت أوتلوك app على جهاز الكمبيوتر الشخصي الذي يعمل بنظام Windows.
2. ابحث عن هذا البريد الإلكتروني وافتحه في جزء القراءة الذي تقوم بتنزيل المرفقات منه.
3. قم بالتبديل إلى ملف المرفقات من شريط القائمة العلوي ، انقر بزر الماوس الأيمن فوق أحد مرفقات الملف في القسم الأيمن ، وحدد احفظ جميع المرفقات في القائمة المنسدلة.
instagram story viewer
4. اضغط على كنترول مفتاح وحدد جميع المرفقات التي ترغب في تنزيلها في مربع الحوار الصغير الذي يفتح.
5. اضغط على نعم زر بعد اختيار المرفقات المطلوبة.
6. جديد حفظ باسم سيتم فتح نافذة منبثقة لحفظ المرفقات الخاصة بك. استعرض للوصول إلى المجلد الذي تريد حفظ ملفات المرفقات فيه واضغط على نعم الزر الموجود في الجزء السفلي الأيمن لبدء تنزيل المرفق.

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

2. باستخدام تطبيق الويب

1. الوصول إلى تطبيق ويب Microsoft Outlook باستخدام متصفح الويب المفضل لديك وتقديم بيانات اعتماد تسجيل الدخول الخاصة بك عند مطالبتك بتسجيل الدخول.
2. حدد ملف صندوق الوارد مجلد من شريط القائمة الأيسر في ملف بيت قسم من تطبيق الويب.
3. انقر نقرًا مزدوجًا فوق البريد الإلكتروني المعني لعرض محتويات البريد الإلكتروني في نافذة جديدة.
4. انقر على تحميل الكل زر لتنزيل المرفقات في شكل ملف مضغوط.
5. اختر موقع التنزيل واضغط على نعم زر إذا كان حفظ باسم يفتح مربع الحوار.

هذه طريقة مباشرة لتنزيل جميع مرفقات البريد الإلكتروني من بريد إلكتروني واحد إذا كنت تفضل تطبيق الويب بدلاً من تطبيق Outlook.

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

ملحوظة

يمكنك تجربة هذه الطريقة فقط إذا كنت تستخدم Outlook 2019 أو 2016 أو 2013 أو 2010 أو 2007 أو 2003.

1. انشاء مجلد جديد

1. استخدم ال شبابيك + ه الاختصار لبدء التشغيل مستكشف الملفات.
2. انتقل إلى وثائق مجلد من الشريط الجانبي الأيسر.
3. انقر بزر الماوس الأيمن في أي مكان في القسم الأيمن واختر جديد تليها مجلد من قائمة السياق.
4. انقر نقرًا مزدوجًا فوق اسم المجلد وأعد تسميته باسم المرفقات.

2. قم بإنشاء برنامج نصي لـ VBA

1. قم الآن بتشغيل تطبيق Outlook على جهاز الكمبيوتر الشخصي الذي يعمل بنظام Windows.
2. اختر ال ملف الخيار ثم حدد خيارات من الشريط الجانبي الأيسر.
3. يختار تخصيص الشريط من اللوحة اليسرى من خيارات Word نافذة او شباك.
4. حدد ملف مطور الخيار في علامات التبويب الرئيسية واضغط على زائد أيقونة لإضافة وضع المطور إلى قائمة شريط Outlook.
5. أغلق النافذة المنبثقة لخيارات Word ثم حدد وضع المطور تليها البصرية الأساسية من القائمة الرئيسية.
6. يختار مشروع 1 يتم عرضه كافتراضي ثم حدد إدراج تليها وحدة للوصول إلى نافذة الوحدة.
7. الآن انسخ والصق الكود التالي في وحدة 1 وأغلق النافذة.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem. Dim xCid As String. Dim xID As String. Dim xHtml As String. On Error Resume Next. IsEmbeddedAttachment = False. Set xItem = Attach.Parent. If xItem.BodyFormat <> olFormatHTML Then Exit Function. xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then xHtml = xItem.HTMLBody xID = "cid:" & xCid If InStr(xHtml, xID) > 0 Then IsEmbeddedAttachment = True End If. End If. End Function

3. قم بتشغيل البرنامج النصي VBS

1. قم بالتبديل إلى ملف وضع المطور ثم حدد البصرية الأساسية من شريط Outlook.
2. يختار وحدة 1 وضرب F5 مفتاح لتشغيل الكود.
3. انقر على حفظ المرفق زر بعد تحديد المرفقات لتأكيد الإجراء.

تمكنك البرامج النصية لـ VBA من أتمتة عملية تنزيل المرفقات في Microsoft Outlook. ومع ذلك ، يجب عليك المتابعة بعناية مع البرامج النصية لـ VBA لتجنب إتلاف جهاز الكمبيوتر الخاص بك.

هذا كل ما في هذا الدليل! آمل أن تكون على دراية بالطرق المختلفة التي يمكنك من خلالها تنزيل جميع مرفقات البريد الإلكتروني بسهولة من تطبيق Microsoft Outlook.

إذا واجهت حدث خطأ ما خطأ في Outlook التطبيق ، جرب الحلول المقترحة في هذا الدليل.

إذا كان لديك أي استفسارات ، أو كنت تعرف طرقًا أخرى ، فأخبرنا بذلك في قسم التعليقات.