एक्सेल ट्यूटोरियल - एक्सेल से ईमेल भेजें

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

नोट: निम्नलिखित विधियों को लागू करने से पहले, आपको अपने कंप्यूटर में एक आउटलुक ईमेल क्लाइंट को कॉन्फ़िगर करना होगा और इसे अपने डिफ़ॉल्ट ईमेल क्लाइंट के रूप में सेट करना होगा।

1. एक्सेल से ईमेल भेजने की मूल बातें

यह अनुभाग Excel से ईमेल भेजने की मूल बातें प्रस्तुत करता है।

1.1 एक्सेल से ईमेल भेजें एक्सेल बिल्ट-इन फ़ंक्शंस के साथ

यदि आप एक्सेल से केवल साधारण ईमेल भेजना चाहते हैं, जिसमें केवल प्रति, विषय, सीसी और बॉडी फ़ील्ड शामिल हैं। एक्सेल में अंतर्निहित फ़ंक्शन मदद कर सकते हैं।

1.1.1 एक्सेल से एक सूत्र के साथ ईमेल भेजें

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

नोट: यदि To या Cc फ़ील्ड में एक से अधिक प्राप्तकर्ता हैं, तो कृपया उन्हें अर्धविराम से अलग करें।

हाइपरलिंक फ़ॉर्मूले में ईमेल पता, सीसी प्राप्तकर्ता, विषय पंक्ति और मुख्य पाठ को अलग-अलग जोड़ने के चरण दिखाने के लिए इस अनुभाग को चार भागों में विभाजित किया गया है। कृपया निम्नानुसार करें.

का वाक्यविन्यास और तर्क हाइपरलिंक समारोह इस प्रकार हैं।

वाक्य - विन्यास

HYPERLINK(link_location, [friendly_name])

तर्क

1.1.1.1 हाइपरलिंक सूत्र में ईमेल पता जोड़ें

यहाँ हम उपयोग करते हैं "मेलटू:" ईमेल प्राप्तकर्ता को जोड़ने के सूत्र के भाग के रूप में। इस उदाहरण में, पहले प्राप्तकर्ता का ईमेल पता सेल बी2 में है, इसलिए हमें "mailto:" जोड़ने और इसे सेल बी2 में संदर्भित करने की आवश्यकता है।

"मेलटू:"&बी2

1. हाइपरलिंक प्रदर्शित करने के लिए एक सेल का चयन करें। इस स्थिति में, मैं सेल F2 का चयन करता हूँ।

2. फिर इसमें निम्न सूत्र दर्ज करें।

=HYPERLINK("mailto:"&B2)

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

प्राप्तकर्ता का ईमेल पता अब हाइपरलिंक सूत्र में जोड़ा गया है। कृपया अपनी आवश्यकतानुसार विषय पंक्ति, सीसी प्राप्तकर्ता(ओं) और मुख्य पाठ को जोड़ने के लिए निम्नलिखित चरणों को जारी रखें।

1.1.1.2 हाइपरलिंक सूत्र में सीसी प्राप्तकर्ता जोड़ें

हाइपरलिंक फ़ंक्शन में सीसी प्राप्तकर्ता को जोड़ने के लिए, कृपया जोड़ें "?cc=" सूत्र के भाग के रूप में निम्नानुसार है।

सेल F2 में सूत्र इस प्रकार होना चाहिए:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2)

1.1.1.3 हाइपरलिंक सूत्र में विषय पंक्ति जोड़ें

हाइपरलिंक फ़ंक्शन में विषय पंक्ति जोड़ने के लिए, कृपया जोड़ें "&विषय =" सूत्र के भाग के रूप में निम्नानुसार है।

सेल F2 में सूत्र अब निम्नलिखित जैसा दिखना चाहिए:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2)

1.1.1.4 हाइपरलिंक फ़ॉर्मूले में लाइन ब्रेक के साथ बॉडी टेक्स्ट जोड़ें

अंतिम चरण मुख्य पाठ को हाइपरलिंक सूत्र में जोड़ना है। जैसा कि आप उदाहरण में देख सकते हैं, E2 में टेक्स्ट की दो पंक्तियों को एक लाइन ब्रेक द्वारा अलग किया गया है, और आप लाइन ब्रेक को ईमेल बॉडी में रखना चाहते हैं। क्या आउटलुक इस परिस्थिति में लाइन ब्रेक को पहचानता है? आइए इसकी जाँच करें।

हाइपरलिंक फ़ॉर्मूला में बॉडी टेक्स्ट जोड़ने के लिए, आपको जोड़ना होगा "&शरीर=" सूत्र के भाग के रूप में निम्नानुसार है।

सेल F2 में सूत्र अब इस प्रकार प्रदर्शित होता है:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2)

नोट: आप दबाते हैं दर्ज कुंजी और लिंक पर क्लिक करें। आप नए ईमेल में देख सकते हैं कि ईमेल के मुख्य भाग की सामग्री एक ही पंक्ति में प्रदर्शित होती है।

ईमेल बॉडी को अलग-अलग पंक्तियों में प्रदर्शित करने के लिए, आपको कैरिएज रिटर्न कैरेक्टर कोड जोड़कर सेल सामग्री को संशोधित करना होगा % 0 ए उस पाठ में जहां आपको एक पंक्ति विराम सम्मिलित करने की आवश्यकता है। स्क्रीनशॉट देखें:

1.1.1.5 हाइपरलिंक के लिए प्रदर्शित होने वाला टेक्स्ट निर्दिष्ट करें

उपरोक्त चरणों में, हमने ईमेल फ़ील्ड के साथ Link_location तर्क समाप्त किया। यहां इस अनुभाग में, हम अगला तर्क [दोस्ताना_नाम] समाप्त करने जा रहे हैं।

इस मामले में, मैं चाहता हूं कि हाइपरलिंक सेल टेक्स्ट को "के रूप में प्रदर्शित करे"xx को ईमेल करें”, जहां A2 में xx प्राप्तकर्ता का नाम है। इसलिए, F2 में सूत्र को इसमें बदला जाना चाहिए:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2, "Email to "&A2)

प्रेस दर्ज परिणाम प्राप्त करने की कुंजी.

इस सूत्र सेल का चयन करें और इसे खींचें स्वतः भरण हैंडल अन्य ईमेल हाइपरलिंक बनाने के लिए नीचे जाएँ। स्क्रीनशॉट देखें:

1.1.2 हाइपरलिंक फ़ंक्शन के साथ एक्सेल से ईमेल भेजें

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

1. उस ईमेल पर राइट क्लिक करें जहां आप हाइपरलिंक डालना चाहते हैं, चुनें संपर्क राइट-क्लिक मेनू से।

2. पॉप अप में हाइपरलिंक डालें डायलॉग बॉक्स, आपको निम्नानुसार कॉन्फ़िगर करना होगा।

2.1) चुनें ईमेल पता बाएं फलक में

2.2) में प्रदर्शित करने के लिए पाठ टेक्स्टबॉक्स, वह टेक्स्ट टाइप करें जिसे आप सेल में प्रदर्शित करना चाहते हैं;

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

2.3) में ई - मेल पते टेक्स्टबॉक्स, आपको निम्नलिखित ईमेल पते टाइप करने होंगे।

मेलटू:ईमेल पता

कृपया पाठ बदलें "ईमेल पता"आपके वास्तविक ईमेल पते के साथ। यदि आपके पास एक से अधिक ईमेल पते हैं, तो उन्हें अर्धविराम से अलग करें।

2.4) में विषय टेक्स्टबॉक्स, आप अपना ईमेल विषय और ईमेल का मुख्य भाग यहीं निर्दिष्ट कर सकते हैं। कृपया निम्नानुसार कॉन्फ़िगर करें:

ईमेल विषय&शरीर=ईमेल मुख्य भाग

इस मामले में, मैं टाइप करता हूं मासिक बिक्री&बॉडी=हाय,%0Aईमेल प्राप्त हुआ.

> जहां विषय मासिक बिक्री है;

और

> ईमेल का मुख्य भाग है:

हाय,

ईमेल प्राप्त हुआ. (% 0 ए कैरिज रिटर्न कैरेक्टर कोड है जिसे आउटलुक द्वारा पहचाना जा सकता है)

2.5) क्लिक करें OK हाइपरलिंक को सहेजने के लिए बटन। स्क्रीनशॉट देखें:

हाइपरलिंक पर क्लिक करने पर, नीचे दिए गए स्क्रीनशॉट में दिखाए गए अनुसार निर्दिष्ट To, Subject और बॉडी फ़ील्ड के साथ एक आउटलुक ईमेल बनाया जाएगा।

नोट्स:

1.2 वीबीए स्क्रिप्ट वाले सेल में एकाधिक प्राप्तकर्ताओं को ईमेल भेजें

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

1.2.1 वीबीए स्क्रिप्ट वाले सेल में एकाधिक प्राप्तकर्ताओं को एक ईमेल भेजें

1. वर्कशीट में वे सभी ईमेल पते शामिल हैं जिन पर आप ईमेल भेजना चाहते हैं। दबाओ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

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

वीबीए कोड: ईमेल पतों की सूची में ईमेल भेजें

Sub sendmultiple()
'updateby Extendoffice 20220802
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Subject = "Test"
        .Body = "Dear " _
                & vbNewLine & vbNewLine & _
                "This is a test email " & _
                "sending in Excel"
        .Display
    End With
End Sub

3। दबाएं F5 कोड चलाने के लिए कुंजी और a एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है. ईमेल पतों की सूची चुनें और क्लिक करें OK.

टिप्पणियाँ:

.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

कोड चलाने के बाद, चयनित श्रेणी के सभी ईमेल पते संदेश विंडो के To फ़ील्ड में प्रदर्शित होते हैं। स्क्रीनशॉट देखें:

1.2.2 वीबीए स्क्रिप्ट वाले सेल में सूचीबद्ध प्रत्येक प्राप्तकर्ता को अलग से ईमेल भेजें

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

1. वर्कशीट में वे सभी ईमेल पते शामिल हैं जिन पर आप ईमेल भेजना चाहते हैं। दबाओ ऑल्ट + F11 की चाबी एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलें.

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

वीबीए कोड: सेल में सूचीबद्ध प्रत्येक ईमेल पते पर अलग से ईमेल भेजें

Sub SendEmailToAddressInCells()
'Updated by Extendoffice 20220802
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

3। तब दबायें टूल्स > संदर्भ। में सन्दर्भ - वीबीएप्रोजेक्ट संवाद बॉक्स, ढूंढें और जांचें माइक्रोसॉफ्ट आउटलुक 16.0 ऑब्जेक्ट लाइब्रेरी बॉक्स और फिर क्लिक करें OK परिवर्तनों को सहेजने के लिए बटन

4। दबाएं F5 कोड चलाने के लिए कुंजी और a एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है. ईमेल पते की सूची चुनें और क्लिक करें ठीक है.

टिप्पणियाँ:

.Subject = "Test"
.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

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

5. अंत में क्लिक करें भेजें ईमेल को एक-एक करके भेजने के लिए बटन।

2. एक्सेल से भेजे गए ईमेल में अटैचमेंट या आउटलुक हस्ताक्षर डालें (वीबीए स्क्रिप्ट के साथ)

यह अनुभाग आपको दिखाएगा कि एक्सेल से भेजे गए ईमेल में अटैचमेंट या आउटलुक डिफ़ॉल्ट हस्ताक्षर कैसे डालें।

2.1 एक्सेल से भेजे गए ईमेल में अटैचमेंट डालें

यहां हम अटैचमेंट डालने के विभिन्न मामलों का वर्णन करते हैं, और आप अपनी आवश्यकताओं के अनुसार विधि चुन सकते हैं। इस अनुभाग में, आप यह सीख सकते हैं (संबंधित विधि पर नेविगेट करने के लिए निम्नलिखित में से किसी भी लिंक पर क्लिक करें):

2.1.1 एक निश्चित फ़ाइल को अनुलग्नक के रूप में ईमेल करें

आप Excel से अनुलग्नकों के रूप में किसी फ़ोल्डर में एक या अधिक फ़ाइलों को ईमेल करने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं।

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर निम्नलिखित VBA कोड को मॉड्यूल (कोड) विंडो में पेस्ट करें।

वीबीए कोड: एक्सेल से अटैचमेंट के रूप में एक फ़ोल्डर में फ़ाइलें ईमेल करें

Sub EmailWithAttachments()
'Updated by Extendoffice 20220802
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = ""
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

नोट्स:

3। तब दबायें टूल्स > संदर्भ। में सन्दर्भ - वीबीएप्रोजेक्ट संवाद बॉक्स, ढूंढें और जांचें माइक्रोसॉफ्ट आउटलुक 16.0 ऑब्जेक्ट लाइब्रेरी बॉक्स और फिर क्लिक करें OK परिवर्तनों को सहेजने के लिए बटन

4। दबाएं F5 कोड चलाने के लिए कुंजी, फिर a ब्राउज विंडो पॉप अप होती है, कृपया उन फ़ाइलों का चयन करें जिन्हें आपको ईमेल में संलग्न करना है, और फिर क्लिक करें OK.

फिर एक संदेश विंडो पॉप अप होती है. आप देख सकते हैं कि चयनित फ़ाइलें संलग्न फ़ील्ड में अनुलग्नकों के रूप में प्रदर्शित होती हैं।

2.1.2 वर्तमान वर्कशीट को अनुलग्नक के रूप में ईमेल करें

यदि आप वर्तमान वर्कशीट को एक्सेल से अनुलग्नक के रूप में ईमेल करना चाहते हैं, तो आप इस अनुभाग में वीबीए स्क्रिप्ट लागू कर सकते हैं।

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें डालने के > मॉड्यूल. फिर निम्नलिखित VBA कोड को इसमें पेस्ट करें मॉड्यूल (कोड) खिड़की.

वीबीए कोड: वर्तमान वर्कशीट को अनुलग्नक के रूप में ईमेल करें

Sub SendWorkSheet()
'Update by Extendoffice 20220802
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

टिप्पणियाँ:

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

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

2.1.3 वर्तमान कार्यपुस्तिका को अनुलग्नक के रूप में ईमेल करें

एक्सेल से वर्तमान वर्कशीट को अनुलग्नक के रूप में ईमेल करने के लिए वीबीए कोड सीखने के बाद, यहां हम संपूर्ण कार्यपुस्तिका को अनुलग्नक के रूप में ईमेल करने में आपकी सहायता के लिए एक और वीबीए स्क्रिप्ट प्रदान करते हैं। कृपया निम्नानुसार करें.

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल। फिर निम्नलिखित VBA कोड को मॉड्यूल (कोड) विंडो में पेस्ट करें।

वीबीए कोड: वर्तमान कार्यपुस्तिका को एक्सेल से अनुलग्नक के रूप में ईमेल करें

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

टिप्पणियाँ:

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

2.1.4 संपूर्ण कार्यपुस्तिका को पीडीएफ अनुलग्नक के रूप में ईमेल करें

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

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल। फिर निम्नलिखित VBA कोड को मॉड्यूल (कोड) विंडो में पेस्ट करें।

वीबीए कोड: संपूर्ण कार्यपुस्तिका को पीडीएफ अनुलग्नक के रूप में ईमेल करें

Sub SendWorkBookAsPDF()
'Update 20220803
Dim Wb As Workbook
Dim FilePath As String
Dim FileName As String
Dim xOutApp As Object
Dim xOutMail As Object
On Error Resume Next

Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
FileName = Left(Wb.Name, (InStrRev(Wb.Name, ".", -1, vbTextCompare) - 1)) & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
FilePath = Environ$("temp") & "\" & FileName

Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePath, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
With xOutMail
       .To = ""
       .CC = "Email Address"
       .BCC = "Email Address"
       .Subject = "test"
       .Body = "test"
       .Attachments.Add FilePath
       .Display   'or use .Send
   End With
Kill FilePath
Set xOutMail = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub

टिप्पणियाँ:

3। दबाएं F5 कोड चलाने की कुंजी. फिर वर्तमान कार्यपुस्तिका स्वचालित रूप से एक पीडीएफ फ़ाइल अनुलग्नक के रूप में एक नई संदेश विंडो में डाली जाती है। स्क्रीनशॉट देखें:

2.1.5 वर्तमान वर्कशीट को पीडीएफ अनुलग्नक के रूप में ईमेल करें

उदाहरण के लिए, "मासिक बिक्री" नामक एक कार्यपुस्तिका है, और आपने "बिक्री रिपोर्ट" नामक कार्यपत्रक में एक बिक्री रिपोर्ट तालिका समाप्त कर ली है और इस कार्यपत्रक को पीडीएफ फ़ाइल के रूप में अपने सहकर्मियों को भेजना चाहते हैं। निम्नलिखित VBA कोड आपका भला कर सकता है।

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें डालने के > मॉड्यूल। फिर निम्नलिखित VBA कोड को मॉड्यूल (कोड) विंडो में पेस्ट करें।

वीबीए कोड: वर्तमान वर्कशीट को पीडीएफ अनुलग्नक के रूप में ईमेल करें

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

टिप्पणियाँ:

3। दबाएं F5 कोड चलाने की कुंजी. फिर वर्तमान वर्कशीट स्वचालित रूप से एक पीडीएफ फाइल अनुलग्नक के रूप में एक नई संदेश विंडो में डाली जाती है। स्क्रीनशॉट देखें:

2.2 एक्सेल से भेजे गए ईमेल में आउटलुक हस्ताक्षर डालें

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

दो वीबीए कोड नीचे सूचीबद्ध हैं।

वीबीए कोड 1: कोड आउटलुक हस्ताक्षर को बनाए रखने में मदद करता है।

वीबीए कोड 2: कोड वर्तमान वर्कशीट को पीडीएफ अनुलग्नक के रूप में ईमेल करने में मदद करता है।

वीबीए कोड 1: आउटलुक हस्ताक्षर बनाए रखें

.HTMLBody = "Email body" & "
" & .HTMLBody

वीबीए कोड 2: वर्तमान वर्कशीट को पीडीएफ अनुलग्नक के रूप में ईमेल करें

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

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

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

3. एक्सेल से भेजे गए ईमेल में आउटलुक डिफ़ॉल्ट हस्ताक्षर बनाए रखने के लिए, आपको वीबीए कोड 2 को निम्नानुसार संशोधित करना होगा:

संशोधन के बाद पूरा कोड यहां दिया गया है।

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .Display
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .HTMLBody = "Email body" & "
" & .HTMLBody
    .Attachments.Add FileName
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

4। दबाएं F5 कोड चलाने की कुंजी. फिर आपको एक नई संदेश विंडो मिलेगी जिसमें वर्तमान वर्कशीट एक पीडीएफ फाइल के रूप में संलग्न होगी, जबकि आउटलुक डिफ़ॉल्ट हस्ताक्षर स्वचालित रूप से ईमेल बॉडी के अंत में डाला जाएगा।

3. शर्त पूरी होने पर एक्सेल से स्वचालित रूप से ईमेल भेजें (वीबीए स्क्रिप्ट के साथ)

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

3.1 जब कोई सेल एक निश्चित मान तक पहुँचता है तो स्वचालित रूप से एक ईमेल भेजें

जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, मान लीजिए कि आपके पास सेल D6 के साथ एक बिक्री तालिका है जिसमें कुल बिक्री शामिल है। आप कुल बिक्री के आधार पर अपने बॉस को स्वचालित रूप से एक ईमेल भेजना चाहते हैं, उदाहरण के लिए, बिक्री कुल 10000 से अधिक होने पर स्वचालित रूप से एक ईमेल बनाएं या भेजें लेकिन यदि बिक्री कुल 10000 के बराबर या उससे कम है, तो कोई कार्रवाई नहीं की जाती है।

1. वर्कशीट में बिक्री तालिका शामिल है, शीट टैब पर राइट क्लिक करें और क्लिक करें कोड देखें राइट-क्लिक मेनू से।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो में निम्नलिखित VBA कोड चिपकाएँ शीट (कोड) खिड़की.

वीबीए कोड: जब कोई सेल एक्सेल में एक निश्चित मान तक पहुंचता है तो स्वचालित रूप से एक ईमेल भेजें

Dim xRg As Range
'Update by Extendoffice 20200803
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D6"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 10000 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")
On Error Resume Next
With xOutMail
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Private Sub Worksheet_Calculate()
Dim xI As Integer
Dim xRg As Range
Set xRg = Range("D6")
On Error GoTo Err01
xI = Int(xRg.Value)
If xI > 10000 Then
Call Mail_small_Text_Outlook
End If
Err01:
End Sub

नोट्स:

xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")

अब से, जब सेल D6 में मान 10000 से अधिक हो जाएगा, तो एक ईमेल बनाया जाएगा जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

3.2 सेल मान बदलने पर स्वचालित रूप से एक ईमेल भेजें

जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, मान लीजिए कि आपको एक कार्यपुस्तिका प्राप्त होती है जिसमें विभिन्न कार्यपत्रकों में मासिक बिक्री और एक कार्यपत्रक में कुल बिक्री शामिल है। आपको कुल बिक्री को सत्यापित करने की आवश्यकता है और यदि कुल बिक्री संशोधित है, तो कार्यपुस्तिका प्रेषक को वापस भेजें और प्रेषक को सूचित करें कि सेल को संशोधित किया गया है।

1. वर्कशीट में बिक्री तालिका शामिल है, शीट टैब पर राइट क्लिक करें और क्लिक करें कोड देखें राइट-क्लिक मेनू से।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, शीट (कोड) विंडो में निम्नलिखित VBA कोड चिपकाएँ।

वीबीए कोड: निर्दिष्ट सेल मान में परिवर्तन होने पर स्वचालित रूप से एक ईमेल भेजें

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220803
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xBoolean = False
Set xRg = Range("B14")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
Set xRgSel = xItsRG
xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
Set xRgSel = xDDs
xBoolean = True
ElseIf Not (xDs Is Nothing) Then
Set xRgSel = xDs
xBoolean = True
End If

ActiveWorkbook.Save
If xBoolean Then
Debug.Print xRgSel.Address

Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "The cell " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."

With xMailItem
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "Worksheet modified"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

नोट्स: कोड में,

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

3.3 कार्यपुस्तिका सहेजे जाने पर स्वचालित रूप से एक ईमेल भेजें

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

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

2. इस विंडो में डबल क्लिक करें यह में परियोजना फलक, फिर निम्नलिखित VBA कोड को इसमें पेस्ट करें यह कार्यपुस्तिका (कोड) खिड़की.

वीबीए कोड: कार्यपुस्तिका सहेजे जाने पर स्वचालित रूप से एक ईमेल भेजें

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20220804
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .Subject = "The workbook has been updated"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

नोट्स: कोड में,

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

टिप्स: यदि आप अक्सर इस कार्यपुस्तिका का उपयोग करते हैं, तो यहां अनुशंसा की जाती है कि आप कार्यपुस्तिका को एक के रूप में सहेजें एक्सेल मैक्रो-सक्षम वर्कबुक भविष्य में उपयोग के लिए VBA स्क्रिप्ट को सहेजने के लिए। चरण इस प्रकार हैं.

3.4 एक विशिष्ट समय पर स्वचालित रूप से एक ईमेल भेजें

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

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

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

वीबीए कोड1: वर्तमान कार्यपुस्तिका को एक्सेल से अनुलग्नक के रूप में ईमेल करें

Sub Timer()
    If Weekday(Date) = vbFriday Then
        SendWorkBook
        Application.OnTime TimeValue("09:00:00"), "Timer"
    Else
        Application.OnTime TimeValue("09:00:00"), "Timer"
    End If
End Sub

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. इस विंडो में डबल क्लिक करें यह में परियोजना फलक, फिर निम्नलिखित VBA कोड को इसमें पेस्ट करें यह कार्यपुस्तिका (कोड) खिड़की.

वीबीए कोड 2: एक विशिष्ट समय पर स्वचालित रूप से एक ईमेल भेजें

Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00:00"), "Timer"
End Sub

नोट्स:

4. कोड सहेजें और फिर कार्यपुस्तिका को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका के रूप में निम्नानुसार सहेजें।

5. अपनी सहेजी गई मैक्रो-सक्षम कार्यपुस्तिका खोलें, फिर दिन और समय आने पर एक ईमेल स्वचालित रूप से बनाई या भेजी जाएगी।

4. अतिरिक्त विषय

यह अनुभाग एक्सेल से ईमेल भेजते समय आपके सामने आने वाले अन्य विषयों को एकत्रित करता है।

4.1 एक्सेल से सेल की एक श्रृंखला को ईमेल करें (वीबीए स्क्रिप्ट के साथ)

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

4.1.1 एक्सेल से मुख्य सामग्री के भाग के रूप में एक श्रेणी ईमेल करें

आप एक्सेल से ईमेल बॉडी सामग्री के हिस्से के रूप में सेल की एक श्रृंखला भेजने के लिए निम्नलिखित वीबीए कोड चला सकते हैं

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

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

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

वीबीए कोड: एक्सेल से ईमेल बॉडी सामग्री के हिस्से के रूप में कोशिकाओं की एक श्रृंखला भेजें

Sub SendARangeofCells()
'Updated by Extendoffice 20220809
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "test"
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

नोट्स: कोड में,

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

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

4.1.2 एक्सेल से अनुलग्नक के रूप में एक श्रेणी ईमेल करें

यदि आपको Excel से अनुलग्नक के रूप में किसी कार्यपत्रक में कक्षों की श्रेणी को ईमेल करने की आवश्यकता है। आप निम्नलिखित VBA कोड आज़मा सकते हैं.

1। दबाएं ऑल्ट + F11 चांबियाँ।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर निम्नलिखित VBA कोड को इसमें पेस्ट करें मॉड्यूल (कोड) खिड़की.

वीबीए कोड: एक्सेल से अनुलग्नक के रूप में एक श्रेणी ईमेल करें

Sub SendRange()
'Update 20220809
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = ""
    .CC = "Email address"
    .BCC = "Email address"
    .Subject = "Monthly sales for 2021"
    .Body = "Hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

नोट्स:

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

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

4.2 एक्सेल में किसी बटन पर क्लिक करने पर ईमेल भेजें

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

1। क्लिक करें डेवलपर > सम्मिलित करें > कमांड बटन (एक्टिवएक्स कंट्रोल). फिर वर्कशीट में एक कमांड बटन बनाएं।

टिप्स: यदि आपके पास पहले से ही कमांड बटन है, तो इस चरण को छोड़ दें।

2। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। विंडो में, क्लिक करें सम्मिलित करें > मोड्यू, फिर मॉड्यूल (कोड) विंडो में वीबीए कोड (एक्सेल से अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका को ईमेल करने के लिए उपयोग किया जाने वाला कोड) पेस्ट करें।

कोड प्राप्त करने के लिए यहां क्लिक करें.

नोट: यहां चरण 2 में आपके द्वारा बनाए गए मैक्रो का नाम है कार्यपुस्तिका भेजें.

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

4. अब आपको मैक्रो को कमांड बटन पर असाइन करना होगा। कमांड बटन पर राइट क्लिक करें, चयन करें कोड देखें राइट-क्लिक मेनू से

5. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो पॉप अप होती है, आप देख सकते हैं कि निम्नलिखित दो पंक्तियाँ सूचीबद्ध हैं शीट (कोड) खिड़की.

Private Sub CommandButton1_Click()
End Sub

6. कमांड बटन के लिए उपप्रक्रिया के अंदर मौजूदा मैक्रो का नाम दर्ज करें।

7। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ विजुअल बेसिक एडिटर, और क्लिक करें डेवलपर > डिजाइन मोड डिज़ाइन मोड बंद करने के लिए.

अब आप ईमेल में अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका के साथ ईमेल भेजने के लिए कमांड बटन पर क्लिक कर सकते हैं।

4.3 किसी निर्दिष्ट ईमेल खाते से ईमेल भेजें

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

इस मामले में निम्नलिखित कोड आवश्यक हैं।

वीबीए कोड 1:

Dim OutlookMail As Outlook.MailItem

वीबीए कोड 2:

For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next

उपरोक्त VBA कोड का उपयोग कैसे करें?

इस उदाहरण में, हम एक्सेल से अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका भेजने के लिए एक निश्चित ईमेल खाता निर्दिष्ट करने जा रहे हैं। कृपया निम्नानुसार करें.

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल. फिर निम्नलिखित VBA कोड को इसमें पेस्ट करें मॉड्यूल (कोड) खिड़की.

वीबीए कोड: वर्तमान कार्यपुस्तिका को एक निर्दिष्ट आउटलुक खाते के माध्यम से एक्सेल से ईमेल अनुलग्नक के रूप में भेजें

Sub SendWorkBook()
'Update by Extendoffice 20220809
Dim OutlookApp As Object
Dim OutlookMail As Outlook.MailItem 'important! Here can’t be declared as Object
Dim xAccount As Account
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
On Error Resume Next
'The following lines helps to specify a certian email account
For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next
'End
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3। दबाएं F5 कोड चलाने की कुंजी. फिर एक आउटलुक ईमेल संदेश पॉप अप होता है, आप देख सकते हैं कि से फ़ील्ड आपके द्वारा कोड में निर्दिष्ट ईमेल खाते से भर जाती है।

4.4 तारीख आने पर ईमेल भेजें

यदि आपको किसी विशिष्ट नियत तिथि के आधार पर ईमेल भेजने की आवश्यकता है, उदाहरण के लिए, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, तो एक प्रोजेक्ट तालिका है, जब E2:E7 की सीमा में देय तिथि आज से 7 दिनों के बराबर या उससे कम हो (मान लें कि वर्तमान तिथि 2022/8/4 है), संबंधित परियोजना नेताओं को स्वचालित रूप से एक ईमेल भेजा जाएगा और उन्हें सूचित किया जाएगा कि परियोजना समाप्त होने वाली है।

1. वर्कशीट में प्रोजेक्ट टेबल है, शीट टैब पर राइट क्लिक करें और क्लिक करें कोड देखें राइट-क्लिक मेनू से।

2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो में निम्नलिखित VBA कोड चिपकाएँ शीट (कोड) खिड़की.

वीबीए कोड: नियत तिथि पूरी होने पर स्वचालित रूप से एक ईमेल भेजें

Public Sub SendMailDueDate()
'Updated by Extendoffice 20220804
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Range("E2:E7") 'Please reference the due date column range
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Range("C2:C7") 'Please reference the email addresses column range
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Range("D2:D7") 'Please reference the remark column range (the remark used to notify project leaders of the expiration of the project)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "

"
            xMailBody = ""
            xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
            xMailBody = xMailBody & "Remark : " & xRgText.Offset(i - 1).Value & vbCrLf
            xMailBody = xMailBody & ""
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.CC = "Email address"
.BCC = "Email address"
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub

नोट्स: कोड में,

3। दबाएं F5 कोड चलाने की कुंजी. फिर, यदि समाप्ति तिथि शर्तों से मेल खाती है, तो संबंधित ईमेल बनाया जाएगा। इस स्थिति में, दो ईमेल बनाए जाएंगे जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

5. एक्सेल से आसानी से ईमेल भेजने में आपकी मदद करने के लिए एक उपयोगी उपकरण

यदि आप वीबीए नौसिखिया हैं, तो उपरोक्त विधियों को संभालना आपके लिए आसान नहीं हो सकता है। यहां हम अनुशंसा करते हैं एक्सेल के लिए कुटूलहै ईमेल भेजिए सुविधा, इस सुविधा के साथ, आप केवल कई क्लिक के साथ एक्सेल से आसानी से ईमेल भेज सकते हैं। कृपया निम्नानुसार करें.

5.1 आसानी से एक मेलिंग सूची बनाएं जिसमें आपके लिए आवश्यक ईमेल फ़ील्ड शामिल हों

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

1। क्लिक करें कुटूल्स प्लस > मेलिंग सूची बनाएं.

2. उद्घाटन में मेलिंग सूची बनाएं विंडो, आपको निम्नानुसार कॉन्फ़िगर करने की आवश्यकता है।

फिर एक नमूना मेलिंग सूची तालिका बनाई जाती है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

3. अब आपको नमूने में मूल डेटा को अपने फ़ील्ड डेटा से बदलना होगा।

अब आपने एक मेलिंग सूची तालिका बना ली है. कृपया इसे लागू करने के लिए आगे बढ़ें ईमेल भेजिए आपके द्वारा बनाए गए फ़ील्ड के आधार पर एक्सेल से ईमेल भेजने की सुविधा।

5.2 मेलिंग सूची में आपके द्वारा बनाए गए फ़ील्ड सहित आसानी से ईमेल भेजें

मेलिंग सूची बनाने के बाद (कैसे जानने के लिए क्लिक करें) जिसमें वे फ़ील्ड शामिल हैं जिनकी आपको अपने ईमेल में आवश्यकता हो सकती है, अब आप इन फ़ील्ड के साथ Excel से ईमेल भेज सकते हैं।

1. संपूर्ण मेलिंग सूची का चयन करें, क्लिक करें कुटूल्स प्लस > ईमेल भेजिए.

2। में ईमेल भेजिए संवाद बॉक्स, कृपया निम्नलिखित कॉन्फ़िगरेशन करें।

3. फिर ए एक्सेल के लिए कुटूल संवाद बॉक्स आपको यह बताने के लिए पॉप अप होता है कि कितने ईमेल भेजे गए हैं, क्लिक करें OK इस डायलॉग बॉक्स को बंद करने के लिए बटन।

टिप्स: आप जा सकते हैं भेजी गई आइटम आपके द्वारा भेजे गए ईमेल की जांच करने के लिए अपने आउटलुक में फ़ोल्डर।

5.3 आसानी से HTML बॉडी (हाइपरलिंक, छवि आदि सहित) के साथ ईमेल भेजें

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

बाद एक मेलिंग सूची बनाना जिसमें आपके लिए आवश्यक ईमेल फ़ील्ड शामिल हों,

आप जब ईमेल भेजें संवाद बॉक्स कॉन्फ़िगर करें, आप टूलबार पर विकल्पों का उपयोग करके मुख्य सामग्री को समृद्ध बना सकते हैं।

नीचे स्क्रीनशॉट देखें:

5.4 ईमेल भेजते समय आसानी से आउटलुक डिफ़ॉल्ट हस्ताक्षर डालें

उपरोक्त विधि में, हमने आउटलुक डिफ़ॉल्ट हस्ताक्षर के साथ ईमेल भेजने में आपकी सहायता के लिए एक वीबीए कोड प्रदर्शित किया है। यहां ईमेल भेजें सुविधा के साथ, आपको बस एक विकल्प की जांच करने की आवश्यकता है, फिर एक्सेल से भेजे गए ईमेल में आउटलुक डिफ़ॉल्ट हस्ताक्षर डाला जाएगा।

बाद एक मेलिंग सूची बनाना जिसमें आपके लिए आवश्यक ईमेल फ़ील्ड शामिल हों,

. ईमेल भेजें संवाद बॉक्स कॉन्फ़िगर करें, आपको क्लिक करना है ऑप्शंस > आउटलुक की हस्ताक्षर सेटिंग्स का उपयोग करें.

नोट: कृपया सुनिश्चित करें कि आउटलुक के हस्ताक्षर सेटिंग्स विकल्प का उपयोग करने से पहले एक चेक मार्क प्रदर्शित हो रहा है।

जब प्राप्तकर्ता ईमेल प्राप्त करते हैं, तो वे ईमेल के मुख्य भाग के अंत में प्रदर्शित आउटलुक डिफ़ॉल्ट हस्ताक्षर देख सकते हैं।

5.5 किसी निर्दिष्ट ईमेल खाते से आसानी से ईमेल भेजें

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

बाद एक मेलिंग सूची बनाना जिसमें आपके लिए आवश्यक ईमेल फ़ील्ड शामिल हों,

. ईमेल भेजें संवाद बॉक्स कॉन्फ़िगर करें, आपको क्लिक करना है ऑप्शंस > द्वारा भेजा गया, फिर उस ईमेल खाते पर क्लिक करें जिससे आपको ईमेल भेजना है।

नोट: ईमेल अकाउंट का चयन करने के बाद उसके सामने एक चेक मार्क प्रदर्शित होगा।

क्लिक करें यहाँ उत्पन्न करें इस ईमेल भेजें सुविधा के बारे में अधिक जानने के लिए।

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

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

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

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

अधिक पढ़ें... मुफ्त डाउनलोड...

---

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

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...