Saya telah menggunakan kode di atas untuk waktu yang cukup lama dan ingin mengucapkan terima kasih kepada semua kontributor sebelumnya untuk berbagi pekerjaan / peningkatan / saran mereka. Namun baru-baru ini, saya telah mengalami dua masalah yang tidak disukai dan menjengkelkan ketika digunakan bersama dengan Windows 10 (64 Bit) dan Outlook 2016 (64 Bit) ini adalah:
Ikon Outlook di System Tray menampilkan overlay 'cog' dengan pesan "Program lain menggunakan Outlook. Untuk memutus program dan keluar dari Outlook, klik ikon Outlook lalu klik Exit Now".
Upaya untuk membuka Outlook dari menu konteks 'Open Outlook' (klik kanan ikon Outlook di baki) menyebabkan kotak dialog muncul melaporkan "Tidak ada objek penjelajah aktif yang ditemukan". Mengklik opsi "OK" dalam respons meluncurkan Outlook (meskipun masalah overlay 1-gigi) tetap ada.
Untuk menyelesaikan masalah di atas saya mulai mencari beberapa kode serupa yang dapat saya kompilasi untuk memenuhi tujuan yang diinginkan dari poster asli (yang mencerminkan kebutuhan saya sendiri).
Kode di bawah ini ditawarkan "sebagaimana adanya" untuk manfaat yang lebih luas dari SuperUsers lain, penting untuk dicatat bahwa sementara saya telah menguji kode pada dua sistem W10 64 Bit (keduanya dengan 64 Bit Office diinstal) saya masih harus menyelesaikan RunTime masalah pada satu sistem. Fungsi lainnya dengan sempurna. Detail lengkap dapat dilihat di sini jika diperlukan: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Saya akan membuat Anda menilai setiap perkembangan saat pengujian berlanjut .......
** Pembaruan Cepat ** Sekarang diuji pada Laptop HP Elitebook 8440P - Windows 10 Pro 64 Bit dengan Office 64 Bit + sama 12 Outlook Addons - Fungsi tanpa cacat sesuai persyaratan yang diuraikan dalam posting asli di atas .....
** Pembaruan Lebih Lanjut ** Diuji pada Laptop HP Elitebook 8440P kedua - Windows 10 Pro 64 Bit dengan Office 64 Bit + sama 12 Outlook Addons - Kesalahan RunTime dialami lagi :(
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.