[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 не выпустил заплатку решающую эту проблему. Было бы лучше, если бы деревья разворачивались по требованию, и запоминали положение перед выходом...

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