আমি উপরের কোডটি কিছু সময়ের জন্য ব্যবহার করেছি এবং পূর্ববর্তী সমস্ত অবদানকারীদের তাদের কাজ / উন্নতি / পরামর্শ ভাগ করে নেওয়ার জন্য ধন্যবাদ জানাতে চাই। উইন্ডোজ 10 (B৪ বিট) এবং আউটলুক ২০১ ((B৪ বিট) এর সাথে একত্রে ব্যবহৃত হলে আমি সম্প্রতি দুটি অপ্রয়োজনীয় এবং বিরক্তিকর সমস্যাগুলি अनुभव করেছি:
সিস্টেম ট্রেতে আউটলুক আইকনটি "অন্য প্রোগ্রাম আউটলুক ব্যবহার করছে programs প্রোগ্রামগুলি সংযোগ বিচ্ছিন্ন করতে এবং আউটলুক থেকে বেরিয়ে আসার জন্য, আউটলুক আইকনটি ক্লিক করুন এবং তারপরে এখনই প্রস্থান করুন" বার্তাটি দিয়ে একটি 'কগ' ওভারলে প্রদর্শন করে।
'ওপেন আউটলুক' কনটেক্সট মেনু থেকে আউটলুক খোলার প্রচেষ্টা (ট্রেতে আউটলুক আইকনে ডান ক্লিক করুন) আইটেমটির ফলে একটি ডায়ালগ বাক্স উপস্থিত হতে পারে "কোনও সক্রিয় এক্সপ্লোরার অবজেক্ট পাওয়া যায় নি"। প্রতিক্রিয়াতে "ওকে" বিকল্পটি ক্লিক করা আউটলুক প্রবর্তন করে (যদিও ইস্যু 1 - কগ ওভারলে) অবশেষ।
উপরের সমস্যাগুলি সমাধান করার জন্য আমি কিছু অনুরূপ কোড সন্ধান করার বিষয়ে সেট করেছি যা আমি মূল পোস্টারের পছন্দসই উদ্দেশ্যগুলি পূরণ করতে সংকলন করতে পারি (যা আমার নিজস্ব প্রয়োজনীয়তাগুলি মিরর করে)।
অন্যান্য সুপার-ব্যবহারকারীদের বিস্তৃত সুবিধার জন্য নীচের কোডটি "যেমন রয়েছে" দেওয়া হচ্ছে, এটি লক্ষ্য করা গুরুত্বপূর্ণ যে আমি দুটি ডাব্লু 10 64 বিট সিস্টেমে কোড পরীক্ষা করেছি (উভয়ই 64 বিট অফিস ইনস্টল করা আছে) আমি এখনও রানটাইম সমাধান করতে চাই একটি সিস্টেম ইস্যু। অন্য ফাংশন নির্দোষভাবে। প্রয়োজনে পুরো বিশদটি এখানে দেখা যাবে: /programming/45533261/start-outlook-2016-64-bit-automatic-minimised-to-windows-10-64-bit-s system
পরীক্ষা চলতে থাকায় আমি আপনাকে যে কোনও উন্নয়ন সম্পর্কে মূল্যায়ন করব!
** দ্রুত আপডেট ** এখন এইচপি এলিটবুক ৮৪৪০ পি ল্যাপটপে পরীক্ষা করা হয়েছে - উইন্ডোজ 10 প্রো Office৪ বিট অফিস 64 বিট + একই 12 আউটলুক অ্যাডনস - উপরের মূল পোস্টে বর্ণিত প্রয়োজনীয়তা অনুসারে নির্বিঘ্নে কাজগুলি .....
** আরও আপডেট ** দ্বিতীয় এইচপি এলিটবুক ৮৪৪০ পি ল্যাপটপে পরীক্ষিত - উইন্ডোজ 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.