Sub Button_Click
Private ei As Email ' requires Phone library
Dim FileName as string
FileName = "My File"
File.Copy( Starter.AppFolder, FileName, Starter.Provider.SharedFolder, FileName )
Try
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
StartActivity( in )
Catch
Log( "Mail app failed" & CRLF & LastException )
ToastMessageShow( "Mail app failed", True )
End Try