- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Merhaba; excel'den otomatik olarak toplu mesaj gönderiyorum. Her yeni mesajda yeni bir microsoft edge sayfası açılıyor. Yenisi açıldığında bir önceki sayfayı kapatmak için "ie.quit" komutunu kullanmak istiyorum. nasıl yapabilirim?
Kod:
Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 2) & "&text=" & Cells(i, 3)
Application.Wait Now + TimeValue("00:00:10")
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:05")
Next i
End Sub