كيفية العثور على المجلد (مسار المجلد الكامل) بالاسم في Outlook؟
على سبيل المثال، إذا قمت عن طريق الخطأ بنقل مجلد وإسقاطه في مجلد غير معروف على لوحة التنقل في Outlook، وترغب في استعادة هذا المجلد ولكن لا يمكنك العثور عليه فوراً. للأسف، لا يدعم Outlook ميزة "البحث" كما هو الحال في Microsoft Word أو Excel. لا تقلق! يمكنك استخدام ماكرو VBA لحل هذه المشكلة في Outlook.
- العثور على المجلد (مسار المجلد الكامل) بالاسم باستخدام VBA
- البحث عن المجلد بالاسم باستخدام أداة رائعة
العثور على المجلد (مسار المجلد الكامل) بالاسم باستخدام VBA
يرجى اتباع الخطوات أدناه للبحث عن المجلدات بالأسماء باستخدام VBA في Outlook.
1. اضغط على مفتاحي "Alt" + "F11" معًا لفتح نافذة "Microsoft Visual Basic for Applications".
2. انقر فوق "إدراج" > "وحدة"، ثم قم بلصق الكود التالي لـ VBA في نافذة الوحدة الجديدة.
VBA: البحث وفتح المجلدات بالاسم في Outlook
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3. اضغط على مفتاح "F5" أو انقر على زر "تشغيل" لتشغيل هذا الكود VBA.
4. في مربع الحوار المنبثق "البحث عن المجلد"، يرجى كتابة اسم المجلد المحدد الذي تريد البحث عنه، ثم انقر على زر "موافق".
ملاحظة: يدعم هذا الكود VBA الرمز البري * كعنصر بدل. على سبيل المثال، يمكنك كتابة tes* للعثور على جميع المجلدات التي تبدأ أسماؤها بـ tes.
5. الآن سيظهر مربع حوار يعرض مسار المجلد الذي تم العثور عليه. إذا كنت بحاجة إلى فتح المجلد الذي تم العثور عليه، يرجى النقر على زر "نعم".
والآن يتم فتح المجلد الذي تم العثور عليه في لوحة التنقل كما هو موضح في لقطة الشاشة أدناه:
ملاحظة: إذا كان هناك أكثر من مجلد يحمل الاسم المحدد، يمكن لهذا الكود VBA العثور على مجلد واحد فقط وفتحه.
مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا
قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:
- ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
- تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
- الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
- التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
- الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
- التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.
هذه الميزة تدعم:
- ردود البريد الإلكتروني الذكية
- المحتوى المُحسّن
- المسودات المستندة إلى الكلمات المفتاحية
- التوسع الذكي للمحتوى
- تلخيص البريد الإلكتروني
- الترجمة متعددة اللغات
الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع
البحث عن المجلد بالاسم باستخدام أداة رائعة
إذا كان لديك "Kutools for Outlook" مثبتًا، يمكنك استخدام ميزة "Go To" الخاصة به للعثور بسرعة على جميع المجلدات باسم معين، ويمكنك أيضًا فتح أي مجلد تم العثور عليه بسهولة.
افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!
1. انقر على "Kutools Plus" > "Go To" لتمكين هذه الميزة.
2. في مربع الحوار "Go To"، يرجى كتابة اسم المجلد المحدد في مربع "البحث"، واختيار مجلد من نتائج البحث، ثم النقر على زر "موافق".
الآن تم العثور على المجلد المحدد بالاسم وفتحه فورًا.
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمجموعة Office
خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...
📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

