Sub sharex_Click
Dim shareout As OutputStream
shareout = File.OpenOutput(File.DirRootExternal, "photo.jpg", False)
fotka.WriteToStream(shareout,100,"JPEG")
shareout.Close
ToastMessageShow("Saved to root folder.",False)
[COLOR="SeaGreen"]' It saves image on SD card. I tested it[/COLOR]
share.Initialize(share.ACTION_SEND,"")
share.SetType("image/jpeg")
share.PutExtra("android.intent.extra.stream", "file:///sdcard/photo.jpg")
share.WrapAsIntentChooser("Share Photo:)")
StartActivity(share)
[COLOR="SeaGreen"]' This part doesn't put image in mail or facebook app, or messaging, or twitter...[/COLOR]
End Sub