elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 08:31  


Tema destacado: Sigue las noticias más importantes de elhacker.net en ttwitter!

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderador: [D4N93R])
| | | |-+  problema con smtpclient
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problema con smtpclient  (Leído 541 veces)
CH4ØZ

Desconectado Desconectado

Mensajes: 105



Ver Perfil
problema con smtpclient
« en: 7 Octubre 2011, 06:29 »

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

Código
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


« Última modificación: 9 Octubre 2011, 23:08 por CH4ØZ » En línea

no me juzguen si no me conocen
CH4ØZ

Desconectado Desconectado

Mensajes: 105



Ver Perfil
Re: problema con smtpclient
« Respuesta #1 en: 8 Octubre 2011, 22:45 »

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.

Código
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:
Código
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


En línea

no me juzguen si no me conocen
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines