Note: The other languages of the website are Google-translated. Back to English

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

مجلد بحث doc لـ unreplied 1

4. انقر OK زر ، الآن ، ستحصل على ملف لم يتم الرد على رسائل البريد الإلكتروني مجلد تحت مجلدات البحث لكل حساب في Outlook الخاص بك ، ويتم عرض جميع رسائل البريد الإلكتروني التي لم يتم الرد عليها هنا ، انظر لقطة الشاشة:

مجلد بحث doc لـ unreplied 2


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

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL