Messages not going

[ramco1917]

Hi

I have below code nut sometimes messages does not go. In strPostData it shows correct value.

strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strmessage
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:05"))
Application.SendKeys ("^v")
Application.Wait (Now + TimeValue("00:00:05"))
Application.SendKeys "~"

Thanks