Microsoft Outlook, область навигации

[Nord18]

Доброго дня, форумчане! Недавно обнаружил такую проблему: при создании нескольких ящиков в MS outlook 2010, в области навигации дерево папок ящика сворачивается, что не удобно. Подскажите, как это вылечить? Прилагаю скрины сразу после создания второго ящика и после перезапуска Outlook

[Blast]

Можно попробовать сделать при посредством VBA: Expand all folders (http://vboffice.net/sample.html?lang=en&mnu=2&smp=57&cmd=showitem)

[Nord18]

Подскажите как это правильно сделать?

[Blast]

В Outlook - Alt+F11 - File - Import file - выберите файл ExpandAllFolders.bas, который возьмете в архиве в аттаче - Ctrl+S
Для того чтоб работало в параметрах безопасности в Параметрах макросов установите параметр Уведомление для всех макросов, в этом случае при каждом запуске Outlook будет спрашивать включать ли макрос. Или параметр Включить все макросы - вопросов задавать не будет, но и безопасность снижена так как выполняются все макросы без запроса, в том числе и небезопасные.

[Iska]

Blast, а если самоподписать пользователем? Сейчас такое работает?

[Blast]

Iska, я не пробовал, возможно. Я не использую Outlook (в нем даже уч. записи нет), соответственно и разбираться лень :)
Если е сложно описать как это сделать - вэлкам.

[Nord18]

А в настройках ни где эта проблема не устраняется?

[Blast]

Nord18, подумайте логически, если бы было в настройках, писали бы макрос для этого?
В принципе есть проблема - есть решение, пользоваться им или нет - дело ваше.

[Nord18]

Blast, то то и оно, что проблема не решается. После перезапуска программы все по прежнему.

[Blast]

проблема не решается »
гм.. а сказать об этом не могли? :)

[Nord18]

Только проверил, сразу написал... :)

[Blast]

Значит что-то не так сделали или макрос не включен. Проверено на Outlook 2013 - работает, на 2010 тоже будет работать. Параметры безопасности установили как надо?

[Nord18]

1. Запускаем Outlook
2. Alt+F11-File-Import File-выбираю файлик-Ctrl+S
Я делал вот так. Верно?

[Blast]

Верно, а параметры безопасности для макросов настроили после этого?

[Nord18]

Да, все сделал. Но эффекта нет. Странно.

Для меня Outlook удобен полностью, но недостаток с сворачиванием и разворачиванием папок огорчил... :(

[Blast]

Извиняюсь, не то вам подсунул (могли бы и сами исправить :) )
Зайдите в VBE (Alt+F11) и удалите ранее добавленный модуль в секции Class Modules, и добавьте этот код в ThisOutlookSession 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 = Falce

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

[Nord18]

Хм...Сделал все как вы сказали. Но нет того что я хотел...
Может мы друг друга не поняли...?

[Blast]

Или возьмите из архива во вложении файл и поместите его в папку %appdata%\Microsoft\Outlook\ поверх существующего (Outlook должен быть закрыт при этом). Потом запустите Outlook, нажмите Alt+F11, проверьте на месте ли код и сохраните.

[Blast]

Я вот проверяю пока и понимаю, что в моем случае достаточно оставить развернутыми все папки при выходе чтобы они такими оставались при запуске. То есть Outlook должен сам запоминать это состояние.

[Nord18]

Сработало. То есть этот макрос делает дерево папок всегда развернутым. Странно, почему MS не выпустил заплатку решающую эту проблему. Было бы лучше, если бы деревья разворачивались по требованию, и запоминали положение перед выходом...

У меня почему то не запоминает. Офис лиценз.