Send WhatsApp Message Using Excel Sheets | Part I
This video describes how you can send messages to WhatsApp saved numbers and Groups using Excel. The code is written below for reference :
Sub WhatsApp()
Dim Name As String
Dim Text As String
Dim Row As Integer
Row = 2
'Loop row - for multiple messages
'For Row = 2 To 3
Name = ActiveSheet.Cells(Row, 1).Value
Text = ActiveSheet.Cells(Row, 2).Copy
'Open Whatsapp web
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
Application.Wait (Now + TimeValue("00.00.35"))
'Tab Key
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00.00.02"))
'Search Name
Call SendKeys(Name, True)
Application.Wait (Now + TimeValue("00.00.02"))
'Enter Key
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00.00.02"))
'Paste Text
Call SendKeys("^+v", True)
Application.Wait (Now + TimeValue("00.00.02"))
'Enter Key
Call SendKeys("~", True)
Worksheets("Sheet1").Activate
Application.Wait (Now + TimeValue("00.00.20"))
'Next Row
End Sub