Dim cb 
Dim cbs
Dim ap 

Set ap = CreateObject("Outlook.Application")
    
Set cbs = ap.Explorers.Item(1).CommandBars.Add("Spam panel")
Set cb = cbs.Controls.Add(1, 1)
cb.Caption = "Not spam"
cb.FaceId = 1
cb.OnAction = "ReportNotSpam"
Set cb = cbs.Controls.Add(1, 1)
cb.Caption = "Spam"
cb.FaceId = 2
cb.OnAction = "ReportSpam"
    
cbs.Visible = True