Outlook 发送电子邮件后运行应用程序答案

【问题标题】：Run application after Outlook sends emailOutlook 发送电子邮件后运行应用程序
【发布时间】：2014-08-24 17:07:49
【问题描述】：

我们有一个自动化流程，可以从 Avaya CMS 中提取呼叫数据并将数据编译成基于电子邮件的报告。该报告通过 Outlook 2010 发送。有时自动化过程会失败，并且会生成一封主题为“ASR - ERROR OCCURRED”的电子邮件。当前使用规则，此错误消息将转发给少数人以进行纠正措施。问题是能否在 Outlook 中构建一个动作来识别主题并执行重新启动自动化应用程序的步骤？

有两个缓存文件需要手动删除和一个 *.exe 才能运行。目前我在电脑桌面上有一个 *.bat 文件来删除文件，然后我们必须根据报告运行的时间手动选择正确的 *.exe 文件。

谢谢

【问题讨论】：

为什么自动化流程不能自理？
抱歉回复晚了。原来的开发者已经离开了公司。

标签： email outlook

【解决方案1】：

您可以创建一个脚本以作为 Outlook 规则的一部分运行，但这仅适用于打开的 Outlook：

http://support.microsoft.com/kb/306108

这里问了一个类似的问题： Outlook rule to run VBA script that runs external program

要运行应用程序，需要启动应用程序操作（2013 年，不确定 2010 年）

【讨论】：

【解决方案2】：

感谢您为我指明正确的方向。今天做了一些工作并想出了这个似乎可以解决问题的方法。

Private Sub Application_ItemSend(ByVal objItem As Object, Cancel As Boolean)

Dim mi As MailItem

Dim batPath As String

Dim TMin As Integer

batPath = "C:\Users\sxxxxxx\Desktop\"


If TypeName(objItem) = "MailItem" Then

    Set mi = objItem


    If mi.Subject = "ASR - ERROR OCCURRED" Then


        Call Shell(batPath & "cms cache del.bat") 'clears all cache files and stops process

        TMin = Right(Format$(Now(), "Short Time"), 2)

        If TMin < 10 Or TMin > 30 Then    'determine based on when error occurred which report to re-run


            Call Shell(batPath & "XXXX.bat")


        Else

            Call Shell(batPath & "XXXX.bat")


        End If

    End If

End If

结束子

【讨论】：