Send Messages From Excel to WhatsApp

Send Messages From Excel to Whatsapp app
ارسال رسائل من ملف الاكسل الي الواتسب طريقه فعاله جدا
ارسال رسائل للموظفين باجازاتهم
ارسل رساله للعملاء بشكل فعال وسريع
ربط الاكسل بالواتس
الكود المستخدم
sub sahutuber()
on Error GoTo errors:
mobileno = Selection.Value
set myrange = sheet1.Rang("b:b")
rowno=Application.WorksheetFunction.Match(mobileno,myrange,0)
Name=sheet1.Cells(rowno,1).Value
EMI=sheet1.Cells(rowno,3).Value
Amount=sheet1.Cells(rowno,4).Value
ActiveWorkbook.FollowHyperlink Address:="wa.me/"& mobileno &"?text="&Name&Emi&Amount&""
End
errors
Err.Clear
MsgBox "plz select mobile number"
End sub
متنسناش بالاشتراك والتعليق علي الفيديو