whatsapp mesaj gitmiyor

[sevensuleyman]

merhaba; excell üzerinden whatsapp üzerinden gönderdiğim linkler artık çalışmamaya başladı. programa aktarmıyor başına gelen varmı veya farklı çözümü olan varmı üstadlardan destek bekliyorum şimididen teşekkürler whatsapp://send/?phone=+905555555555&text=deneme

 

[muhasebeciyiz]

Böyle çözüm olmaz örnek dosyanızı ekleyinizki çözüm bulunabilsin

 

[ümit bektas]

internetten buldum belki işine yarar,


Sub SendWhatsAppMessage()
Dim phoneNumber As String
Dim message As String
phoneNumber = "+905555555555" ' Telefon numarasını buraya girin
message = "deneme" '
Dim url As String
url = "whatsapp://send?phone=" & phoneNumber & "&text=" & message

' Bağlantıyı aç
ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True
End Sub