- Katılım
- 11 Mart 2005
- Mesajlar
- 3,062
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
whatsapp' ta toplu mesaj göndermek istediğimde Sendkey ("{ENTER}") satırı çalışmıyor, bu satırı pas geçerek döngüye devam ediyor.
neden kaynaklanabilir? yardımcı olursanız sevinirim.
iyi Çalışmalar.
whatsapp' ta toplu mesaj göndermek istediğimde Sendkey ("{ENTER}") satırı çalışmıyor, bu satırı pas geçerek döngüye devam ediyor.
neden kaynaklanabilir? yardımcı olursanız sevinirim.
iyi Çalışmalar.
Kod:
Set sht = ActiveSheet
url = "https://web.whatsapp.com/send?phone="
For i = 2 To 4
Set ie = New InternetExplorer
num = sht.Cells(i, 1)
mesaj = sht.Cells(i, 2)
str = url & num & "&text=" & mesaj
ie.Navigate str
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:05")
num = ""
mesaj = ""
Set ie = Nothing
Next i