| Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Returns the BodyPart object specified by index.
[Visual Basic] Property Item(ByVal Index as Long) as IBodyPart read-only default [C++] HRESULT get_Item( long Index, IBodyPart** pVal); [IDL] HRESULT [propget,id(0)] Item([in] long Index, [out,retval] IBodyPart** pVal);
Item is the default member on the interface.
Sub ProcessBodyParts( iBp as CDO.IBodyPart )
Dim Count as Long
' Process body part code here
' Recursively descend body part hierarchy
Dim iBp_local as CDO.IBodyPart
Count = iBp.Count
If Count > 1 Then
Dim iBps as CDO.IBodyParts
Set iBps = iBp.BodyParts
For I = 1 to Count
' Item is default
' Explicitly typing ".Item" is unnecessary
Set iBp_local = iBps.Item(I)
ProcessBodyPart iBp_local
Next I
End If
End Sub