Excel Üzerinden Whatsapp Mesaj Gönderme

06-06-2024, 16:08:49

İyi forumlar öncelikle. GÜnlerdir gerek yerli, gerek yabancı kaynakları inceliyorum. Ama bir türlü neticeye ulaşamadım. Bir çok youtube videosu izledim ama hiç biri güncel olmadığı için kodlar tam sağlıklı çalışmıyor. Son olarak bir kodlamayı doğru yaptığıma inandım ama bu sefer sadece geri planda çalışıyor gözüküyor ve netice gene yok. Acaba şu kodlama da eksik olan nedir? Excel üzerinden whatsapp mesaj gönderme işini çözmem gerekiyor.

Private Sub CommandButton1_Click()

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

ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)

Application.Wait Now + TimeValue("00:00:10")

Call SendKeys("{ENTER}", True)

Next i

End Sub

06-06-2024, 16:14:05

#2

~~angelicmoon~~

Üyeliği durduruldu

Chat GPT

Private Sub CommandButton1_Click()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' Internet Explorer'ı görünür yap
    ie.Visible = True

    ' İlgili hücrelerdeki veriler için döngü
    For i = 2 To 2 ' İstediğiniz satır aralığını burada belirtebilirsiniz
        ' WhatsApp Web URL'sini oluştur
        Dim url As String
        url = "https://web.whatsapp.com/send?phone=" & Cells(i, 1).Value & "&text=" & Cells(i, 2).Value

        ' URL'ye git
        ie.Navigate url

        ' Sayfanın tamamen yüklenmesini bekle
        Do While ie.Busy Or ie.ReadyState <> 4
            DoEvents
        Loop

        ' Ekstra bekleme süresi (WhatsApp Web'in tamamen yüklenmesi için)
        Application.Wait Now + TimeValue("00:00:10")

        ' Mesajı göndermek için Enter tuşuna bas
        SendKeys "~", True ' "~" Enter tuşuna denk gelir

        ' Bir sonraki işlemden önce biraz bekle
        Application.Wait Now + TimeValue("00:00:05")
    Next i

    ' Internet Explorer'ı kapat
    ie.Quit
    Set ie = Nothing
End Sub

06-06-2024, 16:15:43

#3

medyakiraz

Kimlik doğrulama veya yönetimden onay bekliyor.

leupay adlı üyeden alıntı: mesajı görüntüle

İyi forumlar öncelikle. GÜnlerdir gerek yerli, gerek yabancı kaynakları inceliyorum. Ama bir türlü neticeye ulaşamadım. Bir çok youtube videosu izledim ama hiç biri güncel olmadığı için kodlar tam sağlıklı çalışmıyor. Son olarak bir kodlamayı doğru yaptığıma inandım ama bu sefer sadece geri planda çalışıyor gözüküyor ve netice gene yok. Acaba şu kodlama da eksik olan nedir? Excel üzerinden whatsapp mesaj gönderme işini çözmem gerekiyor.

Private Sub CommandButton1_Click()

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

ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)

Application.Wait Now + TimeValue("00:00:10")

Call SendKeys("{ENTER}", True)

Next i

End Sub

Merhaba,
Excel üzerinde sizi zorunlu kılan bir etken yoksa eğer sizleri yeni geliştirmekte olduğumuz WhatsApp API sistemimize dahil edebiliriz. Hem sistemizi test edersiniz, hem de işlemlerinizi halletmiş olursunuz.

06-06-2024, 16:36:56

#4

webdanismani

Merhaba,
Kendime ait yaptığım istediğiniz özelliklerde bulunan bir exelim var, bunu Selenium kütüphanesi ile yapmıştım çokta sağlıklı çalışmakta. Selenium kütüphanesini incelemenizi öneririm.

06-06-2024, 16:51:58

#5

leupay

@angelicmoon; Hocam dönüş için teşekkür ederim. Benim pc de edge yüklü olmasına rağmen ekran bu şekilde kalıyor. Acaba sabebi ne olabilir?

06-06-2024, 16:53:26

#6

leupay

webdanismani adlı üyeden alıntı: mesajı görüntüle

Merhaba,
Kendime ait yaptığım istediğiniz özelliklerde bulunan bir exelim var, bunu Selenium kütüphanesi ile yapmıştım çokta sağlıklı çalışmakta. Selenium kütüphanesini incelemenizi öneririm.

Hocam şirket pc si olduğu için çok kurcalamak istemiyorum.

06-06-2024, 16:57:03

#7

webdanismani

Hocam, selenium çokta zarar verecek bir şey değil bir programlama kütüphanesidir, excel içerisinden aktif ederek VBA kodunuza ekleyebilirsiniz. Ayrıca ChromeDriver ile fonsiyonları Chrome üzerinde yönlendirmesini sağlayabilirsiniz.

11-06-2024, 01:47:50

#8

zeyrek34

Kimlik doğrulama veya yönetimden onay bekliyor.

Tarayiciyi Chrome ile aç Chrome yolunu vermen kafi

11-06-2024, 12:53:55

#9

turkishsensei

üstad bende bir excel dosyası vardı, şuan denedim çalışıyor, kapsamlı birşey umarım faydası olur.
https://we.tl/t-dYTvowesc7