Contactitem collection

I have a sub in my program to display all the contacts from a public folder. My problem is the performance. Some of company branch have more than 1000 mixed items in a folder (mails, contacts, ...). This is taking more than 60 seconds to get the result :confused: . Any idea to decrease the responds time will be appreciate.

VB Code:

Set olObject = olItems.GetFirst
 
' For i = 1 To olItems.Count
    While Not (TypeName(olObject) = "Nothing")
    
        If olObject.Class = Outlook.olContact Then
' Set olSafeContactItem = New Redemption.SafeContactItem
' olSafeContactItem.Item = olObject
            
            Set olContactItem = olObject
' With olSafeContactItem
            With olContactItem
                If optAffichageContacts(mcOptCourriel).Value = True Then
                    If .Email1Address <> "" Then
                        Set itmListItem = lvwContactsPublics.ListItems.Add(, .EntryID, .FullName, , mcIconOutlookContact)
                        Call itmListItem.ListSubItems.Add(, , .Email1Address)
                        Call itmListItem.ListSubItems.Add(, , .CompanyName)
                    End If
                Else
                    If .BusinessFaxNumber <> "" Then
                        Set itmListItem = lvwContactsPublics.ListItems.Add(, .EntryID, .FullName, , mcIconOutlookContact)
                        Call itmListItem.ListSubItems.Add(, , .BusinessFaxNumber)
                        Call itmListItem.ListSubItems.Add(, , .CompanyName)
                    End If
                End If
            End With
        End If
    
        Set olObject = olItems.GetNext
    
    Wend
    'Next i

Are you using a .Restrict or a .Find to populate your olItems object?
I see comments on redemption. Are you using it also or the OOM only?

I dont use restrict or find because those functions are a kind of string filter. I dont want to filter, i want to display all the contacts of the current folder. I have the redemption object to avoid the outlook security message, but even if i remove it, i have the same result (too long).

If you dont have a tip or a hint, i will force the company branch to reorganize their public folders.

No tips if your getting all the folder contents. They are just to large for Outlook to perform quickly. Outlook
is not know for its speed ;)

Edit: One tip would be to organize your item into folders by type. Contacts in one folder, MailItems in another, etc.