Comment trouver un équivalent au "For Each" de VB pour un objet OLEDB ?

Voir code ci-dessous:

Sub ProcessAttachments(iMsg As CDO.Message)
Dim iBp As CDO.BodyPart
Dim Filename As String
Dim Atchmts As CDO.IBodyParts
Set Atchmts = iMsg.Attachments

' Note that all attachments are contained in body
' parts -- the collection object
' exposes the IBodyParts interface.
If Atchmts.Count > 0 Then
For Each iBp In iMsg.Attachments
Filename = iBp.Filename
If Not Filename = "" Then

' Use the file name
End If
Next iBp
End If
End Sub


D'avance merci

Olivier WAUQUIER
tel: 0327895973