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
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