Użyłem powyższego kodu od dłuższego czasu i chciałbym podziękować wszystkim poprzednim autorom za podzielenie się swoją pracą / ulepszeniami / sugestiami. Ostatnio jednak wystąpiły dwa niepożądane i irytujące problemy, gdy jest on używany w połączeniu z Windows 10 (64-bitowy) i Outlook 2016 (64-bitowy):
Ikona programu Outlook w zasobniku systemowym wyświetla nakładkę „trybik” z komunikatem „Inny program używa programu Outlook. Aby rozłączyć programy i wyjść z programu Outlook, kliknij ikonę programu Outlook, a następnie kliknij przycisk Wyjdź teraz”.
Próby otwarcia programu Outlook z menu kontekstowego „Otwórz program Outlook” (kliknij prawym przyciskiem myszy ikonę programu Outlook na pasku zadań) powoduje wyświetlenie okna dialogowego z informacją „Nie znaleziono aktywnego obiektu eksploratora”. Kliknięcie opcji „OK” w odpowiedzi uruchamia program Outlook (choć problem 1 - nakładka trybiki) pozostaje.
Aby rozwiązać powyższe problemy, postanowiłem znaleźć podobny kod, który mógłbym skompilować w celu osiągnięcia pożądanych celów oryginalnego plakatu (który odzwierciedla moje własne wymagania).
Poniższy kod jest oferowany „tak, jak jest” dla szerszej korzyści innych superużytkowników, ważne jest, aby pamiętać, że chociaż testowałem kod na dwóch systemach 64-bitowych W10 (oba z zainstalowanym 64-bitowym pakietem Office), wciąż muszę rozwiązać RunTime problem z jednym systemem. Pozostałe działają bezbłędnie. W razie potrzeby można wyświetlić pełne informacje tutaj: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Będę Cię informować o wszelkich zmianach w toku testów .......
** Szybka aktualizacja ** Teraz przetestowane na laptopie HP Elitebook 8440P - Windows 10 Pro 64-bitowy z pakietem Office 64-bitowym + te same 12 dodatków programu Outlook - Działa bezbłędnie zgodnie z wymaganiami określonymi w oryginalnym poście powyżej .....
** Dalsza aktualizacja ** Przetestowano na drugim laptopie HP Elitebook 8440P - Windows 10 Pro 64-bitowy z pakietem Office 64-bitowym + te same 12 dodatków programu Outlook - Wystąpił błąd RunTime :(
OPTION EXPLICIT
Dim WshShell
Dim OLObj
Set WshShell = WScript. CreateObject ( "Wscript.Shell" )
'Open Outlook: Note that inspite of the launch options, it will open the program in a normal window.
'The file location path is not necessary as Windows 10 correctly identifies Outlook's location.
WshShell.Run "OUTLOOK.EXE" , 3, false
'This will mimimise it to the system tray after a 10 second pause to allow for mail collection on Outlook launch.
WScript.Sleep (10000)
Set OLObj = GetObject("","Outlook.Application")
'Activates the window
OLObj.ActiveExplorer.Activate
'Sends the command to minimise
OLObj.ActiveExplorer.WindowState = 1
'Outlook does not immediately minimise to the system tray so that 'Send/Receive' can initiate mail collection.