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