Skip to main content

Posts

Showing posts from November, 2021

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