J'ai utilisé le code ci-dessus pendant un temps considérable et je remercie tous les contributeurs précédents d'avoir partagé leur travail / améliorations / suggestions. Récemment cependant, j'ai rencontré deux problèmes importuns et irritants lorsqu'il est utilisé avec Windows 10 (64 bits) et Outlook 2016 (64 bits):
L'icône Outlook dans la barre d'état système affiche une superposition «engrenage» avec le message «Un autre programme utilise Outlook. Pour déconnecter des programmes et quitter Outlook, cliquez sur l'icône Outlook, puis sur Quitter maintenant».
Les tentatives d'ouverture d'Outlook à partir du menu contextuel "Ouvrir Outlook" (clic droit sur l'icône Outlook dans la barre d'état) font apparaître une boîte de dialogue indiquant "Aucun objet d'exploration actif trouvé". Cliquer sur l'option "OK" en réponse lance Outlook (bien que le problème 1 - superposition de rouage) reste.
Afin de résoudre les problèmes ci-dessus, je me suis mis à trouver un code similaire que je pourrais compiler pour répondre aux objectifs souhaités de l'affiche originale (qui reflètent mes propres exigences).
Le code ci-dessous est offert "tel quel" pour le plus grand bénéfice des autres SuperUtilisateurs, il est important de noter que même si j'ai testé le code sur deux systèmes W10 64 bits (tous deux avec 64 bits Office installé), je dois encore résoudre un RunTime problème sur l'un des systèmes. Les autres fonctions fonctionnent parfaitement. Tous les détails peuvent être consultés ici si nécessaire: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Je vous tiendrai au courant de tout développement au fur et à mesure que les tests se poursuivront .......
** Mise à jour rapide ** Maintenant testé sur l'ordinateur portable HP Elitebook 8440P - Windows 10 Pro 64 bits avec Office 64 bits + mêmes 12 modules complémentaires Outlook - Fonctionne parfaitement selon les exigences décrites dans le post original ci-dessus .....
** Mise à jour supplémentaire ** Testé sur un deuxième ordinateur portable HP Elitebook 8440P - Windows 10 Pro 64 bits avec Office 64 bits + mêmes 12 modules complémentaires Outlook - Erreur RunTime rencontrée à nouveau :(
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.