Access default "contact folder"

Hi!

I wonder if there is a way to dynamically access the default “contact folder” using the COM toolkit.

I´m currently accessing the ‘default view’, but is it always the contact folder?

Here is my code:

Dim nErrCode As Integer

Dim objNotesSession As Object

Dim objNotesDb As Object

Dim objNotesMyDoc As Object

Dim objNotesMyView As Object

Dim objNotesMyItem As Object

objNotesSession = CreateObject(“Lotus.NotesSession”) 'Late binding

    objNotesSession.Initialize()

    objNotesDb = objNotesSession.GetDatabase("", "names.nsf")

For Each view As Object In objNotesDb.Views

If view.IsDefaultView Then

objNotesMyView = view

End If

Next