IListTextItemKeys Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Use Keys to get Values
This text may be copied to the notepad, and saved as a *.vbs file. You need a running CRM 5 to make it work. Remember to change the login information.
dim objdb set objdb = CreateObject("superofficedb.database") entablecntry = 19 ' vb would understand the enumeration, but vbs doesn't. isok = objdb.login("<username>","<password>") if isok then set item = objdb.getlistitem(entablecntry, 578) ' country norway keys = item.keys for each k in keys msg = msg & "key = " & k msg = msg & " = " & item.value(k) & vbcrlf next msgbox msg,,"extra item values" else msgbox "could not login" end if