Erreur d'exécution «La valeur ne se situe pas dans la plage attendue».

Question

ici je crée le Outlook ajouter. Où je crée une barre de menu un élément et ajouter un bouton sur la barre de menu.quand j'exécute l'application j'obtiens une erreur d'exécution "La valeur ne tombe pas dans la fourchette attendue" dans MyMenuBar() lors de l'initialisation de _objNewMenuBar. Quelqu'un peut-il me suggérer pourquoi il me donne ce type ou erreur.Il s'agit d'une valeur stacktrace wherei m obtenir erreur
à Microsoft.Office.Core.CommandBarControls.Add (Type d'objet, ID d'objet, paramètre d'objet, objet avant, objet temporaire) à TROutlookAddOn.ThisAddIn.MyMenuBar()

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup 
    Me.MyMenuBar() 
End Sub 

Private Sub MyMenuBar() 
    Me.ErsMyMenuBar() 
    Try 
     'Define the existent Menu Bar 
     _objMenuBar = Me.Application.ActiveExplorer.CommandBars.ActiveMenuBar 
     'Define the new Menu Bar into the old menu bar 
     _objNewMenuBar = CType(_objMenuBar.Controls.Add(Office.MsoControlType.msoControlPopup, missing, missing, missing, False), Office.CommandBarPopup) 
     If (Not (_objNewMenuBar) Is Nothing) Then 
      _objNewMenuBar.Caption = "Talent Recruit" 
      _objNewMenuBar.Tag = menuTag 
      _objButton = CType(_objNewMenuBar.Controls.Add(Office.MsoControlType.msoControlButton, missing, missing, 1, True), Office.CommandBarButton) 
      _objButton.Caption = "Import Resume" 
      Dim newIcon As System.Drawing.Icon = My.Resources.recruit_logo 
      Dim newImageList As ImageList = New ImageList 
      newImageList.Images.Add(newIcon) 
      _objButton.Picture = ConvertImage.Convert(newImageList.Images(0)) 
      _objButton.Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonIconAndCaption 
      'Icon 
      '_objButton.FaceId = 500; 
      _objButton.Tag = "ItemTag" 
      'EventHandler 
      AddHandler _objButton.Click, AddressOf Me._objButton_Click 
      _objNewMenuBar.Visible = True 
     End If 
    Catch ex As System.Exception 
     System.Windows.Forms.MessageBox.Show(("Error: " + ex.Message.ToString), "Error Message") 
    End Try 
End Sub 

Answer 1

Solution pour supprimer toute variable manquante de méthode