Dim email As Email
email.Subject = "Hebrew Bible Tools Suggestion"
email.Body = spnHBBook.SelectedItem & " " & spnHBChapter.SelectedItem & ":" & spnHBVerses.SelectedItem & Chr(10) & Chr(10) & txtHBBibleVerses.text & Chr(10) & Chr(10) & "--------Type below for correction--------" & Chr(10)
email.To.Add("-----")
Dim in As Intent = email.GetIntent
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)