आउटलुक में अटैचमेंट डालने के लिए फ़ाइल डायलॉग बॉक्स को जल्दी से कैसे खोलें?

आउटलुक में अटैचमेंट डालने के लिए फ़ाइल डायलॉग बॉक्स को तुरंत कैसे खोलें?

लेखक: सिलुविया अंतिम संशोधित: 2022-07-20

जब हमें किसी कंपोजिंग ईमेल में कोई अटैचमेंट डालने की आवश्यकता होती है, तो आमतौर पर हमें इन्सर्ट फाइल डायलॉग बॉक्स खोलने के लिए इन्सर्ट> अटैच फाइल> ब्राउज दिस पीसी पर क्लिक करना होता है, फिर हमें जिस फाइल की जरूरत होती है उसे ढूंढें और डालें। इस ट्यूटोरियल में, हम आपको केवल एक क्लिक से इन्सर्ट फ़ाइल डायलॉग बॉक्स को आसानी से खोलने में मदद करने के लिए दो वीबीए कोड प्रदान करते हैं।

VBA के साथ अनुलग्नक सम्मिलित करने के लिए फ़ाइल डायलॉग बॉक्स को तुरंत खोलें

निम्नलिखित VBA कोड प्राप्त कर सकते हैं:

वीबीए कोड 1: अपने कंप्यूटर में डिफ़ॉल्ट दस्तावेज़ फ़ोल्डर खोलें
वीबीए कोड 2: अपने कंप्यूटर में निर्दिष्ट फ़ोल्डर खोलें

कृपया इसे पूरा करने के लिए निम्नानुसार कार्य करें।

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

2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें टूल्स > संदर्भ, फिर जांचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम इन बॉक्स सन्दर्भ - प्रोजेक्ट1 संवाद बॉक्स।

3। क्लिक करें सम्मिलित करें > मॉड्यूल। फिर निम्नलिखित VBA कोड में से किसी एक को कॉपी करें मॉड्यूल खिड़की.

वीबीए कोड 1: अपने कंप्यूटर में डिफ़ॉल्ट दस्तावेज़ फ़ोल्डर खोलें

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

वीबीए कोड 2: अपने कंप्यूटर में निर्दिष्ट फ़ोल्डर खोलें

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

टिप्पणियाँ:

1) वीबीए कोड 1 आपके कंप्यूटर में डिफ़ॉल्ट दस्तावेज़ फ़ोल्डर खोलने में मदद करता है।

2) वीबीए कोड 2 में, कृपया निम्नलिखित पंक्ति में फ़ोल्डर पथ को उस फ़ोल्डर पथ में बदलें जिसकी आपको आवश्यकता है।
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save अनुलग्नक\"
फिर जब भी आप यह कोड चलाएंगे तो निर्दिष्ट फ़ोल्डर खुल जाएगा।

4। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

अब आपको मैक्रो चलाने के लिए एक बटन की आवश्यकता है।

5। क्लिक करें होम > नई ईमेल एक नया ईमेल बनाने के लिए. संदेश विंडो में, क्लिक करें क्विक एक्सेस टूलबार कस्टमाइज़ करें > अधिक कमांड.

6। में आउटलुक विकल्प डायलॉग बॉक्स, आपको निम्नानुसार कॉन्फ़िगर करना होगा।

6.1) में से कमांड चुनें ड्रॉप-डाउन सूची, का चयन करें मैक्रोज़;

6.2) पिछले चरण में आपके द्वारा जोड़ा गया मैक्रो चुनें;

6.3) क्लिक करें इस मैक्रो को इसमें जोड़ने के लिए बटन क्विक एक्सेस टूलबार कस्टमाइज़ करें डिब्बा।

7. स्क्रिप्ट को दाएँ बॉक्स में चयनित रखें और फिर क्लिक करें सुधारे बटन। में संशोधित करें बटन संवाद बॉक्स में, स्क्रिप्ट के लिए एक नया बटन निर्दिष्ट करें और क्लिक करें OK.

8। क्लिक करें OK में आउटलुक विकल्प परिवर्तनों को सहेजने के लिए संवाद बॉक्स।

9. चरण 7 में आपके द्वारा निर्दिष्ट बटन को फिर इसमें जोड़ा जाता है त्वरित एक्सेस टूलबार. ईमेल लिखते समय, यदि आप कोई अनुलग्नक सम्मिलित करना चाहते हैं, तो आप इसे खोलने के लिए बस इस बटन पर क्लिक कर सकते हैं ब्राउज फ़ोल्डर खोलें और उस फ़ाइल का चयन करें जिसे आपको सम्मिलित करना है।