View Single Post
  #4  
Old November 20th 08, 02:52 PM posted to microsoft.public.outlook.program_addins
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default place button on ribbon for compose & read message

No idea offhand. The XML looks valid for read emails and uses correct
syntax.

Do you have the UI setting made to show any errors in your ribbon? Check
Tools, Options, Other tab, Advanced Options button, check the "Show add-in
user interface errors".

Also make sure you are getting the callback for that ribbon XML when you
initially open a mail item for reading.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"sd" wrote in message
...
Thanks Ken
I tried below xml
customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="OnLoad"
ribbon
tabs
tab idMso="TabReadMessage"
group id="ClearV2"
label="ClearV2"

button id="Button2"
size="large"
label="ClearV2"
screentip="ClearV2 tip"
onAction="OnButton2"
getEnabled="CallBackIsEnable"
imageMso="HappyFace"/
/group
/tab
/tabs
/ribbon
/customUI

I didn't get any error ,but my button was not displayed on Ribbon for
existing mail.What went wrong?
I'm using single vb file & 2 xml files -one for compose & other for
read.The vb file has below 2 functions
Public Function GetCustomUI(ByVal ribbonID As String) As String
Implements Office.IRibbonExtensibility.GetCustomUI
If ribbonID = "Microsoft.Outlook.Mail.Compose" Then
If gblnLicense = False Then Return Nothing
Return GetResourceText
("Clearv_Outlook_Add_In.rbnComposeMail.xml")
ElseIf ribbonID = "Microsoft.Outlook.Mail.Read" Then
Return GetResourceText
("Clearv_Outlook_Add_In.rbnReadMail.xml")
End If

End Function

Protected Overrides Function RequestService(ByVal serviceGuid As Guid)
As Object
If serviceGuid = GetType(Office.IRibbonExtensibility).GUID
Then
If ribbon Is Nothing Then
ribbon = New rbnComposeMail()
End If
Return ribbon
End If

Return MyBase.RequestService(serviceGuid)
End Function

Thanks again


Ads