رسائل واتساب

[ansary184]

السلام عليكم لدي مشكلة في هذا المديول الخاص بارسال رسائل واتس اب حيث انه لا يقوم بالضغط التلقائي علي زر ارسال بعد كتابة الرساله

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