Hi viewers,In this video you will learn how to send the simple bulk message from excel to whatsapp.This will be very helpful in your business and work place.
Coding:
Sub WhatsAppMsg()
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
'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() + TimeSerial(0, 0, 5)
SendKeys "~"
Next i
End Sub
Kindly like,share and subscribe the channel! Share my website and playlist videos to computer science students and professors you know..
Any Queries/suggestion mail us..
mastereducationugcnet@gmail.com
Kindly do your little contribution to us to make better videos for you
UPI ID :manjulavimalesh-1@okhdfcbank
Fill the below form to get the Free softcopy of coding and procedure to your mail ..and let me know what type of videos you need docs.google.com/forms/d/e/1FA...
Thankyou so much ! Happy learning !Easy Learning!