Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како аутоматско проширити све фасцикле приликом покретања програма Оутлоок?

Уопштено говорећи, ако проширите или срушите фасциклу у окну за навигацију, а затим затворите Оутлоок, фолдер ће се наставити ширити или срушити приликом рестартовања Оутлоок-а. Али сада, постоји ли начин аутоматског проширења свих фасцикли приликом покретања програма Оутлоок? Овај чланак ће представити ВБА за завршетак задатка.

Аутоматски проширите све фолдере када покренете Оутлоок са ВБА

Кутоолс за Оутлоок: КСНУМКС + Нови напредни алати за Оутлоок.
Оффице Таб: Омогућите уређивање језичака и прегледање у канцеларији, Јуст Лике Цхроме, Фирефок, ИЕ КСНУМКС / КСНУМКС / КСНУМКС.
Цлассиц Мену: Донесите старе меније и алатне траке назад у Оффице КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС.

стрелица плави десни балонАутоматски проширите све фолдере када покренете Оутлоок са ВБА

Овај метод ће представити ВБА за аутоматско проширење свих фолдера у окну за навигацију када покренете Оутлоок. Молимо вас да ово ВБА примените на следећи начин:

КСНУМКС. Притисните други + ФКСНУМКС тастере истовремено да отворите прозор Мицрософт Висуал Басиц за апликације.

КСНУМКС. Проширите Пројекат КСНУМКС и Мицрософт Оутлоок објекти у окну пројекта, кликните двапут да бисте отворили ТхисОутлоокСессион прозор, а затим налепите испод ВБА кода у њега.

ВБА: Аутоматски проширите све фасцикле у програму Оутлоок

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

КСНУМКС. Сачувајте код и затворите прозор Мицрософт Висуал Басиц за апликације.

Од сада, када поново покренете Оутлоок, све фасцикле ће се аутоматски проширити у програму Оутлоок.белешке: Овај ВБА не може да отвори срушене фасцикле за претрагу приликом поновног покретања Оутлоок-а.


стрелица плави десни балонПовезани чланци



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

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 · 7 months ago
    Thank you so much.. It solved my problem. :)