كيفية حفظ المرفقات دون فتح البريد الإلكتروني في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

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

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

حفظ المرفقات من رسالة بريد إلكتروني واحدة أو أكثر دون فتحها باستخدام كود VBA

الكود التالي لـ VBA يمكن أن يساعد في حفظ المرفقات من رسالة بريد إلكتروني واحدة أو أكثر في نفس الوقت دون الحاجة لفتح الرسائل في Outlook. يرجى اتباع الخطوات التالية:

1. حدد رسالة بريد إلكتروني واحدة أو عدة رسائل التي تريد حفظ المرفقات منها، واضغط على المفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. قم بتوسيع مجلد Microsoft Outlook Objects، انقر نقرًا مزدوجًا فوق ThisOutlookSession لفتح نافذة الكود، ثم قم بنسخ الكود التالي لـ VBA داخلها.

كود VBA: حفظ المرفقات دون فتح الرسائل

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

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

4. اضغط على مفتاح F5 لتشغيل الكود. بعد ذلك ستظهر نافذة BrowseForFolder، يرجى تحديد مجلد لحفظ المرفقات، ثم انقر على زر موافق.

بعد ذلك سيتم حفظ جميع المرفقات في الرسائل المحددة في المجلد المحدد فوراً.

ملاحظة: سيتم فصل جميع المرفقات من الرسائل وسيتم الاحتفاظ بروابط المسار الخاصة بالمرفقات في نص البريد الإلكتروني.

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

إذا كنت جديدًا في استخدام VBA، فإن الطريقة في هذا القسم ستكون خيارًا جيدًا لك.

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

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

1. حدد الرسائل التي تحتوي على المرفقات التي تريد حفظها، انقر على Kutools Plus > أدوات المرفقات > حفظ الكل.

2. في مربع حوار إعدادات الحفظ، تحتاج إلى:

2.1) في قسم حفظ المرفقات في هذا المجلد، اختر مجلدًا لحفظ المرفقات؛
2.2) صندوق حفظ المرفقات بناءً على النمط التالي اختياري بالنسبة لك لإنشاء مجلد فرعي بنمط معين لحفظ المرفقات، أو إعادة تسمية المرفقات المحفوظة بنمط معين.
2.3) انقر على موافق لبدء حفظ جميع المرفقات من الرسائل المحددة.

نصائح: مع الإعدادات أعلاه، سيتم حفظ جميع المرفقات في المجلد المحدد. إذا كنت ترغب فقط في حفظ بعض المرفقات المحددة مثل حفظ ملفات PDF التي تحتوي على كلمة "invoice" في اسم الملف، يمكنك تكوين شروط التصفية كما يلي.

انقر على زر الخيارات المتقدمة لتوسيع شروط التصفية؛
حدد الشروط بناءً على احتياجاتك.
نصائح:هنا قمت بتحديد اسم المرفق صندوق يحتوي وأدخل "invoice" في مربع النص، ثم قم بتحديد نوع المرفق صندوق، وأدخل ".pdf" في مربع النص.