السلام عليكم لدي مشكلة في هذا المديول الخاص بارسال رسائل واتس اب حيث انه لا يقوم بالضغط التلقائي علي زر ارسال بعد كتابة الرساله
Option Compare Database
'WhatsApp must be installed on your PC
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal duMilliseconds As Long)
#End If
Public Function Whatsapp_text(phone, Message)
Dim Path As String
Path = "whatsapp://send?phone=2" & phone & "&text=" & Message
CreateObject("Shell.Application").Namespace(0).ParseName(Path).InvokeVerb "Open"
' إرسال الرسالة
Sleep 2000
SendKeys "~"
Sleep 500
SendKeys "~"
Sleep 500
SendKeys "~"
SendKeys "{NUMLOCK}", True
End Function