Whatsapp'dan Her Mesaj İçin Ayrı Sekme Açıyor. Nasıl Düzeltirim!!!

[dogankostu]

Merhabalar
İnternetten bulduğum aşağıdaki kodu kullanmak istiyorum. Kod whatsapp'dan toplu mesaj atmaya yarıyor ama her mesaj için ayrı ayrı sekme açıyor. Kodu paylaşıyorum. Acil yardımcı olursanız çok sevinirim.
Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
'https://web.whatsapp.com/send?phone=+++
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:20")
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:05")
Next i


End Sub

 

[mrwarrior]

Sanırım
Dim ie As InternetExplorer
Set ie = New InternetExplorer
Bu kısım for döngüsünün içinde olduğu için.
Bunu for satırının üstüne taşıyıp deneyin isterseniz.

 

[işsiz123]

Sanırım
Dim ie As InternetExplorer
Set ie = New InternetExplorer
Bu kısım for döngüsünün içinde olduğu için.
Bunu for satırının üstüne taşıyıp deneyin isterseniz.

O link içinde telefon numarası mevcut. Telefon numarasını hücreden döngü ile alıyor. Mecbur yeni sayfa açması lazım.
Sadece işlem bittiğinde açılan sekmeyi kapatabilir.
Aşağıdaki blog sayfamda ücretsiz ve ücretli paylaştığım çalışmalar mevcut kontrol edebilirsiniz.

Excel'den Whatsapp'a Mesaj

Excel'den Whatsapp'a Mesaj hakkında detaylı bilgiler ve Excel dersleri.

excel-studio.blogspot.com

 

[dogankostu]

Sanırım
Dim ie As InternetExplorer
Set ie = New InternetExplorer
Bu kısım for döngüsünün içinde olduğu için.
Bunu for satırının üstüne taşıyıp deneyin isterseniz.

Teşekkürler deneyeceğim.

 

[işsiz123]

Teşekkürler deneyeceğim.

Rica ederim. İyi çalışmalar

 

[dogankostu]

O link içinde telefon numarası mevcut. Telefon numarasını hücreden döngü ile alıyor. Mecbur yeni sayfa açması lazım.
Sadece işlem bittiğinde açılan sekmeyi kapatabilir.
Aşağıdaki blog sayfamda ücretsiz ve ücretli paylaştığım çalışmalar mevcut kontrol edebilirsiniz.

Excel'den Whatsapp'a Mesaj

Excel'den Whatsapp'a Mesaj hakkında detaylı bilgiler ve Excel dersleri.

excel-studio.blogspot.com

İşlem sonrası sekmeyi nasıl kapatacağımı söyleyebilir misiniz? İnanın bunu bulmak için çok uğraştım, son çare buraya yazdım.
Sizin programlarınız daha mı hızlı çalışır acaba?

 

[işsiz123]

İşlem sonrası sekmeyi nasıl kapatacağımı söyleyebilir misiniz? İnanın bunu bulmak için çok uğraştım, son çare buraya yazdım.
Sizin programlarınız daha mı hızlı çalışır acaba?

Merhabalar
Aşagıdaki kodu kullanabilirsiniz. Bu şekilde 30 saniyede 1 mesaj göndermekte. Benim ücretli olan uygulamada 4-5 saniye arasında 1 mesaj göndermekte.

Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
'https://web.whatsapp.com/send?phone=+++
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:20")
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:05")
SendKeys "^{F4}"
  Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{Enter}", True)
Next i
End Sub

 

[dogankostu]

Merhabalar
Aşagıdaki kodu kullanabilirsiniz. Bu şekilde 30 saniyede 1 mesaj göndermekte. Benim ücretli olan uygulamada 4-5 saniye arasında 1 mesaj göndermekte.

Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
'https://web.whatsapp.com/send?phone=+++
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:20")
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:05")
SendKeys "^{F4}"
  Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{Enter}", True)
Next i
End Sub

Çok teşekkür ederim. Eğer bu şekilde müşterilerimden geri dönüş alabilirsem. Daha hızlı olması açısından programınız için sizinle iletişime geçeceğim. Tekrardan teşekkürler.