hi to all

i have code for getting contact folders from outlook. but when i was
colllect all folders name in one variable and then getting for which is
contact folder i use FOR EACH loop. that time it is giving error saying
that that varible is not collection type

i type my code here

Dim oFolder As Outlook.MAPIFolder
Dim colFolders As Outlook.Folders

On Error Resume Next

colFolders = oSourceFolder.Folders
If Not (colFolders Is Nothing) Then

For Each oFolder In colFolders
If colFolders.DefaultItemType = olContactItem Then
'do whatever
End If
'recursive call to SetAllContactFolders.
'repeat until no more subfolders
Call SetAllContactFolders(oFolder)
Next
End If

oFolder = Nothing
colFolders = Nothing

it is giving error at FOR EACH oFolder in ColFolders . so error at
ColFolders.

ok so what's prob is.

thanks