WhatsApp Send By Excel

 

Excel Format

MobileNo	Messages
919723475111	Test
919727715979	Test1
919904432168	Test3

 

Code For Excel  Module

 

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