Soru Whatsapp

[cupid]

Selamlar Chrome ya da whatsap uygulaması aracılığıyla toplu mesaj gönderme kodu gönderebilecek varmıdır? nasıl yapabilirim?


Private Sub CommandButton1_Click()

For i = 2 To 250

Dim ie As İnternetExplorer
Set ie = New İnternetExplorer

ActiveSheet.Shapes("jr").Copy

'https://web.whatsapp.com/send?phone=+++
ie.navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 2) & "&text=" & Cells(i, 3)
Application.Wait Now + TimeValue("00:00:05")

Call SendKeys("^v")
Application.Wait Now + TimeValue("00:00:05")

Call SendKeys("{ENTER}", True)

Next i

End Sub


bu kod çalışmıyor şuan