انتقل إلى المحتوى الرئيسي

كيفية الأرشفة بدون مرفقات في Outlook؟

بشكل عام ، ستحفظ ميزة الأرشفة في Outlook جميع عناصر البريد الإلكتروني ، بما في ذلك محتوى البريد الإلكتروني ورأس البريد الإلكتروني ومرفقات البريد الإلكتروني وما إلى ذلك. ومع ذلك ، قد تجعل المرفقات ملف PST المؤرشف ضخمًا. هنا ، سأقدم حلين للأرشفة بدون مرفقات في Outlook.

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً
Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة
عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

أرشفة بدون مرفقات بواسطة VBA

ستقدم هذه الطريقة VBA لحذف جميع المرفقات من المجلد المحدد الذي ستقوم بأرشفته ، وبعد ذلك يمكنك الأرشفة بدون مرفقات. يرجى القيام بما يلي:

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

2. انقر إدراج > وحدة، ثم قم بلصق VBA أدناه في نافذة الوحدة النمطية الجديدة.

فبا: قم بإزالة كافة المرفقات من مجلد البريد المحدد في Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & "" End If Wend If xDeletedFilePath <> "" Then If xMailItem.BodyFormat <> olFormatHTML Then xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body Else xMailItem.HTMLBody = "

" & _ "The file(s) were saved to: " & xDeletedFilePath & "

" & xMailItem.HTMLBody End If xMailItem.Save xDeletedFilePath = "" End If End If Next Exit Sub: Set xAttachments = Nothing Set xMailItem = Nothing End Sub

3. اضغط على F5 مفتاح أو انقر فوق يجري زر لتشغيل الكود. ثم تتم إزالة كافة المرفقات من مجلد البريد المحدد على الفور.

4. انقر قم بتقديم > معلومات > الأدوات > تنظيف الأشياء القديمة (أو قم بتقديم > معلومات > أدوات التنظيف > أرشيف).

5. في مربع حوار الأرشيف، الرجاء النقر لتحديد المجلد المنسوخ، ثم اكتب TODAY في ال أرشفة العناصر الأقدم من مربع ، ثم انقر فوق تصفح زر. انظر لقطة الشاشة:

6. في مربع الحوار فتح ملفات بيانات Outlook، يرجى فتح المجلد الذي ستحفظ فيه ملف PST المؤرشف، وقم بتسمية ملف PST في اسم الملف مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

7. الآن عدت إلى مربع الحوار "أرشيف" ، الرجاء النقر فوق OK زر لإنهاء الأرشفة.
لقد قمت حتى الآن بأرشفة مجلد البريد دون أي مرفقات.


الأرشفة بدون مرفقات بواسطة Kutools for Outlook

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

كوتولس لتوقعات: مجموعة أدوات Outlook النهائية التي تحتوي على أكثر من 100 أداة سهلة الاستخدام. جربه مجانًا لمدة 60 يومًا، بدون قيود، ولا تقلق!   اقرأ أكثر...   ابدأ النسخة التجريبية المجانية الآن!

1. في بريد عرض، افتح مجلد البريد المحدد الذي ستقوم بأرشفته، وحدد جميع رسائل البريد الإلكتروني بالضغط CTRL + A مفاتيح ، ثم انقر فوق كوتولس > افصل الكل. انظر لقطة الشاشة:

2. في مربع الحوار الرجاء تحديد مجلد، انقر فوق تصفح زر  لتحديد المجلد الذي ستحفظ المرفق فيه، حدد نمط المجلد الفرعي من ملف قم بإنشاء مجلدات فرعية بالنمط التالي القائمة المنسدلة ، وانقر فوق Ok زر. انظر لقطة الشاشة:

3. من فضلك اضغط نعم وزر OK الزر على التوالي في مربعات الحوار المنبثقة.

4. اذهب للنقر قم بتقديم > معلومات > الأدوات > تنظيف الأشياء القديمة (أو قم بتقديم > معلومات > أدوات التنظيف > أرشيف).

5. في مربع حوار الأرشيف، الرجاء النقر لتحديد المجلد المحدد الذي ستقوم بأرشفه بدون مرفقات، ثم اكتب TODAY في ال أرشفة العناصر الأقدم من مربع ، ثم انقر فوق تصفح زر. انظر لقطة الشاشة:

6. في مربع الحوار فتح ملفات بيانات Outlook، يرجى فتح المجلد الذي ستحفظ فيه ملف PST المؤرشف، وقم بتسمية ملف PST في اسم الملف مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

7. الآن عدت إلى مربع الحوار "أرشيف" ، الرجاء النقر فوق OK زر لإنهاء الأرشفة.

لقد قمت حتى الآن بأرشفة مجلد البريد المحدد بدون مرفقات بالفعل.

كوتولس لتوقعات: قم بتعزيز Outlook باستخدام أكثر من 100 أداة ضرورية. اختبر قيادتها مجانًا لمدة 60 يومًا، دون أي شروط!   اقرأ أكثر...   تحميل الآن!


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


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations