[QUOTE="
Not seeing anything in the logs. When I run the App, I get "Error occurred. An error has ocurred in sub: java.lang.RuntimeException: Object should firstr be initialized (Uri). Continue?".
Sub GetEmailAddress
Dim r As Reflector
Dim AccountName As String
Dim LineNumber As String
Dim cr As ContentResolver
Dim u As Uri
Dim c As Cursor = cr.Query(u, Null, "", Null, "")
r.Target = r.RunStaticMethod("android.accounts.AccountManager", "get", _
Array As Object(r.GetContext), Array As String("android.content.Context"))
Dim accounts() As Object
accounts = r.RunMethod2("getAccountsByType","com.google", "java.lang.String")
For i = 0 To accounts.Length - 1
r.Target = accounts(i)
AccountName = r.GetField("name")
InstallEMail = AccountName
Next
' ---------------------------------------------------------------
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "phone", "java.lang.String")
LineNumber = r.RunMethod ("getLine1Number")
InstallPhone = LineNumber
'---------------------------------------------------------------
u.Parse("content://com.android.contacts/profile")
cr.Initialize("cr")
For i = 0 To c.RowCount - 1
c.Position = r
For col = 0 To c.ColumnCount - 1
InstallName = c.GetColumnName(col) & ": " & c.GetString2(col)
' Log(c.GetColumnName(col) & ": " & c.GetString2(col))
Next
Next
Msgbox(InstallName,"")
End Sub