मुख्य सामग्री पर जाएं

जब प्राप्तकर्ताओं द्वारा अनुलग्नक एक्सेल फ़ाइल खोली जाती है तो ईमेल कैसे भेजें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-08-06

हममें से अधिकांश अपने ग्राहकों को एक्सेल फ़ाइल अनुलग्नक के साथ कुछ महत्वपूर्ण संदेश भेज सकते हैं, इसलिए हमें यह जानना होगा कि क्या प्राप्तकर्ता ने संदेश प्राप्त कर लिया है और फ़ाइल अनुलग्नक खोला है। इस स्थिति में, आप अपनी एक्सेल अटैचमेंट फ़ाइल के लिए एक वीबीए कोड बना सकते हैं, जब प्राप्तकर्ता कार्यपुस्तिका खोलता है और कोड सक्रिय करता है, तो स्वचालित रूप से आपको एक त्वरित ईमेल भेजा जाएगा।

जब प्राप्तकर्ताओं द्वारा वीबीए कोड के साथ अनुलग्नक एक्सेल फ़ाइल खोली जाती है तो एक ईमेल भेजें


तीर नीला दायां बुलबुला जब प्राप्तकर्ताओं द्वारा वीबीए कोड के साथ अनुलग्नक एक्सेल फ़ाइल खोली जाती है तो एक ईमेल भेजें

इस एक्सेल फ़ाइल को भेजने से पहले, आपको निम्नानुसार एक कोड बनाना चाहिए:

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

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

वीबीए कोड: एक्सेल फ़ाइल खुलने पर एक ईमेल भेजें:

Private Sub Workbook_Open()
'Updateby Extendoffice
    Dim olkObj As Object
    Dim olkEm As Object
    Dim strbody As String
    Set olkObj = CreateObject("Outlook.Application")
    Set olkEm = olkObj.CreateItem(0)
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              ThisWorkbook.Name & vbNewLine & _
              "was opened by" & vbNewLine & _
              Environ("username")
    On Error Resume Next
    With olkEm
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "File opened"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set olkEm = Nothing
    Set olkObj = Nothing
End Sub

फ़ाइल खोलने पर दस्तावेज़ भेजें 1

नोट: उपरोक्त कोड में, आपको उस ईमेल पते को अपने स्वयं के पते में बदलना चाहिए जिसे आप शीघ्र ईमेल प्राप्त करना चाहते हैं, और अपनी आवश्यकता के अनुसार विषय को बदल दें।

3. फिर इस कार्यपुस्तिका को इस रूप में सहेजें एक्सेल मैक्रो-सक्षम वर्कबुक फ़ाइल स्वरूप, स्क्रीनशॉट देखें:

फ़ाइल खोलने पर दस्तावेज़ भेजें 2

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

फ़ाइल खोलने पर दस्तावेज़ भेजें 3

नोट: यह विधि केवल तभी उपलब्ध होती है जब आप आउटलुक को अपने मेल प्रोग्राम के रूप में उपयोग करते हैं।

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

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations