KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفSiluviaتاريخ التعديل

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

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

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

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

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

2. وسّع مجلدكائنات Microsoft Outlook، ثم انقر مرتين علىThisOutlookSession لفتح نافذةالكود، والصق كود VBA أدناه فيها.

حفظ المرفقات باستخدام VBA 1

كود 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 2

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

إذا كنت مبتدئًا في استخدام VBA، فإن الطريقة الموضحة في هذا القسم هي الخيار الأمثل لك.

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

ودّع عدم كفاءة Outlook! مع Kutools لـ Outlook، أصبح التعامل مع رسائل البريد الإلكتروني دفعةً واحدة أسهل من أي وقت مضى – والآن مع نسخة تجريبية مجانية لمدة 30 يومًا!حمّل Kutools لـ Outlook الآن!!

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

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

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

تلميحات: باستخدام الإعدادات أعلاه، سيتم حفظ جميع المرفقات في المجلد المحدد. إذا كنت ترغب في حفظ مرفقات معيّنة فقط—مثل تلك التي يحتوي اسم ملفها على كلمة «invoice»—يمكنك تكوين شروط التصفية كما يلي.

  • انقر فوق زرخيارات متقدمةلتوسيع شروطفلترة؛
  • حدد الشروط وفقًا لاحتياجاتك.
    تلميحات:هنا قمت بتحديد مربع يحتوي علىاسم المرفق، ثم أدخلت «invoice» في مربع النص، وحدّدت مربعنوع المرفق هو، وأدخلت «.pdf» في مربع النص.
حفظ المرفقات باستخدام kutools 2

3. في مربع الحوار التالي الذي يظهر، انقر فوقنعمللمتابعة.

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

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

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

تنزيل/حفظ المرفقات تلقائيًا من Outlook إلى مجلد معين
بشكل عام، يمكنك حفظ جميع مرفقات رسالة إلكترونية واحدة بالنقر على **المرفقات > حفظ جميع المرفقات** في Outlook. ولكن إذا كنت بحاجة إلى حفظ جميع المرفقات من جميع رسائل البريد الإلكتروني الواردة، فهل لديك حل؟ يقدم لك هذا المقال حلين فعّالين لتنزيل المرفقات تلقائيًا من Outlook وحفظها في مجلد معيّن!

الاحتفاظ بالمرفقات عند الرد في Outlook
عند إعادة توجيه رسالة إلكترونية في Microsoft Outlook، تبقى المرفقات الأصلية ضمن الرسالة المعاد توجيهها. لكن عند الرد على رسالة، لا تُضمن المرفقات الأصلية تلقائيًا في رسالة الرد الجديدة. لذا سنعرض لك هنا بعض الحيل الذكية للحفاظ على تلك المرفقات عند الرد في Microsoft Outlook!

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