Menu
Index

Checking for Batches that Failed Exporting

 
 
This sample can be used to check for Batches that have errors. This script will generate a message that is sent via email if there are any batches on the system that returned errors while exporting.
Just replace "JOB NAME" with the desired Job name or leave it empty to loop through all existing batches.
 
batchesArray = ChronoApp.GetBatches("JOB NAME")
 
BatchStatArr = Array("not exported","exported ok","not exported because of not validated documents","error exporting","export canceled")
 
strMessage = ""
 
For Each strBatch In batchesArray
    Set Batch = ChronoApp.CreateBatch("JOB NAME",strBatch)
    batchStatus = Batch.GetExportStatus
    If batchStatus = 1 Then
        strMessage = strMessage
    Else
    strMessage = strMessage & "Batch Name: " & strBatch & " Batch Status: " & BatchStatArr(batchStatus)
    End If
Next
 
   
   
 
If strMessage <> "" Then
'msgbox strMessage
 
 
'The code for the email is the following. Several details can be added including attachments
 
    strSMTPFrom = "TOemail@domain.com"
    strSMTPTo = "FROMemail@somedomain.com"
    strSMTPRelay = "yourrelay.domain.net"
    strTextBody = ""
    strSubject = BatchName & " has " & NumErrors & " validation error(s)"
 
    'A good idea is to include a file with the export report as an attachment
 
    'strAttachment = "c:\this_attachment.pdf"
 
 
    Set oMessage = CreateObject("CDO.Message")
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    oMessage.Configuration.Fields.Update
 
    oMessage.Subject = strSubject
    oMessage.From = strSMTPFrom
    oMessage.To = strSMTPTo
    oMessage.TextBody = strMessage
    'oMessage.AddAttachment strAttachment
 
 
    oMessage.Send
 
Else
End If
 
comments powered by Disqus