感謝您指點我正確的方向。今天做了一些工作,並提出了這似乎在伎倆。
私人小組實現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