كيفية إنشاء مجلد بحث لجميع رسائل البريد الإلكتروني التي لم يتم الرد عليها في Outlook؟
إذا كنت ترغب في التحقق من رسائل البريد الإلكتروني التي لم يتم الرد عليها في Outlook الخاص بك ، فسيستغرق البحث عنها واحدة تلو الأخرى وقتًا طويلاً. في هذه المقالة ، سأتحدث عن إنشاء مجلد بحث لجميع الرسائل التي لم يتم الرد عليها.
قم بإنشاء مجلد بحث لجميع رسائل البريد الإلكتروني التي لم يتم الرد عليها في Outlook برمز VBA
قم بإنشاء مجلد بحث لجميع رسائل البريد الإلكتروني التي لم يتم الرد عليها في Outlook برمز VBA
يمكن أن يساعدك رمز VBA التالي في إنشاء مجلد بحث حيث سيتم وضع جميع رسائل البريد الإلكتروني التي لم يتم الرد عليها ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.
رمز فبا: أنشئ مجلد بحث لرسائل البريد الإلكتروني التي لم يتم الرد عليها:
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim xSearch As Outlook.Search
Dim xScope As String, xFilter As String
Dim xRepliedProperty As String
Dim xFolder As Folder, xSubFolder As Folder
On Error Resume Next
xScope = ""
For Each xFolder In Outlook.Application.Session.Folders
Set xSubFolder = xFolder.Folders("Inbox")
xScope = "'" + xSubFolder.FolderPath + "'"
xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
Set xSearch = Nothing
Set xSubFolder = Nothing
Next
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه كما هو موضح في لقطة الشاشة التالية:
4. انقر OK زر ، الآن ، ستحصل على ملف لم يتم الرد على رسائل البريد الإلكتروني مجلد تحت مجلدات البحث لكل حساب في Outlook الخاص بك ، ويتم عرض جميع رسائل البريد الإلكتروني التي لم يتم الرد عليها هنا ، انظر لقطة الشاشة:
Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!
- CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
- تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
- رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
- أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
- رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

