/ Forums / Advansys Formativ / Creating Solutions with Formativ / Address Book Rights and Multiple Addresses / Reply To: Address Book Rights and Multiple Addresses

#7250
Support 1a
Participant

In regards to question (2) above, here’s some code that may help:

  dim oBook
  dim oEntry
  dim oMailAddress
  dim iEmailAddresses
 
  set oBook = groupwise.account.addressbooks.item("Test")
 
  ' Iterate through each Address Book Entry
  for each oEntry in oBook.AddressBookEntries
    iEmailAddresses = ""
 
    ' Iterate through each EMail Address object of the address book entry
    for each oMailAddress in oEntry.EMailAddresses
      iEmailAddresses = iEmailAddresses & oMailAddress.MailAddress & vbcrlf
    next
 
    msgbox "Address Book entry: " & oEntry.displayname & vbcrlf & iEmailAddresses
  next
 
  set oMailAddress = nothing
  set oEntry = nothing
  set oBook = nothing

This code uses native access to the Address books collection, as opposed to the wrapped collection. You need to pass it a book name.

I’ll post something regarding question (1) shortly.

I hope this helps.

Advansys Support