मैंने कुछ महत्वपूर्ण समयों के लिए उपरोक्त कोड का उपयोग किया है और अपने कार्य / सुधार / सुझावों को साझा करने के लिए सभी पिछले योगदानकर्ताओं को धन्यवाद देना चाहूंगा। हाल ही में, जब मैंने विंडोज 10 (64 बिट) और आउटलुक 2016 (64 बिट) के साथ संयोजन में उपयोग किया जाता है, तो दो अवांछित और परेशान मुद्दों का अनुभव किया है:
सिस्टम ट्रे में आउटलुक आइकन, संदेश के साथ एक 'कॉग' ओवरले प्रदर्शित करता है "आउटलुक का उपयोग कर रहा है। प्रोग्राम डिस्कनेक्ट करने और आउटलुक से बाहर निकलने के लिए, आउटलुक आइकन पर क्लिक करें और फिर बाहर निकलें पर क्लिक करें"।
आउटलुक को 'ओपन आउटलुक' संदर्भ मेनू से खोलने का प्रयास (राइट ट्रे में आउटलुक आइकन पर क्लिक करें) आइटम "कोई सक्रिय एक्सप्लोरर ऑब्जेक्ट नहीं मिला" रिपोर्टिंग के लिए एक संवाद बॉक्स का कारण बनता है। प्रतिक्रिया में "ओके" विकल्प पर क्लिक करने से आउटलुक लॉन्च होता है (हालांकि अंक 1 - कोग ओवरले) रहता है।
ऊपर दिए गए मुद्दों को हल करने के लिए मैंने कुछ समान कोड खोजने के बारे में निर्धारित किया है जो मैं मूल पोस्टर के वांछित उद्देश्यों को पूरा करने के लिए संकलित कर सकता हूं (जो मेरी अपनी आवश्यकताओं को दर्पण करता है)।
नीचे दिए गए कोड को "के रूप में" अन्य सुपरयूजर के व्यापक लाभ के लिए पेश किया गया है, यह ध्यान रखना महत्वपूर्ण है कि जब तक मैंने दो W10 64 बिट सिस्टम (64 बिट ऑफिस स्थापित दोनों के साथ) कोड का परीक्षण किया है, मैं अभी भी एक रनटाइम को हल करने के लिए हूं एक सिस्टम पर मुद्दा। अन्य कार्य त्रुटिपूर्ण हैं। यदि आवश्यक हो तो पूर्ण विवरण यहां देखा जा सकता है: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
मैं आपको किसी भी घटनाक्रम से अवगत कराता रहूँगा क्योंकि परीक्षण जारी है ……।
** त्वरित अद्यतन ** अब HP EliteBook 8440P लैपटॉप पर परीक्षण किया गया है - विंडोज 10 प्रो 64 बिट ऑफ़िस 64 बिट + के साथ ही 12 आउटलुक एडन - ऊपर की मूल पोस्ट में उल्लिखित आवश्यकताओं के अनुसार निर्दोष रूप से कार्य करता है .....
** आगे अद्यतन ** एक दूसरे एचपी एलीटबुक 8440P लैपटॉप पर परीक्षण किया गया - विंडोज 10 प्रो 64 बिट के साथ कार्यालय 64 बिट + वही 12 आउटलुक एडन - रनटाइम त्रुटि फिर से अनुभव किया :(
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.