Platform SDK: CDO for Windows 2000

DeleteAll Method

The DeleteAll method removes all BodyPart objects from the collection.

[Visual Basic]
Sub DeleteAll()
[C++]
HRESULT DeleteAll();
[IDL]
HRESULT DeleteAll();

Example

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg as New CDO.Message
Dim iBp as IBodyPart
Dim iBps as IBodyParts
Set iBps = iMsg.BodyPart.BodyParts
Set iBp = iBps.Add
... '  add more body parts
iBps.DeleteAll