EMail when I tap the note field.

Dim txtNote As EditText
Sub txtNote_LongClick   'It is the long click because the single click inserts data.
     'assuming a text box txtNote is holding the note 
     Dim MyEmail As Email  'need phone lib
     Dim MyAddress As String   'Input each time. Better if stored somewhere
     Dim ret As Int
      Dim inputText As InputDialog   'need dialogs lib   
      ret=inputText.Show("Please enter email address","Email","OK","","",Null)
      If ret=-1 Then
         MyAddress=inputText.Input 
      End If      
      MyEmail.To.Add(MyAddress)  'You can validate address
      MyEmail.Subject="This is the new note."      
      MyEmail.Body=txtNote.text   'this is the email body stored in the text box
      StartActivity(MyEmail.GetIntent)
End Sub