Soru Excel ile Whatsapp Üzerinden Topluca Mesaj Göndermek

sistemci34 · 30 Ocak 2023

Merhaba saygıdeğer arkadaşlar ;

whatsapp üzerinden toplu mesaj atmak istiyorum.
Önceden atabiliyordum bazı kodlar ile ama artık uygulamayı başlattığımda edge üzerinden web.whatsapp açık olmasına rağmen yeni sekme açıp istenen numaraya mesaj atamıyorum.
edge tarayıcısını açıp herhangi bir yazışmanın üzerine tıkladığımda sadece görsel i atıyor text leri yine atmıyor.
Kodları buraya kopyalıyorum.
Bu kodları youtube dan bir üstadımızın paylaşımından aldım.

CSS:

Private Sub CommandButton1_Click()

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


ActiveSheet.Shapes("davet").Copy

'WhatsApp Web
ie.Navigate "WhatsApp Web" & Cells(i, 1)
Application.Wait Now + TimeValue("00:00:10")

Call SendKeys("^v")

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


Call SendKeys("{ENTER}", True)


Next i


End Sub

Buda linki

daha öncesinde gönderim yapabiliyordum şuanda takıldım kaldım sanırım tarayıcıyı kontrol etme konusunda bazı kodlara ihtiyacım olacak gibi.

Acaba nerede yanlışlık yapıyorum.
Yardımcı olabilecek biri var ise çok mutlu olurum.

VetExc · 30 Ocak 2023

Merhaba forumda arama yapıp daha önce açılan konuları inceleyiniz. Örneğin;

Whatsapp'tan Toplu "Yazılı ve Resimli" Mesaj Gönderme

Merhaba, Program bir resmi belirlediğiniz kişilere mesajla birlikte gönderiyor. Kullanımı; 1- Whatsapp Web bilgisayarda yüklü ve açık olmalı. 2-Telefon numarası 090532123456 olarak yazılmalıdır. 3- Resmi değiştirmek için silmeyiniz. Üzerine sağ tuşla tıklayarak Resim Değiştir'e tıklayın...

excelcozum.com

Excelden Whatsapp Toplu Mesaj Gönderme

Excelden Whatsapp Toplu Mesaj Gönderme Çalışması biraz sade oldu bir çalışma gerekli olursa daha sonra geliştirile bilirim sanki Yararlı olması dileğiyle Not: Whatsapp Web İndirmeniz Gerekiyor İndir Not2 : Telefon Numarasının Telefonunuzda Kayıtlı Olması gerekmiyor yararlı olması dileği ile...

excelcozum.com

Soru - WhatsApp toplu mesaj ve PDF dosyası gönderme.

Merhabalar iyi çalışmalar. WhatsApp Chrome ile çalışan toplu mesaj ve PDF dosyası göndermek için örnek dosyanız varsa paylaşabilirmisiniz. Liste halinde bulunan firmalara ürünler ile ilgili sürekli olarak paylaşım yapmak için kullanılacak.

www.excelcozum.com

Userformdan seçilen listeye Watsapp dan msj göndermek

Degerli Arkadaşlar Cümleten Selamün Aleyküm . Takıldıgım bir hususta yine yardımınıza ihtiyacım var MJS GÖNDER butonunu tıkladıgımızda, açılan user formda yer alan listeden kişileri seçerek watsapp uygulaması üzerinden seçili kişilere msj gondermek istiyorum. Açılan userform dan Chekbox1 i...

www.excelcozum.com

Alternatif olarak bu kodları da deneyin.

C++:

Private Sub CommandButton1_Click()

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

    ActiveSheet.Shapes("davet").Copy

    'WhatsApp Web
    ie.Navigate "https://web.whatsapp.com/" & Cells(i, 1)
    
    'Wait for the page to load
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    'Activate the browser window
    ie.Activate

    'Paste the image
    SendKeys "^v"

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

    'Send the message
    SendKeys "{ENTER}"

    Next i

End Sub

Yada şöyle deneyin.

C#:

Private Sub CommandButton1_Click()

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

    ActiveSheet.Shapes("davet").Copy

    'WhatsApp Web
    ie.Navigate "https://web.whatsapp.com/" & Cells(i, 1)
   
    'Wait for the page to load
    Do While ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    'Get the text input element
    Dim textInput As Object
    Set textInput = ie.Document.getElementById("main")

    'Paste the image
    textInput.Focus
    textInput.innerHTML = "<img src='" & ActiveSheet.Shapes("davet").Copy & "'>"

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

    'Send the message
    textInput.parentElement.getElementsByClassName("_3M-N-")(0).Click

    Next i

End Sub

sistemci34 · 5 Şub 2023

VetExc' Alıntı:
Merhaba forumda arama yapıp daha önce açılan konuları inceleyiniz. Örneğin;

Whatsapp'tan Toplu "Yazılı ve Resimli" Mesaj Gönderme

Merhaba, Program bir resmi belirlediğiniz kişilere mesajla birlikte gönderiyor. Kullanımı; 1- Whatsapp Web bilgisayarda yüklü ve açık olmalı. 2-Telefon numarası 090532123456 olarak yazılmalıdır. 3- Resmi değiştirmek için silmeyiniz. Üzerine sağ tuşla tıklayarak Resim Değiştir'e tıklayın...

excelcozum.com

Excelden Whatsapp Toplu Mesaj Gönderme

Excelden Whatsapp Toplu Mesaj Gönderme Çalışması biraz sade oldu bir çalışma gerekli olursa daha sonra geliştirile bilirim sanki Yararlı olması dileğiyle Not: Whatsapp Web İndirmeniz Gerekiyor İndir Not2 : Telefon Numarasının Telefonunuzda Kayıtlı Olması gerekmiyor yararlı olması dileği ile...

excelcozum.com

Soru - WhatsApp toplu mesaj ve PDF dosyası gönderme.

Merhabalar iyi çalışmalar. WhatsApp Chrome ile çalışan toplu mesaj ve PDF dosyası göndermek için örnek dosyanız varsa paylaşabilirmisiniz. Liste halinde bulunan firmalara ürünler ile ilgili sürekli olarak paylaşım yapmak için kullanılacak.

www.excelcozum.com

Userformdan seçilen listeye Watsapp dan msj göndermek

Degerli Arkadaşlar Cümleten Selamün Aleyküm . Takıldıgım bir hususta yine yardımınıza ihtiyacım var MJS GÖNDER butonunu tıkladıgımızda, açılan user formda yer alan listeden kişileri seçerek watsapp uygulaması üzerinden seçili kişilere msj gondermek istiyorum. Açılan userform dan Chekbox1 i...

www.excelcozum.com

Merhaba
Teşekkür ederim bilgilendirme için foruma üye olduktan sonra araştırdım hemen ama aradığım soruna bir çözüm bulamadığım için yazayım istedim.
Umarım bir destekçi bulabilirim