Sub SendMail
File.Copy(Main.PUB_InstDir,"myfile.hny",File.DirRootExternal,"test.bok")
Private Msg As Email
Private p As Phone
If p.SdkVersion >=24 Then
Msg.Attachments.Add(CreateFileProviderUri(Main.PUB_InstDir,"myfile.hny"))
Else
Msg.Attachments.Add(File.Combine(Main.PUB_InstDir,"myfile.hny"))
End If
Msg.To.Add("[email protected]")
Msg.Subject = "Mail Subject "
Msg.Body = "Mail Body"
StartActivity(Msg.GetIntent)
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim FileProvider As JavaObject
Dim context As JavaObject
context.InitializeContext
FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub