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

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

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

احفظ المرفقات من بريد إلكتروني واحد أو أكثر بدون فتح برمز VBA

يمكن أن يساعد رمز VBA أدناه في حفظ المرفقات من بريد إلكتروني واحد أو أكثر في نفس الوقت دون فتح رسائل البريد الإلكتروني في Outlook. الرجاء القيام بما يلي.

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

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

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

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 نافذة منبثقة ، يرجى تحديد مجلد لحفظ المرفقات ، ثم النقر فوق OK .

ثم يتم حفظ جميع المرفقات في رسائل البريد الإلكتروني المحددة في المجلد المحدد على الفور.

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

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

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

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

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

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

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

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

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

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

ثم يتم حفظ المرفقات في رسائل البريد الإلكتروني المحددة في المجلد المحدد مرة واحدة.

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

إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (60 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.