Excel to Whatsapp message

[Jagat Pavasia]

My A1 have heading of "PhoneNumber".
My Raw from A2 have mobile numbers start with India country code, for example : 919898252526

My B1 have heading of "Message".
And my B2 have message to send.

I want to send automatically message on all mobile number in WhatsApp.

I have PC application of WhatsApp also.

please help me.

I have found VBA macro somewhere in google but it did not work for me.

I have attached VBA below :




thank you..

Sub whatsappMessage()

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(x1Up).Row

For i = 2 To LastRow
 
   strPhoneNumber = Sheets("data").Cells(i, 1).Value
   strMessage = Sheets("data").Cells(i, 2).Value
 
   srepostdata = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMessage
   Set IE = CreateObject("chrome.application")
   IE.navigate strPostdata
   Application.Wait Now() + TimeSerial(0, 0, 5)
   SendKeys "~"
 
   Next i
 
 


End Sub

 

[MCLIFTO8]

Mass Export Whatsapp chats to Excel

Hi All I have recently used a VBA code, which works with selenium. The code allows you to use an excel spreadsheet to send messages via whatsapp, automatically. You may have seen the youtube video for the guy who wrote and offers the code, along with the spreadsheet: However I have vast...

www.mrexcel.com