Outlook 2016 - Makro startet nicht über Knopf im Menüband

Sub Info()
    Dim myItem As Outlook.MailItem
    Dim olNewMailItem As Outlook.MailItem
    
    ' get valid ref to current item  
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"  
            Set myItem = ActiveExplorer.Selection.Item(1)
        Case "Inspector"  
            Set myItem = ActiveInspector.CurrentItem
        Case Else
    End Select
    On Error GoTo 0

    If myItem Is Nothing Then
        MsgBox "Konnte kein aktuelles Mailitem finden!", vbExclamation  
        GoTo exitproc
    End If

    Set olNewMailItem = myItem.Forward
    olNewMailItem.Subject = "WL: " & myItem.Subject  
    olNewMailItem.To = "info@name.de"  
    olNewMailItem.SentOnBehalfOfName = myItem.SenderEmailAddress
    olNewMailItem.Display
    'Nächste Zeile auskommentieren wenn die Nachricht direkt gesendet werden soll  
    olNewMailItem.Send
    myItem.Delete

exitproc:
Set myItem = Nothing
Set olNewMailItem = Nothing
End Sub