Hi,

I've developed a COM addin for Outllook (using VB6) which places a new
command bar button into the Standard toolbar. The button is created
for each inspector window at the point it is opened. The button needs
to have both an icon and text but I'm having trouble setting the icon.

Sample code executed when the inspector loads:

---------------------------------------------------------------------------------------------------------------
Set moButton =
moInspector.CommandBars.Item("Standard").Controls. Add(msoControlButton,
, , , True)

moButton.Caption = BUTTON_CAPTION_EMAIL
moButton.ToolTipText = BUTTON_TOOLTIP_EMAIL
moButton.Style = msoButtonIconAndCaption
moButton.Picture = VB.LoadResPicture(101, 0)
----------------------------------------------------------------------------------------------------------------

The last line of code fails and Outlook raises the following error:

-2147418113 - Catastrophic failure

The button displays and functions OK but without the intended icon.

Interestingly the same error occurs if I try to read the Picture
property into an object variable also. It seems any attempt to access
this property (read or write) causes the error.

Any ideas greatly appreciated.

Thanks
Paul.

Don't multipost. See my answer in another group you posted in.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"pswfps" wrote in message
...
Hi,

I've developed a COM addin for Outllook (using VB6) which places a new
command bar button into the Standard toolbar. The button is created
for each inspector window at the point it is opened. The button needs
to have both an icon and text but I'm having trouble setting the icon.

Sample code executed when the inspector loads:

---------------------------------------------------------------------------------------------------------------
Set moButton =
moInspector.CommandBars.Item("Standard").Controls. Add(msoControlButton,
, , , True)

moButton.Caption = BUTTON_CAPTION_EMAIL
moButton.ToolTipText = BUTTON_TOOLTIP_EMAIL
moButton.Style = msoButtonIconAndCaption
moButton.Picture = VB.LoadResPicture(101, 0)
----------------------------------------------------------------------------------------------------------------

The last line of code fails and Outlook raises the following error:

-2147418113 - Catastrophic failure

The button displays and functions OK but without the intended icon.

Interestingly the same error occurs if I try to read the Picture
property into an object variable also. It seems any attempt to access
this property (read or write) causes the error.

Any ideas greatly appreciated.

Thanks
Paul.