Как перезапустить Microsoft Outlook макросом?

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Как перезапустить Microsoft Outlook макросом? (Outlook, перезапуск)

MrRutts

Дата: Понедельник, 19.12.2016, 09:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!

Третий день ломаю голову: возможен ли перезапуск Outlook макросом или как инициализировать запуск "Обновить папку". Сколько ищу, не могу найти однозначный ответ, по макросам в Outlook информация в инете скудна, а макрорекордера как в exel нет . Кто-нибудь может дать ответ? Поясню для чего это нужно: несколько раз в месяц у нас на предприятии проводятся регламентные работы (в том числе и в выходные дни), после чего почта перестает работать до последующего перезапуска Outlook или нажатия кнопки "Обновить папку". Все бы ничего, но в Outlook есть другой макрос который при получении почты от определенных лиц сажает вложенные файлы в сетевую папку меняя их названия. Соответственно, если почта не обновлена, и на рабочем месте никого нет, то и данные на сетевом ресурсе отсутствуют.

Поиск, вопроса, к сожалению, не решил....

Сообщение отредактировал MrRutts - Понедельник, 19.12.2016, 09:56

Ответить

Rioran

Дата: Пятница, 21.04.2017, 16:56 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

MrRutts, здравствуйте.

Есть несколько способов, включая запуск программы из Excel. Думаю, что в Вашей ситуации больше подойдёт следующий скрипт на VBS:

[vba]

Код

' Roman "Rioran" Voronov, 21.04.2017
' Script to restart Outlook application
' ---------------------------------------
' Step 1 - Closing Outlook
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Quit
WScript.Sleep 1000
' Step 2 - Starting Application
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "outlook"

[/vba]
На операционной системе Microsoft для использования этого скрипта ничего особенного не нужно - просто дважды нажимаете на файл из вложения. Или можете ссылку на этот файл закрепить на панели быстрого доступа - тогда будет достаточно одного клика. Если будут открыты лишние окна в Outlook - например, несохранённые письма - сам Outlook может попросить что-то с ними сделать.