VSTO Position CommandBarButton

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 sur la barre des tâches - idéalement, je voudrais le placer juste à côté du bouton Envoyer.

Voici le code que j'ai jusqu'à maintenant.

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.

Answer 1

je aurais dû utiliser la syntaxe commandBar.AddControl(control, position) à la place

Answer 2

dans Outlook 2007:

(Office.CommandBarButton)commandBars["Standard"].Controls.Add(Office.MsoControlType.msoControlButton, System.Reflection.Missing.Value, System.Reflection.Missing.Value,2,true); 

où 2 est le nombre de postes.