S
Sanjay
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
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