Як автоматично розгорнути всі папки під час запуску Outlook?
Як правило, коли ви розгортаєте або згортаєте папку в панелі навігації Outlook і згодом закриваєте програму, папка зберігає свій розгорнутий або згорнутий стан після повторного відкриття Outlook. Однак що, якщо ви хочете, щоб усі папки автоматично розгорталися під час кожного запуску Outlook? Ця стаття пропонує рішення VBA для досягнення саме цього.
Автоматично розгортати всі папки під час запуску Outlook за допомогою VBA
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Автоматично розгортати всі папки під час запуску Outlook за допомогою VBA
У цьому посібнику буде продемонстровано, як використовувати сценарій VBA для автоматичного розгортання всіх папок на панелі переходів кожного разу, коли ви запускаєте Outlook. Виконайте такі дії, щоб реалізувати сценарій VBA:
- прес Alt + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
- Розгорнути Проект 1 та Об'єкти Microsoft Outlook в Проекти двічі клацніть, щоб відкрити ThisOutlookSession вікно, а потім вставте в нього наведений нижче код VBA.
VBA: Автоматично розширювати всі папки в Outlook
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- Збережіть код і закрийте Microsoft Visual Basic для додатків вікна.
Відтепер при перезапуску Outlook усі папки автоматично розширюватимуться в Outlook.
Примітки:
- Цей VBA не може відкрити згорнуті папки пошуку під час перезапуску Outlook.
- Щоб сценарій VBA працював належним чином, важливо налаштувати параметри макросу в Outlook. Будь ласка, перейдіть до філе > Опції > Центр безпеки > Налаштування центру довіри > Налаштування макросута виберіть Увімкнути всі макроси варіант. Цей параметр дозволяє сценарію VBA працювати без будь-яких обмежень.
Статті по темі
Видаліть кілька папок груповим способом в Outlook
Видаліть усі дубльовані електронні листи з поштової папки в Outlook
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.