Vba 单击F5时，宏未显示在宏菜单中

我有VBA代码，可以自动将所有电子邮件转发到外部帐户。单击F5运行宏时，无法使宏显示在“宏”菜单中

 Sub AutoForwardAllSentItemsss(Item As Outlook.MailItem)

 Dim strMsg As String
 Dim autoFwd  As Outlook.MailItem
 Set autoFwd = Item.forward
 autoFwd.Recipients.Add "test@test.com"
 autoFwd.Send
 Set autoFwd = Nothing

 End Sub

---

使用“运行脚本”选项设置规则。当您选择脚本时，您将看到它

如果这不是你要问的

Sub ManuForwardAllSelectedItemsss_V1()

Dim Item As Object
Dim iSend As Long

For iSend = 1 To ActiveExplorer.Selection.Count

    If TypeOf Item Is mailItem Then
        Set Item = ActiveExplorer.Selection(iSend)
        AutoForwardAllSentItemsss Item
    End If

Next

Set Item = Nothing
MsgBox "Done"

End Sub

或

Sub ManuForwardAllSelectedItemsss_V2()

Dim manuFwd  As Outlook.mailItem
Dim Item As mailItem

Dim iSend As Long

For iSend = 1 To ActiveExplorer.Selection.Count

    Set Item = ActiveExplorer.Selection(iSend)

    If TypeOf Item Is mailItem Then
        Set manuFwd = Item.Forward
        manuFwd.Recipients.Add "test@test.com"
        manuFwd.Send
    End If
Next

Set Item = Nothing
Set manuFwd = Nothing

End Sub