Dim Message As Email
Message.To.Add("indirizzo@email.com")
Message.Subject = "titolo messaggio"
Message.Body = "(testo del messaggio)"
Message.Attachments.Add(File.Combine(File.DirRootExternal, "allegato.txt"))
StartActivity(Message.GetIntent) 'invia la mail