单击F5时，宏不显示在宏菜单中

Question

我有自动转发所有电子邮件到外部帐户的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

Answer 1

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

如果这不是你要问的。

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