VSTO Position CommandBarButton
-
21-08-2019 - |
Question
J'écris un VSTO add-in pour ajouter un bouton de la barre d'outils standard pour tous les nouveaux MailItems dans Outlook 2003.
Je l'ai fini la plupart du temps, mais je ne vois pas travailler comment définir la position du bouton dans la barre des tâches -. Idéalement, je voudrais le placer juste à côté du bouton Envoyer
Voici le code que j'ai jusqu'à présent.
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
Toute aide serait grandement appréciée!
Merci, Jim.
La solution
Je l'ai utilisé la syntaxe à la place commandBar.AddControl(control, position)
Autres conseils
dans Outlook 2007:
(Office.CommandBarButton)commandBars["Standard"].Controls.Add(Office.MsoControlType.msoControlButton, System.Reflection.Missing.Value, System.Reflection.Missing.Value,2,true);
où est le nombre 2
de positions.
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow