VSTO posición CommandBarButton
-
21-08-2019 - |
Pregunta
Estoy escribiendo un VSTO complemento para añadir un botón de la barra de herramientas estándar para todos los nuevos MailItems en Outlook 2003.
Lo tengo sobre todo terminado, pero no puedo ver a encontrar la manera de configurar la posición del botón en la barra de tareas -. Lo ideal sería que colocarlo justo al lado del botón Enviar
Aquí está el código que tengo hasta ahora.
Private Sub colInsp_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles colInsp.NewInspector
Dim msg As Outlook.MailItem
Dim commandBar As Office.CommandBar
Dim encryptButton As Office.CommandBarButton
Dim olkitem As Object
olkitem = Me.ActiveInspector().CurrentItem
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
msg = CType(Inspector.CurrentItem, Outlook.MailItem)
commandBar = Inspector.CommandBars("Standard")
encryptButton = commandBar.FindControl(Tag:="EncryptMail")
If Not (encryptButton Is Nothing) Then
encryptButton.Delete()
End If
encryptButton = CType(commandBar.Controls.Add(1), Office.CommandBarButton)
encryptButton.Style = Office.MsoButtonStyle.msoButtonIconAndCaption
encryptButton.FaceId = 718
encryptButton.Caption = "Secure Email"
encryptButton.Tag = "EncryptMail"
If olkitem.Sensitivity = Outlook.OlSensitivity.olConfidential Then
encryptButton.State = Office.MsoButtonState.msoButtonDown
End If
AddHandler encryptButton.Click, AddressOf encryptButton_Click
msg = Nothing
End If
End Sub
Cualquier ayuda sería enormemente apreciada!
Gracias, Jim.
Solución
Debería haber usado la sintaxis commandBar.AddControl(control, position)
lugar
Otros consejos
en Outlook 2007:
(Office.CommandBarButton)commandBars["Standard"].Controls.Add(Office.MsoControlType.msoControlButton, System.Reflection.Missing.Value, System.Reflection.Missing.Value,2,true);
donde 2
es el número de posiciones.
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow