Microsoft Outlook, область навигации
Доброго дня, форумчане! Недавно обнаружил такую проблему: при создании нескольких ящиков в MS outlook 2010, в области навигации дерево папок ящика сворачивается, что не удобно. Подскажите, как это вылечить? Прилагаю скрины сразу после создания второго ящика и после перезапуска Outlook
|
Подскажите как это правильно сделать?
|
Вложений: 1
В Outlook - Alt+F11 - File - Import file - выберите файл ExpandAllFolders.bas, который возьмете в архиве в аттаче - Ctrl+S
Для того чтоб работало в параметрах безопасности в Параметрах макросов установите параметр Уведомление для всех макросов, в этом случае при каждом запуске Outlook будет спрашивать включать ли макрос. Или параметр Включить все макросы - вопросов задавать не будет, но и безопасность снижена так как выполняются все макросы без запроса, в том числе и небезопасные.
|
Blast, а если самоподписать пользователем? Сейчас такое работает?
|
Iska, я не пробовал, возможно. Я не использую Outlook (в нем даже уч. записи нет), соответственно и разбираться лень :)
Если е сложно описать как это сделать - вэлкам.
|
А в настройках ни где эта проблема не устраняется?
|
Nord18, подумайте логически, если бы было в настройках, писали бы макрос для этого?
В принципе есть проблема - есть решение, пользоваться им или нет - дело ваше.
|
Blast, то то и оно, что проблема не решается. После перезапуска программы все по прежнему.
|
гм.. а сказать об этом не могли? :) |
Только проверил, сразу написал... :)
|
Значит что-то не так сделали или макрос не включен. Проверено на Outlook 2013 - работает, на 2010 тоже будет работать. Параметры безопасности установили как надо?
|
1. Запускаем Outlook
2. Alt+F11-File-Import File-выбираю файлик-Ctrl+S
Я делал вот так. Верно?
|
Верно, а параметры безопасности для макросов настроили после этого?
|
Да, все сделал. Но эффекта нет. Странно.
Для меня Outlook удобен полностью, но недостаток с сворачиванием и разворачиванием папок огорчил... :(
|
Извиняюсь, не то вам подсунул (могли бы и сами исправить :) )
Зайдите в 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
|
Хм...Сделал все как вы сказали. Но нет того что я хотел...
Может мы друг друга не поняли...?
|
Вложений: 1
Или возьмите из архива во вложении файл и поместите его в папку %appdata%\Microsoft\Outlook\ поверх существующего (Outlook должен быть закрыт при этом). Потом запустите Outlook, нажмите Alt+F11, проверьте на месте ли код и сохраните.
|
Я вот проверяю пока и понимаю, что в моем случае достаточно оставить развернутыми все папки при выходе чтобы они такими оставались при запуске. То есть Outlook должен сам запоминать это состояние.
|
Сработало. То есть этот макрос делает дерево папок всегда развернутым. Странно, почему MS не выпустил заплатку решающую эту проблему. Было бы лучше, если бы деревья разворачивались по требованию, и запоминали положение перед выходом...
У меня почему то не запоминает. Офис лиценз.
|
Цитата:
Цитата Nord18
и запоминали положение перед выходом... »
|
у меня запоминает |
Когда 1 ящик-проблемы нет. Как только 2 создаю, появляется проблема.
|
Я,наверно,не по теме напишу (извините),но я только сегодня создала учётную запись в Outlook.Подскажите,где можно взять адрес этой записи(ссылку непосредственно на эту запись).
|
Время: 04:31.
© OSzone.net 2001-
