Sub SendEmail
Log(Filename)
Dim Provider As FileProvider
Provider.Initialize
'Dim Filename As String = "b4a.png"
'copy the shared file to the shared folder
Log(Provider.SharedFolder)
'File.Copy(File.DirAssets, Filename, Provider.SharedFolder, Filename)
File.Copy(MyFolder, Filename, Provider.SharedFolder, Filename)
Log ("File copyed")
' Dim email As Email
' 'email.To.Add("aaa@bbb.com")
' email.Attachments.Add(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