filmov
tv
How to send Bulk Message from Excel to Whatsapp
Показать описание
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..
*Kindly do your little contribution to us to make better videos for you*
Thankyou so much ! Happy learning !Easy Learning!
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..
*Kindly do your little contribution to us to make better videos for you*
Thankyou so much ! Happy learning !Easy Learning!
Комментарии