Sub SendMail(varPhat As String, varDatei As String)
Starter.CL.Lg("Send eMail")
Dim vSubject As String
Dim Message As Email
vSubject= "LogFile: " & varDatei
'Message.To.Add("myadress@provider.com")
Message.Subject = vSubject
Message.Body = ""
If p.SdkVersion >=24 Then
Starter.CL.Lg("New")
Message.Attachments.Add(CreateFileProviderUri(varPhat, varDatei))
Else
Starter.CL.Lg("Old")
Message.Attachments.Add(File.Combine(varPhat, varDatei))
End If
StartActivity(Message.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