Add menu item to Outlook

[Corbie]

Hi

I'm trying to add a menu item to the toolbars in MS Outlook
with following Code:

Sub testbar()
Dim customBar As CommandBar
Dim newButton As CommandBarPopup

Set customBar = CommandBars.FindControl(ID:="Tools&quot ***

Set newButton = customBar.Controls _
.Add(msoControlButton)
With newButton
.Caption = "&Save Attachment"
.OnAction = "Save_Attachments"
.BeginGroup = True
End With
End Sub

but keep getting run time error 424/object required
on line marked with ***

Not too good with VBA so could easily be making silly
mistake - could somebody please help

Thanks

Paul