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

dogankostu · 13 Mart 2021

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 · 13 Mart 2021

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 · 14 Mart 2021

mrwarrior' Alıntı:
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-studio.blogspot.com

dogankostu · 16 Mart 2021

mrwarrior' Alıntı:
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 · 16 Mart 2021

dogankostu' Alıntı:
Teşekkürler deneyeceğim.

Rica ederim. İyi çalışmalar

dogankostu · 16 Mart 2021

işsiz123' Alıntı:
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-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 · 17 Mart 2021

dogankostu' Alıntı:
İş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.

Kod:

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 · 17 Mart 2021

işsiz123' Alıntı:
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.

Kod:

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.