感谢您指点我正确的方向。今天做了一些工作,并提出了这似乎在伎俩。
私人小组实现Application_ItemSend(BYVAL objItem为对象,取消由于布尔)
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
末次
为什么能自动过程不会照顾自己? – ChrisBint
对不起,迟到的回应。最初的开发人员已离开公司。 – user3802014