Whatsapp web ile gruba mesaj göndermek

[Umut yalçınkaya]

Merhaba

Excelimde secili bir alanı whatsapp web üzerinden gruba paylaşmak istiyorum. Fakat selenium.chromium (web driver) eklentisiyle çalışmayan kısacası herhangi bir ek program istemeyen kod yapısı lazım.

 

[Umut yalçınkaya]

Yardımcı olabilecek var mı

 

[Korhan Ayhan]

Merhaba,

Arşiv konularını inceleyiniz.

Arama Sonuçları

 

[Umut yalçınkaya]

Merhaba desteğiniz için teşekkür ederim. Arşivi inceliyorum incelemeye de devam ediyorum fakat talebime yonelik bir sonuca ulasulaşamadım. Bununla ilgili yabancı kaynakları da araştırdım selenium ve whatsapp api ile kod oluşturmuşlar. Benim amacım bu iki değişkene bağımlı olmayan bir arayüz bulmak. Emeği geçenlere de ayrıca teşekkür ederim

 

[sbayyigit]

Ben de araştırdım fakat istediğimi bulamadım. Siz sorunu çözebildiniz mi?
Amacım yazdırma alanını kod ile whatsappta istediğim grup ile veya kişi ile paylaşmak

 

[tugkan]

Merhaba,
Yapay zeka aşağıdaki yanıtı verdi. İşinize yarar mı bilmiyorum.

Excel'den WhatsApp'ta bir kişiye veya gruba veri paylaşmak için genellikle üçüncü parti kütüphaneler (örneğin Selenium veya WhatsApp Web API) kullanılır. Ancak, ek program kullanmadan, yalnızca Excel ve VBA ile bunu doğrudan yapmak mümkün değildir. WhatsApp'ın API'lerine doğrudan erişim sağlamak güvenlik açısından sınırlı ve kontrollüdür.

Bununla birlikte, doğrudan bir çözüm olmasa da, aşağıdaki iki adımlı yöntemle kısmen işlevselliği sağlayabilirsin:

1. Excel'deki Veriyi Kopyalama ve WhatsApp'a Yapıştırma:
   • VBA ile belirli bir hücre aralığını kopyalayıp kullanıcının manuel olarak WhatsApp'a yapıştırmasını sağlayabilirsin.
2. WhatsApp Desktop (Masaüstü) Kullanarak Otomatikleştirme:
   • Bir kullanıcı tanımlı SendKeys komutuyla WhatsApp Desktop uygulamasını kullanarak otomatik yapıştırma işlemi yapılabilir. Bu yöntem, herhangi bir ek eklenti veya üçüncü parti kütüphane gerektirmez ancak manuel bir işlem gerektirir.

Örnek bir VBA kodu aşağıdaki gibidir:

Sub VeriyiWhatsappIlePaylas()
    Dim veri As String
    Dim Aralik As Range
    
    ' Yazdırmak istediğin hücre aralığını belirle
    Set Aralik = ThisWorkbook.Sheets("Sayfa1").Range("A1:D10")
    
    ' Aralığı kopyala
    Aralik.Copy

    ' Veriyi bir değişkene al
    veri = Aralik.Text

    ' WhatsApp Desktop uygulamasını başlat
    Shell "C:\Users\KullaniciAdiniz\AppData\Local\WhatsApp\WhatsApp.exe", vbNormalFocus
    
    ' Bir süre bekleyip WhatsApp'ın açılmasını sağla
    Application.Wait Now + TimeValue("00:00:05")

    ' SendKeys ile WhatsApp'ta yapıştır ve enter tuşuna bas
    SendKeys "^v", True  ' Veriyi yapıştır
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys "{ENTER}", True  ' Mesajı gönder
End Sub

Açıklamalar:

• Aralik.Copy ile seçili hücre aralığını kopyalarsın.
• WhatsApp Desktop'ı açmak için Shell komutunu kullanırsın. Bunun yolu, uygulamanın yerel bilgisayarındaki tam yoluna göre değişebilir.
• SendKeys ile kopyalanan veriyi WhatsApp'a yapıştırıp gönderebilirsin.

Dikkat Edilmesi Gerekenler:

• Bu yöntem manuel olarak WhatsApp uygulamasını açtıktan sonra veriyi yapıştırıp göndermek için bir otomasyon sağlar.
• Daha sofistike bir çözüm istiyorsan, resmi bir WhatsApp API veya tarayıcı bazlı yöntem kullanmak gerekir, ancak bunlar ek yazılımlar veya entegrasyonlar gerektirebilir.

 

[sbayyigit]

Shell "C:\Users\sedat\AppData\Local\WhatsApp\WhatsApp.exe", vbNormalFocus

Bir türlü burayı aşamadım.
\WhatsApp.exe konumunu bulup ekleyemedim.

 

[tugkan]

whatsapp konumunu aşağıdaki şekilde bulabilirsiniz.

Görev Yöneticisini Kullanma:

• Görev Yöneticisini açın (Ctrl+Shift+Esc).
• "Ayrıntılar" sekmesine geçin.
• WhatsApp.exe sürecini bulun ve üzerine sağ tıklayıp "Dosya konumunu aç" seçeneğini belirleyin.