Dim FileName As String = "Somename.pdf"
'copy the shared file to the shared folder
File.Copy(rp.GetSafeDirDefaultExternal("") & "/pdf", FileName, Provider.SharedFolder, FileName)
Dim email As Email
'email.To.Add("gregchao@cox.net")
email.To.Add("")
email.Subject = "Somename PDF"
email.Body = "Send This email to yourself"
email.Attachments.Add(Provider.GetFileUri(FileName))
Dim in As Intent = email.GetIntent
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
in.SetType("application/pdf")
StartActivity(in)