Foro de elhacker.net

cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Try
    Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
    client.Credentials = New Net.NetworkCredential("XXX", "XXX")
    client.EnableSsl = True
    Message.Subject = "XXX"
    Message.Body = "XXX"
    client.Send(Message)
Catch ex As Exception
    MsgBox(ex.InnerException.ToString)
End Try

SOLUCIONADO

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