Qu@dr0
16-05-2016, 17:55
Привет. Хотелось бы, чтобы Outlook запускался автоматически при загрузке Windows и автоматически же сам сворачивался в значок в системном трее (рядом с часами).
Нашёл на просторах Интернета некий скрипт:
OPTION EXPLICIT
CONST PATH_TO_OUTLOOK = """C:\Program Files\Microsoft Office\Office16\OUTLOOK.EXE"""
CONST SHOW_MAXIMIZED = 3
CONST MINIMIZE = 1
DIM shell, outlook
SET shell = WScript.CreateObject("WScript.Shell")
' Open Outlook
shell.Run PATH_TO_OUTLOOK, SHOW_MAXIMIZED, FALSE
ON ERROR RESUME NEXT
' Grab a handle to the Outlook Application and minimize
SET outlook = WScript.CreateObject("Outlook.Application")
WScript.Sleep(100)
outlook.ActiveExplorer.WindowState = SHOW_MAXIMIZED
' Loop on error to account for slow startup in which case the
' process and/or the main Outlook window is not available
WHILE Err.Number <> 0
Err.Clear
WScript.Sleep(100)
SET outlook = NOTHING
SET outlook = WScript.CreateObject("Outlook.Application")
outlook.ActiveExplorer.WindowState = MINIMIZE
WEND
ON ERROR GOTO 0
SET outlook = NOTHING
SET shell = NOTHING
Я разместил на него ссылку в реестре, в меню Outlook в трее отметил "Скрывать свёрнутое", при загрузке Windows запускается Outlook, через некоторое время он сам сворачивается в трей, но при этом сам Outlook при наведении на значок в трее сообщает о том, что его использует сторонняя программа или типа того, и почту он проверяет вроде бы только после того, как я разверну главное окно Outlook из трея.
Просьба подсказать, как организовать корректный автоматический запуск Outlook в свёрнутом в трей состоянии?
Нашёл на просторах Интернета некий скрипт:
OPTION EXPLICIT
CONST PATH_TO_OUTLOOK = """C:\Program Files\Microsoft Office\Office16\OUTLOOK.EXE"""
CONST SHOW_MAXIMIZED = 3
CONST MINIMIZE = 1
DIM shell, outlook
SET shell = WScript.CreateObject("WScript.Shell")
' Open Outlook
shell.Run PATH_TO_OUTLOOK, SHOW_MAXIMIZED, FALSE
ON ERROR RESUME NEXT
' Grab a handle to the Outlook Application and minimize
SET outlook = WScript.CreateObject("Outlook.Application")
WScript.Sleep(100)
outlook.ActiveExplorer.WindowState = SHOW_MAXIMIZED
' Loop on error to account for slow startup in which case the
' process and/or the main Outlook window is not available
WHILE Err.Number <> 0
Err.Clear
WScript.Sleep(100)
SET outlook = NOTHING
SET outlook = WScript.CreateObject("Outlook.Application")
outlook.ActiveExplorer.WindowState = MINIMIZE
WEND
ON ERROR GOTO 0
SET outlook = NOTHING
SET shell = NOTHING
Я разместил на него ссылку в реестре, в меню Outlook в трее отметил "Скрывать свёрнутое", при загрузке Windows запускается Outlook, через некоторое время он сам сворачивается в трей, но при этом сам Outlook при наведении на значок в трее сообщает о том, что его использует сторонняя программа или типа того, и почту он проверяет вроде бы только после того, как я разверну главное окно Outlook из трея.
Просьба подсказать, как организовать корректный автоматический запуск Outlook в свёрнутом в трей состоянии?