اخي الكريم
لفتح محادثه مع رقم محدد استخدم الشفرة التالية
dIM phone_no, MsgText AS sTRING
phone_no=" رقم الهاتف المحمول"
mSGtEXT="نص الرسالة"
Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & phone_no & "&text=" & MsgText
' الاجراءات بعد فتح الواتس اب سواء عن طريق المتصفح او التطبيق للإرسال
auseTime = 40
start = Timer
Do While Timer < start + auseTime
DoEvents
Loop
Call SendKeys("~", True)
Call SendKeys("{Enter}", True)
Call SendKeys("^v", True)
Call SendKeys("{Enter}", True)