كيفية الحصول على قائمة المجلدات في Outlook؟
في بعض الأحيان ، يمكن للبنية الشجرية لجميع مجلدات البريد (بما في ذلك المجلدات الشخصية التي تم إنشاؤها) في جزء التنقل تقديم بعض المساعدة لمستخدمي Outlook أثناء عملهم. لسرد مجلدات بنية الشجرة بأكملها بسرعة ، يمكن أن تساعدك التعليمات البرمجية لـ VBA. في هذا البرنامج التعليمي ، يمكنك معرفة كيفية الحصول على قائمة المجلدات بسهولة باستخدام رمز VBA.
احصل على قائمة المجلدات في Outlook برمز VBA
- أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
- احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
- تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
- تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع
احصل على قائمة المجلدات في Outlook برمز VBA
للحصول على قائمة المجلدات في Outlook برمز VBA ، يرجى القيام بما يلي.
1. اضغط على قديم + F11 على لوحة المفاتيح لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم انقر نقرًا مزدوجًا فوق ملف Project1 > كائن Microsoft Outlook > هذه الجلسة لفتح مشروع 1 - ThisOutlookSession نافذة او شباك. انظر لقطة الشاشة:
3. ثم انسخ والصق رمز VBA أدناه في نافذة Project1 - ThisOutlookSession.
VBA: احصل على قائمة المجلدات في Outlook
Option Explicit
Sub GetFoldersList()
On Error GoTo On_Error
Dim Report As String
Dim Folder As Outlook.Folder
For Each Folder In Application.Session.Folders
Report = Report & "---------------------------------------------------------------------------" & vbCrLf
Call RecurseFolders(Folder, "", Report)
Next
Call CreateReportEmail("Outlook Folders List", Report)
Exiting:
Exit Sub
On_Error:
MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
Dim SubFolder As Outlook.Folder
Dim FolderName, StoreName As String
FolderName = CurrentFolder.Name
StoreName = CurrentFolder.Store.DisplayName
Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
For Each SubFolder In CurrentFolder.Folders
Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
4. اضغط على F5 على لوحة المفاتيح لبدء تشغيل رمز VBA.
5. الآن أ الماكرو ينبثق مربع الحوار ، الرجاء النقر فوق يجري .
6. انتظر تشغيل الماكرو. ثم يتم سرد قائمة جميع مجلدات البريد الإلكتروني الخاصة بك في نافذة رسالة جديدة تم إنشاؤها على الفور. يمكنك طباعته بسهولة. انظر لقطة الشاشة:
ملاحظات: يمكن تطبيق رمز VBA هذا على Outlook 2007 و 2010 و 2013.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.