filmov
tv
How to send Whatsapp Bulk Message with image using Excel.
Показать описание
Hi friends,In this video you will learn how to send the bulk whatsapp message with image using Excel.
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
ActiveSheet.Shapes(1).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)
'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..
Excel to Whatsapp bulk long message
Kindly do your little contribution to us .. it will motivate us to do more awesome videos for you.
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
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
ActiveSheet.Shapes(1).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)
'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..
Excel to Whatsapp bulk long message
Kindly do your little contribution to us .. it will motivate us to do more awesome videos for you.
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
Thankyou so much ! Happy learning !Easy Learning!
Комментарии