Whatsapp automated message macro

[zakizelani]

Hi, does anybody know how can i send mass message via whatsapp by using macro in excel.

I need a code that tell excel to open this link
(https://wa.me/ + country code + the contact number) and send a pre text message to the person that i have in another column

 

[mrshl9898]

I don't use whatsapp so cannot test.

Try editing the phone and text below and hopefully we can go from there:

Sub wpp()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application") 'Create object IE
    IE.navigate "whatsapp://send?phone=5511912341234&text=something" 'Send message "something" to this phone (Brazil)
    Application.Wait Now() + TimeSerial(0, 0, 3) 'ok just one wait and sendkeys :v
    SendKeys "~"
    'IE.Quit 'The navigate already kills the IE
    Set IE = Nothing 'Clear the object
End Sub

 

[Hansulet]

I tested the code and it works.
However, I would like a code to send messages written in one column to phone numbers written in another column.

 

[mrshl9898]

Without any clear details, something like:

Sub wpp()

Dim IE As Object
Dim mymesssage As String
Dim mynumber As String
Dim rownum As Long
    
rownum = 2
    
Do Until Cells(rownum, 1) = ""
    Cells(rownum, 1) = mymessage
    Cells(rownum, 2) = mynumber
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "whatsapp://send?phone=" & mynumber & "&text=" & mymessage
    Application.Wait Now() + TimeSerial(0, 0, 3)
    SendKeys "~"
    Set IE = Nothing
    
    rownum = rownum + 1
Loop
    
End Sub

 

[Hansulet]

Without any clear details, something like:

Sub wpp()

Dim IE As Object
Dim mymesssage As String
Dim mynumber As String
Dim rownum As Long
   
rownum = 2
   
Do Until Cells(rownum, 1) = ""
    Cells(rownum, 1) = mymessage
    Cells(rownum, 2) = mynumber
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "whatsapp://send?phone=" & mynumber & "&text=" & mymessage
    Application.Wait Now() + TimeSerial(0, 0, 3)
    SendKeys "~"
    Set IE = Nothing
   
    rownum = rownum + 1
Loop
   
End Sub

Thanks, but your code doesn't work for me. I do not know why.
What I want is for the messages written in column C to be sent via whatsapp to the phone numbers in column A

COL A COL B COL C
00407XXXXXXXX NAME1 Message 1
00407YYYYYYYY NAME2 Message 2
00407ZZZZZZZZ NAME3 Message3

 

[mrshl9898]

Try

Sub wpp()

Dim IE As Object
Dim mymesssage As String
Dim mynumber As String
Dim rownum As Long
   
rownum = 2
   
Do Until Cells(rownum, 1) = ""
    Cells(rownum, 3) = mymessage
    Cells(rownum, 1) = mynumber
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "whatsapp://send?phone=" & mynumber & "&text=" & mymessage
    Application.Wait Now() + TimeSerial(0, 0, 3)
    SendKeys "~"
    Set IE = Nothing
   
    rownum = rownum + 1
Loop
   
End Sub

 

[Hansulet]

Sorry, but it doesn't work

 

[joosvz]

I found it to work when I replace:

SendKeys "~"

with

SendKeys "{Enter}"

 

[galinohansen]

how to add attachment to code??