Sub btnSave_Click
Dim x As B4XView = Panel1
Dim b As Bitmap = x.Snapshot
If b.IsInitialized = False Then Return
Dim out As OutputStream
out = File.OpenOutput(File.DirInternal, "fullimage.jpg", False)
b.WriteToStream(out, 100, "JPEG")
out.Close
email_photo
End Sub
Sub email_photo
Dim message As Email
message.To.Add("[email protected]")
If File.Exists(File.DirInternal,"fullimage.jpg") Then
message.Attachments.Add(File.Combine(File.DirInternal, "fullimage.jpg"))
End If
message.Subject="photo"
message.Body = "essai de photo"
StartActivity(message.GetIntent)
End Sub