Sub sharePDFToViaWs(afile As String, toNumber As String)
Dim in As Intent
in.Initialize(in.ACTION_MAIN,"")
fFileProvider.SetFileUriAsIntentData(in, afile)
in.Action=in.ACTION_SEND
in.SetPackage("com.whatsapp.w4b")
in.PutExtra("android.intent.extra.STREAM", fFileProvider.GetFileUri(afile))
in.PutExtra("jid", "27" & toNumber & "@s.whatsapp.net")
in.putExtra("android.intent.extra.TEXT", "Testing")
in.SetType("application/pdf")
StartActivity(in)
End Sub
Private Sub btnSendWhatsapp_Click
Dim PhoneNumber As String = txtWA_Phone_Number.Text
Dim Formatted_Phone_Number As Int = NumberFormat2(PhoneNumber,0,0,0,False)
Log("Formatted_Phone_Number = "&NumberFormat2(Formatted_Phone_Number,0,0,0,False))
sharePDFToViaWs(Receipt_File_Name, Formatted_Phone_Number)
pnlReceiptWhatsapp.Visible = False
End Sub