VBA/COM... session.AddressBooks... Err 13... Invalid type

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

Subject: VBA/COM… session.AddressBooks… Err 13… Invalid type

I read a post once that talked about a problem where if your current Location document (in local names.nsf) specifies a Home Server that you cannot access, the Session.AddressBooks property will be empty or null.