collection.
expression.CommandBars
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example return the CommandBars collection from the MsoEnvelope object in Microsoft Word.
Dim cbars As CommandBars
Set cbars = Application.ActiveDocument.MailEnvelope.Commandbars