I hope this help someone: Sub whatsappSend(mobile as string,msg as string) Dim sendIntent As Intent sendIntent.Initialize(sendIntent.ACTION_MAIN,"") sendIntent.PutExtra("jid",mobile & "@s.whatsapp.net") sendIntent.Action=sendIntent.ACTION_SEND...
www.b4x.com