Script task to catch all SSIS errors. I then used an email task to send out the error report.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Public Class ScriptMain
'Capture Error
Public Sub Main()
Dim msgs As Collections.ArrayList
Try
msgs = CType(Dts.Variables("ErrorCollection").Value, Collections.ArrayList)
Catch ex As Exception
msgs = New Collections.ArrayList
End Try
msgs.Add(Dts.Variables("ErrorDescription").Value.ToString)
Dts.Variables("ErrorCollection").Value = msgs
Dts.Variables.Unlock()
Dts.TaskResult = Dts.Results.Success
End Sub
End Class