Sendkey ("{ENTER}") çalışmıyor

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,042
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.

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
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Merhaba, Application.SendKeys ("{Enter}") ya da SendKeys ("{Enter}") olarak dener misiniz?
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,042
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba, Application.SendKeys ("{Enter}") ya da SendKeys ("{Enter}") olarak dener misiniz?
Hocam yine aynı şekilde, değişen bir şey olmadı
herhangi bir hata da vermiyor, döngü çalışıyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,190
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu şekilde deneyiniz.

Call SendKeys("~", True)
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba , birde sayfayı görünür yaparak denermisiniz.

Kod:
ie.Visible = True
Call SendKeys("{ENTER}", True)
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,042
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba , birde sayfayı görünür yaparak denermisiniz.

Kod:
ie.Visible = True
Call SendKeys("{ENTER}", True)
Hocam burada bir sorunu keşfettim;
uygulama çalışırken imleç mesaj kutusuna gitmiyor, elle manuel olarak imleci götürdüğümde "ENTER" tuşuna basınca mesajı gönderiyor.

Özetle: imlecin otomatik olarak mesaj kutusuna gitmesi gerekiyor. imleç mesaj kutusunda değilken ENTER" tuşuna bassan bile işlem yapılmıyor

iyi çalışmalar.
 

Ekli dosyalar

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Enter tuşu yerine, mesaj kutusunun yanındaki Gönder tuşuna tıklanabilir mi?
234810
 
Üst