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