Private Sub btnSendEmail_Click
Dim FileName As String = "b4a.png"
'copy the shared file to the shared folder
File.Copy(File.DirAssets, FileName, Provider.SharedFolder, FileName)
Dim email As Email
email.To.Add("aaa@bbb.com")
email.Subject = "subject"
email.Attachments.Add(Provider.GetFileUri(FileName))
email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
Dim in As Intent = email.GetIntent
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)
End Sub