Sub POP_ListCompleted (Success As Boolean, Messages As Map)
Dim temp1 As Long
Log("List: " & Success)
If Success Then
Cursor = database.ExecQuery("SELECT * FROM mail")
Cursor.Position = 0
temp1=Cursor.GetString("nric")
Cursor.close
If temp1>=Messages.Size Then
Else
Dim b As Beeper
b.Initialize(300, 500)
b.Beep
messaggitotali=Messages.Size
Dim res As Int
res = Msgbox2("VUOI LEGGERLO ?", "ATTENZIONE NUOVO MESSAGGIO","SI", "", "No", Null)
If res = DialogResponse.NEGATIVE Then
Return True
Else
database.ExecNonQuery("UPDATE mail SET nric = '" & messaggitotali & "'" )
Dim in As Intent
Dim pm As PackageManager
in = pm.GetApplicationIntent("com.android.email")
If in.IsInitialized Then StartActivity(in)
StartActivity(in)
End If
End If
Else
Log(LastException.Message)
End If
POP.Close
End Sub