whatsaapp üzerinden otomatik mesaj iletme

[umitumit]

Arkadaşlar,

"MÜŞTERİ DETAY" isimli sayfamın D4 hücresinde yazılı mesajı A4 hücresinde yazılı numaraya whatsapp üzerinden atan makro aşağıdadır. Google chrome varsayılan tarayıcım.

Umarım işinize yarar

Sub SendMessageToWhatsApp()
Dim phoneNumber As String
Dim message As String
Dim url As String

' MÜŞTERİ DETAY sayfasını seçin
Sheets("MÜŞTERİ DETAY").Select

' A4 hücresindeki telefon numarasını ve D4 hücresindeki mesajı al
phoneNumber = Range("A4").Value
message = Range("D4").Value

' WhatsApp web URL'sini oluştur
url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & WorksheetFunction.EncodeURL(message)

' WhatsApp Web'i varsayılan tarayıcıda aç
ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True
End Sub

 

[Tevfik_Kursun]

Makro çalıştıktan sonra Google Chrome 'da ENTER 'e basmak kalıyor. Ustalar belki buna da çare bulur.
Teşekkürler

 

[umitumit]

Ben kontrol olması amacıyla enter basmayı manuel kabul ettim.
Tabiki ustalar üstesinden geleceklerdir.