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

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

1 个答案: