आउटलुक शुरू होने पर एकाधिक आउटलुक विंडो स्वचालित रूप से कैसे खोलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-05-03

जब आप आउटलुक खाता लॉन्च करते हैं, तो मेल विंडो सामान्य रूप से खुलती है। क्या आउटलुक शुरू होने पर उसी समय अन्य आउटलुक विंडो, जैसे मेल, कैलेंडर, संपर्क और कार्य विंडो को स्वचालित रूप से खोलना संभव है?

जब आउटलुक वीबीए कोड के साथ शुरू होता है तो स्वचालित रूप से एकाधिक आउटलुक विंडो खोलें

जब आउटलुक वीबीए कोड के साथ शुरू होता है तो स्वचालित रूप से एकाधिक आउटलुक विंडो खोलें

यहां, मैं आउटलुक लॉन्च करते समय तुरंत कई आउटलुक विंडो, जैसे मेल, कैलेंडर, संपर्क और कार्य विंडो खोलने में आपकी सहायता के लिए एक वीबीए कोड पेश कर सकता हूं। कृपया इस प्रकार करें:

1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मॉड्यूल खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: आउटलुक शुरू होने पर कई आउटलुक विंडो स्वचालित रूप से खोलें:

Private Sub Application_Startup()
Dim xCalendar As Folder
Dim xTasks As Folder
Dim xContacts As Folder
Dim xInbox As Folder
Dim xExplorer As Outlook.Explorer
Dim xWidth, xHeight As Integer
On Error Resume Next
xWidth = Int(GetSystemMetrics32(0) / 4) + 60
xHeight = GetSystemMetrics32(1)
Set xInbox = Outlook.Application.ActiveExplorer.CurrentFolder
xInbox.Display
Set Application.ActiveExplorer.CurrentFolder = xInbox
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = 0
    .Height = xHeight
    .Width = xWidth
End With
Set xCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar)
xCalendar.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
   .Left = xWidth
    .Height = xHeight
    .Width = xWidth
End With
Set xContacts = Outlook.Session.GetDefaultFolder(olFolderContacts)
xContacts.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 2
    .Height = xHeight
    .Width = xWidth
End With
Set xTasks = Outlook.Session.GetDefaultFolder(olFolderTasks)
xTasks.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 3
    .Height = xHeight
    .Width = xWidth
End With
End Sub

दस्तावेज़ एकाधिक विंडोज़ स्टार्टअप खोलें 1

3. फिर क्लिक करते जाइये सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को कॉपी करके खुले हुए रिक्त मॉड्यूल में पेस्ट करें, स्क्रीनशॉट देखें:

Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal xIndex As Long) As Long

दस्तावेज़ एकाधिक विंडोज़ स्टार्टअप खोलें 2

4. फिर कोड सहेजें और बंद करें, कोड प्रभावी करने के लिए आउटलुक को पुनरारंभ करें। अब, आउटलुक खोलते समय, मेल, कैलेंडर, संपर्क और कार्य विंडो स्वचालित रूप से एक साथ खुल जाएंगी, स्क्रीनशॉट देखें:

दस्तावेज़ एकाधिक विंडोज़ स्टार्टअप खोलें 3

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें मुफ्त डाउनलोड खरीद फरोख्त

Comments (6)

No ratings yet. Be the first to rate!