كيف تحفظ المرفقات دون فتح البريد الإلكتروني في 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 بسهولة.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.