Mangel event på knap i outlook

Fandt selv svaret.... skal lægge under ThisOutlookSession

Dim WithEvents myControl As CommandBarButton

Sub Application_Startup()

  Dim oExp As Outlook.Explorer
  Dim oBar As Office.CommandBar

  Set oExp = Outlook.ActiveExplorer
  Set oBar = oExp.CommandBars.Item("Standard")

  ' See if button already exists based on Tag value
  Set myControl = oBar.FindControl(, , "OpenForm")

  ' If not found then create button
  If myControl Is Nothing Then
      Set myControl = oBar.Controls.Add(, , , 2, True)
      With myControl
        .Caption = "Open Form"
        .FaceId = 59
        .Style = msoButtonIconAndCaption
        .Tag = "OpenForm"
        .Visible = True
      End With
  End If

End Sub

Private Sub myControl_Click(ByVal Ctrl As _
      Office.CommandBarButton, CancelDefault As Boolean)
     
  Dim myFolder As MAPIFolder

  Set myFolder = Session.GetDefaultFolder(olFolderInbox)
  Set MyItem = myFolder.Items.Add("IPM.Post.TestForm")
  MyItem.Display

  Set MyItem = Nothing
  Set myFolder = Nothing

End Sub