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