نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه می توان به طور خودکار تمام پوشه ها را هنگام شروع Outlook گسترش داد؟

به طور کلی، اگر یک پوشه را در صفحه ناوبری گسترش دهید یا سقوط کنید و سپس Outlook را ببندید، هنگام بارگزاری مجدد Outlook، پوشه باقی می ماند و گسترش می یابد. اما در حال حاضر، آیا می توانم به طور خودکار در هنگام شروع Outlook، تمام پوشه ها را گسترش دهم؟ این مقاله VBA را برای تکمیل کار معرفی خواهد کرد.

هنگام شروع Outlook با VBA، تمام پوشه ها را به طور خودکار گسترش دهید

Kutools برای چشم انداز: 100 + ابزار پیشرفته جدید برای چشم انداز.
دفتر تب: فعال کردن ویرایش و مرور نواربندی در دفتر، درست مانند Chrome، Firefox، IE 8 / 9 / 10.
منوی کلاسیک: منوی های قدیمی و نوارهای ابزار را بازگردانید به دفتر 2007، 2010، 2013، 2016 و 2019.

فلش آبی راست حبابهنگام شروع Outlook با VBA، تمام پوشه ها را به طور خودکار گسترش دهید

این روش یک VBA را برای به طور خودکار تمام پوشه ها در صفحه ناوبری در هنگام راه اندازی Outlook ایجاد می کند. لطفا این VBA را به صورت زیر اعمال کنید:

1 مطبوعات دگرساز + F11 کلید به طور همزمان برای باز کردن پنجره مایکروسافت ویژوال بیسیک برای برنامه.

2 باز کردن پروژه 1 و اشیاء مایکروسافت چشم انداز در قسمت پروژه دوبار کلیک کنید تا باز شود ThisOutlookSession پنجره، و سپس زیر کد VBA در آن وارد کنید.

VBA: به طور خودکار همه پوشه ها را در Outlook گسترش می دهد

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3 کد را ذخیره کنید و پنجره ویژوال بیسیک برای مایکروسافت را ببندید.

از این پس، هنگام راه اندازی مجدد Outlook، تمام پوشه ها به صورت خودکار در Outlook گسترش خواهند یافت.توجه داشته باشید: در هنگام راه اندازی مجدد Outlook، این VBA نمی تواند پوشه های جستجوی فروخته شده را باز کند.


فلش آبی راست حبابمقالات مرتبط



Kutools برای چشم انداز

بیشتر از توابع پیشرفته 100 برای چشم انداز 2010، 2013، 2016، 2019 و 365

kutools روی صفحه نمایش برای چشم انداز کوچک برای بنر 201812

از ویژگی های بیشتر | دانلود رایگان | فقط $ 39.00 برای صدها توابع

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 6 months ago
    Thank you so much.. It solved my problem. :)