excel kullanarak whatsuptan toplu mesaj atma

[DAYWALKER2018]

Merhaba arkadaşlar,
Ekte göndermiş olduğum örnek dosyada ie üzerinden toplu mesaj atıyorum fakat ben mesaj attıktan sonra ie deki whatsup sayfası kapansın ve sonradan atarken yeniden açılsın istiyorum. toplu olarak attığımda örnek 200 adet atacak olursam 200 tane ie pencerisi açılacak bunun olmasını istemiyorum nasıl yapabilirim.
*********************************************************
Private Sub CommandButton1_Click()

For i = 2 To 4
Dim ie As InternetExplorer
Set ie = New InternetExplorer

ActiveSheet.Shapes("igne").Copy
'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:05")

Call SendKeys("^v")
Application.Wait Now + TimeValue("00:00:05")

Call SendKeys("{ENTER}", True)


Next i

End Sub

 

[metin_0606]

Merhaba arkadaşlar,
Ekte göndermiş olduğum örnek dosyada ie üzerinden toplu mesaj atıyorum fakat ben mesaj attıktan sonra ie deki whatsup sayfası kapansın ve sonradan atarken yeniden açılsın istiyorum. toplu olarak attığımda örnek 200 adet atacak olursam 200 tane ie pencerisi açılacak bunun olmasını istemiyorum nasıl yapabilirim.
*********************************************************
Private Sub CommandButton1_Click()

For i = 2 To 4
Dim ie As InternetExplorer
Set ie = New InternetExplorer

ActiveSheet.Shapes("igne").Copy
'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:05")

Call SendKeys("^v")
Application.Wait Now + TimeValue("00:00:05")

Call SendKeys("{ENTER}", True)


Next i

End Sub

Next i satırının üst kısmına ekleyiniz

Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("{ENTER}", True)
SendKeys String:="^w{enter}", Wait:=True

 

[DAYWALKER2018]

işlem tamam , teşekkür ederim

 

[assenucler]

Dostlar merhabalar,

Açılan konuda bilgi rica ediyorum.
Toplu mesaj için internet explorer yerine; edge ya da Firefox'u kullanabilirsem, koda nasıl bir ekleme yapmak gerekiyor?
Yardımınız için önceden teşekkürler.

 

[DAYWALKER2018]

Next i satırının üst kısmına ekleyiniz

Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("{ENTER}", True)
SendKeys String:="^w{enter}", Wait:=True

* merhaba yine ben paylaştığım excelde resimi getirmiyor atarken nerde yanlış yapıyorum veya ne eksik sizce ?

 

[metin_0606]

* merhaba yine ben paylaştığım excelde resimi getirmiyor atarken nerde yanlış yapıyorum veya ne eksik sizce ?

Makro içindeki süreleri 15 sn yapıp deneyin İnternet hızına göre sürenizi ayarlayın