Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
إنشاء حساب  \/ 
x

or

كيف تحفظ المرفقات دون فتح البريد الإلكتروني في 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 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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

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

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

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


    Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

    • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
    • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
    • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
    • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة...
    • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال... تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
    لقطة kutools outlook kutools tab 1180x121
    لقطة kutools outlook kutools plus tab 1180x121
     
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.