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

كيفية الانتقال بسرعة إلى مجلد نتيجة البحث وفتحه في Outlook؟

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

انتقل إلى مجلد نتيجة البحث وافتحه باستخدام VBA

انتقل إلى مجلد نتيجة البحث وافتحه بالنقر بزر الماوس الأيمن


انتقل إلى مجلد نتيجة البحث وافتحه باستخدام VBA

في Outlook ، لا توجد وظيفة مضمنة يمكنها التعامل مع هذه المهمة ، باستثناء رمز VBA.

قبل استخدام رمز VBA ، تحتاج إلى عرض اسم المجلد في نتائج البحث.

1. انقر المزيد > إضافة أعمدة.
doc اذهب لفتح مجلد نتيجة البحث 1

2. في ال إظهار الأعمدة الحوار وفي حدد الأعمدة المتاحة من القائمة المنسدلة ، حدد كافة حقول البريد، ثم اختر في المجلد في ال الأعمدة المتاحة قائمة.
doc اذهب لفتح مجلد نتيجة البحث 2

3. انقر أضف لإضافة في المجلدات إلى اعرض هذه الأعمدة بهذا الترتيب قائمة ، ثم انقر فوق تحرك زر للتحرك في المجلد الأعلى.
doc اذهب لفتح مجلد نتيجة البحث 3

4. انقر OK لإغلاق الحوار. الآن أثناء البحث عن رسائل البريد الإلكتروني ، سيتم عرض اسم المجلد في نتائج البحث.
doc اذهب لفتح مجلد نتيجة البحث 4

5. اضغط الآن ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة لإنشاء وحدة جديدة.

6. انسخ الكود أدناه والصقه في الوحدة النمطية.

فبا: انتقل إلى المجلد بالاسم

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. صحافة F5 مفتاح لتمكين الرمز ، أدخل الآن اسم المجلد الذي تريد الانتقال إليه في مربع الحوار.
doc اذهب لفتح مجلد نتيجة البحث 5

8. انقر OK، يظهر مربع حوار لتذكيرك بموقع المجلد ، انقر فوق نعم للذهاب مباشرة إلى المجلد ، أو انقر فوق لا لالغاء.
doc اذهب لفتح مجلد نتيجة البحث 6


انتقل إلى مجلد نتيجة البحث وافتحه بالنقر بزر الماوس الأيمن

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

Kutools for Outlook , ويشمل +100 ميزات وأدوات قوية لبرنامج Microsoft Outlook 2016 و 2013 و 2010 و Office 365.

تثبيت مجاني Kutools for Outlook ، ثم قم بالخطوات التالية:

بعد البحث ، انقر بزر الماوس الأيمن فوق النتيجة التي تريد فتح مجلدها ، وحدد افتح المجلد من قائمة السياق.
doc اذهب لفتح مجلد نتيجة البحث 7


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

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

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

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

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

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

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

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

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

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

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations