Send 1000 Message to WhatsApp with image
हेलो दोस्तों आज मैं आपको बताने वाला हूं कि आप अपने बिजनेस को व्हाट्सएप के द्वारा किस प्रकार से मैनेज कर सकते हैं या मैं कह सकता हूँ कि आप व्हाट्सएप के द्वारा अपने कस्टमर को(Free WhatsApp Message) मैसेज कैसे भेज सकते हैं तो चलिए जानते हैं
मैसेज भेजने के लिए मैं आपको कुछ स्टेप बता रहा हूं उसको फालो करके आप आसानी से अपने कस्टमर को मैसेज भेज सकते हैं इसके लिए आपको बहुत अधिक एक्सेल का ज्ञान होने की आवश्यकता नहीं है आप कुछ आसान तरीकों का प्रयोग करके आसानी से मैसेज भेज सकते हैं
How to Send Bulk WhatsApp Messages for Free in Excel
१- सबसे पहले आप डेवलपर ऑप्शन में जाकर एक बटन क्रिएट करेंगे और उस बटन पर क्लिक करके एक इवेंट जनरेट करेंगे और उस इवेंट पर मेरे द्वारा दिया गया कोड पेस्ट करके सेव करेंगे
२- जिस सीट से आप डाटा भेज रहे हैं उस सीट का नाम डाटा रखना है और एक्सेल शीट में कॉलम A में मोबाइल नंबर टाइप करेंगे कॉलम B में मैसेज टाइप करेंगे
३- इमेज भेजने के लिए आप अपने सीट पर कोई भी इमेज इंसर्ट करेंगे
४-अब आप सेंड बटन पर क्लिक कर के मैसेज भेज सकते हैं अगर आपको फिर भी किसी प्रकार की समस्या आ रही है तो आप हमें कमेंट कर सकते हैं मेरे द्वारा बताया गया प्रोसेस हंड्रेड परसेंट वर्क करता है और इसका प्रयोग बहुत सारे लोग कर रहे हैं अगर आपको कोई समस्या है तो कमेंट जरूर करें जल्द से जल्द समस्या का समाधान करने का प्रयास करेंगे धन्यवाद
जरुर पढ़े –
- Advance MS Office Course Online
- Advance Excel Course Online
- Accounting Course Tally Prime and Tally ERP9 Online
- CCC Computer Course (NIELIT) Online
- O Level Online Course
How can I use WhatsApp in Excel?
वर्क फ्लो का चार्ट नीचे लगा हुवा है
1- Enable Developer option :
2. Create Button and Paste Code
Read also :-
English Alphabet || ABCD Song || Abcd alphabet | ABCD सीखों
Hindi Alphabets त थ द ध न || हिन्दी वर्णमाला || अ आ इ ई
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 ObjectLastRow = Range(“A” & Rows.Count).End(xlUp).Row
For i = 2 To LastRowstrPhoneNumber = 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)
Note : Done not send unformat text and not change message Time other wise. your number block.
अगर आपको कोई समस्या है तो कमेंट जरूर करें जल्द से जल्द समस्या का समाधान करने का प्रयास करेंगे धन्यवाद