Dim Message As Email
Message.Subject = "Titel der E-Mail"
Message.body = "Hallo, das ist mein E-Mail Text" 'Email main text
Message.To = 'Liste der Empfänger
Message.Attachments.Add(File.Combine(File.DirInternal, "meinedatei.txt"))' attach a file to the email
StartActivity(Message.GetIntent)