Dim Message As Email
Dim hw1 As Phone
If subj = "" Then subj = "app error log"
Message.To.Add(Starter.PublicEmail)
Message.Subject = Application.LabelName & "_v." & Application.VersionName
Message.Body = "Mf=" & hw1.Manufacturer & "; Model=" & hw1.Model & "; Product=" & hw1.Product & "; SdkVersion=" & hw1.SdkVersion & CRLF & Text
If AttPath.Trim & AttFileName.Trim <> "" Then
If File.Exists(AttPath, AttFileName) Then
Message.Attachments.Add(File.Combine(AttPath, AttFileName))
End If
End If
Show_CustomToast("Send email to the developers", True)
Dim FinalEmailIntent As Intent
FinalEmailIntent = Message.GetIntent
FinalEmailIntent.SetType("message/rfc822")
FinalEmailIntent.WrapAsIntentChooser("Email:")
StartActivity (FinalEmailIntent)