I'm having a problem accessing the GroupWise Address...

Articles and Tips: qna

01 Aug 2003

I'm having a problem accessing the GroupWise Address Books. Can anyone show me an example of accessing them?

Here is VB code to find the local name of the name field in the Novell Address book.

Set objApp = CreateObject("NovellGroupWareSession")
Set objRootAccount = objApp.Login("", "")
Set objAddressBooks = objRootAccount.AddressBooks
If objAddressBooks.Count Then
      For Each objAddressBook In objAddressBooks
            GoTo NovellABFound 'The Novell Address book is always thefirst
      Next
End If
NovellABFound:
      Set objAddressBookEntries = objAddressBook.AddressBookEntries
          'Finding the name of the name field (different in different
          languages)
      If objAddressBookEntries.Count Then
            For Each objAddressBookEntry In objAddressBookEntries
                  Set objABEFields = objAddressBookEntry.Fields
                  If objABEFields.Count Then
                        y = objABEFields.Count
                        For i = 1 To y
                              'MsgBox objABEFields.Item(i).Name + "*" +
                                       objABEFields.Item(i).Value + _
                                       ' "*" + str(objABEFields.Item(i).
                                          FieldID)
                           If objABEFields.Item(i).FieldID = "805371934"
                           Then
                                strFieldNameName = 
                                    objABEFields.Item(i).Name
                                GoTo EndLoop
                           End If
                     Next
               End If
         Next
EndLoop:
      End If

* Originally published in Novell AppNotes

Disclaimer

The origin of this information may be internal or external to Novell. While Novell makes all reasonable efforts to verify this information, Novell does not make explicit or implied claims to its validity.