Private ei As Email ' requires Phone library
Sub SendEmail( email as String, FileName as string )
ei.To.Add( email )
ei.Body = FileName & " is attached."
ei.Subject = FileName
ei.Attachments.Add( Starter.Provider.GetFileUri( FileName ))
Dim in As Intent = ei.GetIntent
in.Flags = 1 ' FLAG_GRANT_READ_URI_PERMISSION
in.Action = in.ACTION_SEND ' <===== new statement
StartActivity( in )
Ens Sub