despues de estar un rato examinando, descubri que el codigo presentado anteriormente no es el causante del problema, si no lo que coloco en el body.
Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString
si eso causa una exepcion, quiere decir que no hay ni sender ni e en el codigo (ya que testie con ambos valores)
Alguna idea del problema???
Este es el codigo:
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Application.ThreadException, AddressOf ExceptionHandler
End Sub
Private Sub ExceptionHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
Dim client As New SmtpClient("XXX"), Message As New MailMessage("XXX", "XXX")
Message.IsBodyHtml = True
Message.Subject = "XXX"
Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString
client.EnableSsl = True
client.UseDefaultCredentials = False
client.Credentials = New Net.NetworkCredential("XXX", "XXX")
Try
client.Send(Message)
Catch ex As Exception
MsgBox(ex.InnerException.ToString)
End Try
Application.Exit()
End Sub