Ich habe den obigen Code für einige Zeit verwendet und möchte allen früheren Mitwirkenden für das Teilen ihrer Arbeit / Verbesserungen / Vorschläge danken. In letzter Zeit sind jedoch zwei unerwünschte und irritierende Probleme aufgetreten, wenn es in Verbindung mit Windows 10 (64 Bit) und Outlook 2016 (64 Bit) verwendet wird:
Das Outlook-Symbol in der Taskleiste zeigt eine Zahnradüberlagerung mit der Meldung "Ein anderes Programm verwendet Outlook. Um Programme zu trennen und Outlook zu beenden, klicken Sie auf das Outlook-Symbol und dann auf Jetzt beenden".
Beim Versuch, Outlook über das Kontextmenü "Outlook öffnen" zu öffnen (klicken Sie mit der rechten Maustaste auf das Outlook-Symbol in der Taskleiste), wird ein Dialogfeld mit der Meldung "Kein aktives Explorer-Objekt gefunden" angezeigt. Durch Klicken auf die Option "OK" in der Antwort wird Outlook gestartet (obwohl Problem 1 - Zahnrad-Overlay) weiterhin besteht.
Um die oben genannten Probleme zu lösen, habe ich mich daran gemacht, einen ähnlichen Code zu finden, den ich kompilieren kann, um die gewünschten Ziele des Originalplakats zu erreichen (die meine eigenen Anforderungen widerspiegeln).
Der folgende Code wird "wie besehen" zum weiteren Nutzen anderer SuperUser angeboten. Es ist jedoch wichtig zu beachten, dass ich, obwohl ich den Code auf zwei W10 64-Bit-Systemen (beide mit installiertem 64-Bit-Office) getestet habe, noch eine Laufzeit auflösen muss Ausgabe eines Systems. Der andere funktioniert einwandfrei. Ausführliche Informationen finden Sie bei Bedarf hier: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Ich werde Sie über alle Entwicklungen auf dem Laufenden halten, während die Tests fortgesetzt werden .......
** Schnelles Update ** Jetzt getestet auf HP Elitebook 8440P Laptop - Windows 10 Pro 64 Bit mit Office 64 Bit + gleichen 12 Outlook Addons - Funktioniert einwandfrei gemäß den Anforderungen im obigen Originalbeitrag .....
** Weiteres Update ** Getestet auf einem zweiten HP Elitebook 8440P Laptop - Windows 10 Pro 64 Bit mit Office 64 Bit + gleichen 12 Outlook Addons - RunTime-Fehler erneut aufgetreten :(
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.