Send a Free WhatsApp Message Online without API || Bulk messages from MS-Excel to WhatsApp

How to send bulk messages from MS-Excel to WhatsApp

Send 1000 Message to WhatsApp with image

हेलो दोस्तों आज मैं आपको बताने वाला हूं कि आप अपने बिजनेस को व्हाट्सएप के द्वारा किस प्रकार से मैनेज कर सकते हैं या मैं कह सकता हूँ कि आप व्हाट्सएप के द्वारा अपने कस्टमर को(Free WhatsApp Message) मैसेज कैसे भेज सकते हैं तो चलिए जानते हैं

मैसेज भेजने के लिए मैं आपको कुछ स्टेप बता रहा हूं उसको फालो करके आप आसानी से अपने कस्टमर को मैसेज भेज सकते हैं इसके लिए आपको बहुत अधिक एक्सेल का ज्ञान होने की आवश्यकता नहीं है आप कुछ आसान तरीकों का प्रयोग करके आसानी से मैसेज भेज सकते हैं

How to Send Bulk WhatsApp Messages for Free in Excel


१- सबसे पहले आप डेवलपर ऑप्शन में जाकर एक बटन क्रिएट करेंगे और उस बटन पर क्लिक करके एक इवेंट जनरेट करेंगे और उस इवेंट पर मेरे द्वारा दिया गया कोड पेस्ट करके सेव करेंगे
२- जिस सीट से आप डाटा भेज रहे हैं उस सीट का नाम डाटा रखना है और एक्सेल शीट में कॉलम A में मोबाइल नंबर टाइप करेंगे कॉलम B में मैसेज टाइप करेंगे
३- इमेज भेजने के लिए आप अपने सीट पर कोई भी इमेज इंसर्ट करेंगे
४-अब आप सेंड बटन पर क्लिक कर के मैसेज भेज सकते हैं अगर आपको फिर भी किसी प्रकार की समस्या आ रही है तो आप हमें कमेंट कर सकते हैं मेरे द्वारा बताया गया प्रोसेस हंड्रेड परसेंट वर्क करता है और इसका प्रयोग बहुत सारे लोग कर रहे हैं अगर आपको कोई समस्या है तो कमेंट जरूर करें जल्द से जल्द समस्या का समाधान करने का प्रयास करेंगे धन्यवाद

जरुर पढ़े –

How can I use WhatsApp in Excel?
वर्क फ्लो का चार्ट नीचे लगा हुवा है

1- Enable Developer option :

Enable Developer Option

2. Create Button and Paste Code

Read also :-

English Alphabet || ABCD Song || Abcd alphabet | ABCD सीखों

Hindi Alphabets त थ द ध न || हिन्दी वर्णमाला || अ आ इ ई


Developer Option Set (Ms Office 2016)

VBA code to send WhatsApp message from Excel download

Code (Copy and Paste)

Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strmessage As String
Dim strPostData As String
Dim IE As Object

LastRow = Range(“A” & Rows.Count).End(xlUp).Row
For i = 2 To LastRow

strPhoneNumber = Sheets(“Data”).Cells(i, 1).Value
strmessage = Sheets(“Data”).Cells(i, 2).Value
ActiveSheet.Shapes(2).Copy
‘ActiveSheet.Shapes.Range(Array(“Picture 4”)).Copy
‘IE.navigate “whatsapp://send?phone=phone_number&text=your_message”

strPostData = “whatsapp://send?phone=” & strPhoneNumber & “&text=” & strmessage
Set IE = CreateObject(“InternetExplorer.Application”)

IE.navigate strPostData
Application.Wait (Now + TimeValue(“00:00:05”))
Call SendKeys(“^v”)
Application.Wait (Now + TimeValue(“00:00:05”))
Call SendKeys(“{Enter}”, True)
Next i
End Sub

3. How to Write message and Send (send a pic from excel via WhatsApp)

Send Bulk Message throw Excel

Note : Done not send unformat text and not change message Time other wise. your number block.

अगर आपको कोई समस्या है तो कमेंट जरूर करें जल्द से जल्द समस्या का समाधान करने का प्रयास करेंगे धन्यवाद

Leave a Reply

Your email address will not be published.