Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Returns the number of BodyPart objects in the collection.
[Visual Basic] Property Count as Long read-only [C++] HRESULT get_Count(long* pVal); [IDL] HRESULT [propget] Count([out,retval] long* pVal);
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 Set iBp_local = iBps(I) ProcessBodyPart iBp_local Next I End If End Sub