आउटलुक में ईमेल विषय को अनुलग्नक नाम के साथ स्वचालित रूप से कैसे भरें?
जो लोग आउटलुक में ईमेल के विषय के रूप में अनुलग्नक नाम का उपयोग करने के आदी हैं, उनके लिए हर बार विषय पंक्ति में अनुलग्नक नाम को मैन्युअल रूप से टाइप करना समय लेने वाला होगा। जैसा कि नीचे दिए गए GIF में दिखाया गया है, यदि आप अटैचमेंट डालने पर ईमेल विषय पंक्ति को अटैचमेंट नाम के साथ स्वचालित रूप से भरना चाहते हैं, तो इस ट्यूटोरियल में VBA विधि मदद करेगी।
ईमेल विषय को वीबीए कोड के साथ अनुलग्नक नाम के साथ स्वचालित रूप से भरें
आउटलुक में सम्मिलित अनुलग्नक के नाम के साथ ईमेल विषय को स्वचालित रूप से भरने के लिए कृपया निम्नलिखित वीबीए कोड चलाएं।
1. अपना आउटलुक लॉन्च करें, दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें प्रोजेक्ट1 (VbProject.OTM) > माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट्स > यह आउटलुक सत्र को खोलने के लिए यह आउटलुक सत्र (कोड) संपादक।
3. फिर निम्नलिखित VBA कोड को इसमें कॉपी करें यह आउटलुक सत्र (कोड) संपादक।
वीबीए कोड: ईमेल विषय को अनुलग्नक नाम के साथ स्वतः भरें
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. अब आपको कोड को सेव करना होगा और आउटलुक को रीस्टार्ट करना होगा।
5. अब से, जब आप किसी ईमेल में कोई अनुलग्नक डालते हैं जिसमें अभी तक कोई विषय नहीं भरा गया है, तो a आउटलुक के लिए कुटूल संवाद बॉक्स पॉप अप होकर आपसे पूछेगा कि क्या आप अनुलग्नक नाम को विषय के रूप में उपयोग करना चाहते हैं, क्लिक करें हाँ बटन.
फिर विषय पंक्ति स्वचालित रूप से सम्मिलित अनुलग्नक के नाम से भर जाएगी।
नोट्स:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।