Bug? Problem sending Attachments on marshmallow

'Sul click della label Info Mando la mail con l'UDID per l'attivazione
    Dim mailapp As Email
    mailapp.Subject = "Contatto da Android"

    Dim Codice As String = CreaEmail
    'Imposto il testo della mail
    mailapp.Body = "In allegato il contatto"
    mailapp.To.Add("support@palmosoft.com")
   
    'Allego l'attivazione
    File.WriteString(File.DirRootExternal, Codice & ".txt", Codice)
   
    Dim list1 As List
    list1 = File.ReadList(File.DirRootExternal, Codice & ".txt")
    For x = 0 To list1.Size - 1
        Log(list1.Get(x))
    Next
   
    mailapp.Attachments.Add(File.DirRootExternal & "/" & Codice & ".txt")
    'Mando la mela
    StartActivity(mailapp.GetIntent)

Sub Activity_Click
   Dim e As Email
   File.WriteString(File.DirRootExternal, "1.txt", "abc")
   e.Attachments.Add(File.Combine(File.DirRootExternal, "1.txt"))
   StartActivity(e.GetIntent)
End Sub