如何在Outlook中收到新邮件后运行Excel宏？-Java 学习之路

我想在带有“主题”的电子邮件发送到我的收件箱时运行Excel宏 . 我设置在Outlook中的管理规则和警报中运行脚本 . 当我收到带有“主题”的邮件时，宏没有任何反应 .

Sub Test(mail As MailItem)

    Dim ExApp As Excel.Application
    On Error Resume Next
    Set ExApp = GetObject(, "Excel.Application")
    If Not ExApp Is Nothing Then
        ExApp.Run "'C:\Users\Desktop\Production v2.7.1.xlsm'!Main_function_Auto"
    End If
End Sub

1 回答

从Outlook调用Excel子过程时，请确保包含模块名称 -

例

Option Explicit
Public Sub Example(Item As Outlook.MailItem)
    Dim xlApp As Excel.Application
    Dim xlBook As Workbook

    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open(Environ( _
                        "USERPROFILE") & "\Desktop\Production.xlsm")
    xlApp.Visible = True

'   // Run Macro in file
    xlBook.Application.Run "Module1.Main_function_Auto"

    Set xlApp = Nothing
    Set xlBook = Nothing
End Sub

回复于 2024-05-02T16:47:38+08:00

如何在Outlook中收到新邮件后运行Excel宏？

1 回答

相关问题