Sub Activity_Create(FirstTime As Boolean)
activity.AddMenuItem2("Mail Author","mailme",LoadBitmap(File.DirAssets,"mail.png"))
' here goes more code so i just deleted
End Sub
' And then just put this:
Sub mailme_click
Dim mailapp As Email
mailapp.To.Add("[email protected]")
mailapp.Subject = "From my app"
StartActivity(mailapp.GetIntent)
End Sub