Sub MailTo(StrAddress As String, StrSubject As String, StrBody As String)
'@yahoo98
Dim StrMethod As String = "Sub StartEmailClient(StrSubject As String, StrBody As String)"
Try
Dim StrUri As String
StrUri = "mailto:" & StrAddress & "?subject=" & StrSubject & "&body=" & StrBody
Dim Intent As Intent
Intent.Initialize(Intent.ACTION_VIEW, StrUri)
StartActivity(Intent)
Catch
'If BlnLoudExceptions Then CdException.Show(StrClass, StrMethod, LastException)
LogColor(LastException & " - " & StrMethod, Colors.Magenta)
End Try
End Sub

MailTo("ایمیل مقصد","عنوان","متن")