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.

 

[sbayyigit]

Tekrar merhaba
Sizin kodları bir türlü çalıştıramadım.
Hem
' Veriyi bir değişkene alırken
veri = Aralik.Text

Hem de
C:\Program Files\WindowsApps\5319275A.WhatsAppDesktop_2.2440.9.0_x64__cv1g1gvanyjgm
konumundaki whatsapp uygulamasını çalıştırması gereken noktada hata veriyor.

Başka bir şekilde denedim fakat tıkandığım bir nokta var.
Aşağıdaki Kodla seçim bölgesini resim olarak kopyalayıp whatsapp ugulamasına manuel yapıştırmayı denedim.

Set Aralik = ThisWorkbook.Sheets("Sayfa2").Range("A124")
' Aralığı resim olarak kopyala
Aralik.CopyPicture Appearance:=xlPrinter, Format:=xlPicture

bu şekilde istediğim alanı yazıcıdan çıktı alınan şekilde resim olarak kopyalıyorum. Kopyalanan alanı ctrl+v ile excel'e, word'e ve hatta paint uygulamasına da yapıştırabiliyorum. ama Whatsapp uygulamasına yapıştıramıyorum.
Bunun için bir çözüm var mıdır?