The following VB worked for me in R5 but not R6.R6 errors with 13 - Invalid type at the For
loop. R5 and R6 domobj both show AddressBooks
as a Variant.
Dim domSession As NotesSession
Dim Books As Variant
…
Books = domSession.AddressBooks
For Each b In Books
b.Open
i = i + 1
j = j + 1
ReDim Preserve domDb(j)
Set domDb(i) = domSession.GetDatabase(b.Server, b.FilePath, True)
Next
Set Books = Nothing