Android Question Corporate and other accounts

[Dario126]

I'm using following code to get email list of accounts from mobile device

Public Sub GetAccounts As List
    Dim r As Reflector
    Dim wAccounts As List
    wAccounts.Initialize
    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)
        wAccounts.Add(r.GetField ("name"))
      Next
    Return wAccounts
End Sub

But this thus not return corporate account which user can have (sometimes as only account). What I need to change to list all acounts, not only google?

Tried to remove "com.google", but then I get nothing.

 

[Erel]

Change this line:
accounts = r.RunMethod2("getAccountsByType", "com.google", "java.lang.String")

To:

accounts = r.RunMethod("getAccounts")

Edit: Fixed getAccounts

 

[Dario126]

Change this line:
accounts = r.RunMethod2("getAccountsByType", "com.google", "java.lang.String")

To:

accounts = r.RunMethod("getAccount")

I get this error then:

java.lang.NoSuchMethodException: getAccount []

 

[Dario126]

Ah ok, it should be "getAccounts" then it works.

Only confusion is I get default account (default goolge account in phone) three times. For example I get those account:
- PHONE
- SIM
- FirstGoogleAcoount (default)
- CorporateAccount
- FirstGoogleAcoount (default)
- FirstGoogleAcoount (default)

Why this default account is tripled ?

 

[Erel]

I don't get multiple accounts when I test it here.

It should be simple to remove duplicates:

Sub Activity_Create(FirstTime As Boolean)
  Dim r As Reflector
  Dim wAccounts As Map
  wAccounts.Initialize
  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.RunMethod("getAccounts")
  For i = 0 To accounts.Length - 1
  r.Target = accounts(i)
      wAccounts.Put(r.GetField ("name"), "")
  Next
  For Each account As String In wAccounts.Keys
     Log(account)
   Next
End Sub

 

[NJDude]

I tried the code above and I don't get any duplicates, what I get is a list of all the email addresses I have setup in my device.