Dim in As Intent
in.Initialize("android.intent.action.SENDTO", "mailto:")
in.PutExtra("android.intent.extra.EMAIL", Array As String(EmailToStr))
in.PutExtra("android.intent.extra.SUBJECT", "Some Subj")
in.PutExtra("android.intent.extra.TEXT", BodyStr)
StartActivity(in)