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

كيفية الانتقال بسرعة إلى مجلد نتيجة البحث وفتحه في 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


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

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

لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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