lcoutfile="c:\ol.log" ERASE (lcoutfile) IF TYPE("oOutlook.ActiveExplorer.CommandBars")="O" AND NOT ISNULL(oOutlook.ActiveExplorer.CommandBars) WITH oOutlook.ActiveExplorer.CommandBars FOR ia=1 TO .Count WITH .Item(ia) STRTOFILE(.accName + " "+TRANSFORM(.Controls.count)+ " controls"+CHR(13)+CHR(10),; lcoutfile,.t.) FOR ib=1 TO .Controls.count STRTOFILE(REPLICATE(CHR(9),2)+.Controls(ib).accName+CHR(9)+; TRANSFORM(.Controls(ib).accChildCount)+ " childs"+CHR(13)+CHR(10),; lcoutfile,.t.) FOR ic=1 TO .Controls(ib).accChildCount IF NOT ISNULL(.Controls(ib).accChild(ic)) STRTOFILE(REPLICATE(CHR(9),3)+; .Controls(ib).accChild(ic).accname + CHR(9)+TRANSFORM(.Controls(ib).accChild(ic).ID) + CHR(9)+; TRANSFORM(.Controls(ib).accChild(ic).Enabled)+CHR(13)+CHR(10),; lcoutfile,.t.) ENDIF ENDFOR ENDFOR endwith ENDFOR ENDWITH ELSE ?"oOutlook.ActiveExplorer.CommandBars is not an object..." ENDIFGood Luck
>m.loOutlook= GETOBJECT(, "Outlook.Application") && get already open outlook obj >m.loOutlook.ActiveExplorer.CommandBars.FindControl(,354).Execute && reply using explorer obj >m.loOutlook.ActiveInspector.CommandBars.FindControl(,22).Execute && paste using inspector obj >>You can see a list of the commandbar IDs here and on other sites:
>>oOutlook.ActiveExplorer.CommandBars("Standard").Controls("Send/Receive").execute >>