J'ai utilisé le code ci-dessus pendant un certain temps et je tiens à remercier tous les contributeurs précédents d'avoir partagé leur travail/améliorations/suggestions. Cependant, récemment, j'ai rencontré deux problèmes indésirables et irritants lorsqu'il est utilisé en conjonction avec Windows 10 (64 bits) et Outlook 2016 (64 bits) :
-
L'icône d'Outlook dans la barre des tâches affiche une superposition en forme de 'roue dentée' avec le message "Un autre programme utilise Outlook. Pour déconnecter les 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 des tâches) entraînent l'apparition d'une boîte de dialogue signalant "Aucun objet explorateur actif trouvé". En cliquant sur l'option "OK" en réponse, Outlook se lance (bien que le problème 1 - superposition en forme de roue dentée - persiste).
Pour résoudre les problèmes ci-dessus, j'ai entrepris de trouver un code similaire que je pourrais compiler pour répondre aux objectifs souhaités par l'auteur original (qui reflètent également mes propres besoins).
Le code ci-dessous est offert "tel quel" dans le but de bénéficier à d'autres SuperUtilisateurs, il est important de noter que bien que j'ai testé le code sur deux systèmes W10 64 bits (tous deux avec Office 64 bits installé), je dois encore résoudre un problème d'exécution sur l'un des systèmes. L'autre fonctionne impeccablement. Tous les détails peuvent être consultés ici si nécessaire : https://stackoverflow.com/questions/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Je vous tiendrai informé de toute évolution à mesure que les tests se poursuivent...
** Mise à jour rapide ** Maintenant testé sur HP Elitebook 8440P Laptop - Windows 10 Pro 64 bits avec Office 64 bits + les mêmes 12 addons Outlook - Fonctionne impeccablement selon les exigences décrites dans le message original ci-dessus.....
** Mise à jour supplémentaire ** Testé sur un deuxième HP Elitebook 8440P Laptop - Windows 10 Pro 64 bits avec Office 64 bits + les mêmes 12 addons Outlook - Erreur d'exécution encore rencontrée :(
OPTION EXPLICITE
Dim WshShell
Dim OLObj
Set WshShell = WScript. CreateObject ( "Wscript.Shell" )
'Ouvrir Outlook : Notez que malgré les options de lancement, le programme s'ouvrira dans une fenêtre normale.
'Le chemin d'accès au fichier n'est pas nécessaire car Windows 10 détecte correctement l'emplacement d'Outlook.
WshShell.Run "OUTLOOK.EXE" , 3, false
'Cela le minimisera dans la barre des tâches après une pause de 10 secondes pour permettre la récupération des e-mails lors du lancement d'Outlook.
WScript.Sleep (10000)
Set OLObj = GetObject("","Outlook.Application")
'active la fenêtre
OLObj.ActiveExplorer.Activate
'Envoie la commande de minimisation
OLObj.ActiveExplorer.WindowState = 1
'Outlook ne se réduit pas immédiatement dans la barre des tâches afin que 'Envoyer/Recevoir' puisse lancer la récupération des e-mails.