elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  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 1,801 veces)
CH4ØZ

Desconectado Desconectado

Mensajes: 108



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

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

Código
  1. Try
  2.    Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
  3.    client.Credentials = New Net.NetworkCredential("XXX", "XXX")
  4.    client.EnableSsl = True
  5.    Message.Subject = "XXX"
  6.    Message.Body = "XXX"
  7.    client.Send(Message)
  8. Catch ex As Exception
  9.    MsgBox(ex.InnerException.ToString)
  10. End Try


SOLUCIONADO


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

no me juzguen si no me conocen
CH4ØZ

Desconectado Desconectado

Mensajes: 108



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

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
  1. 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
  1. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.   AddHandler Application.ThreadException, AddressOf ExceptionHandler
  3. End Sub
  4.  
  5.    Private Sub ExceptionHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
  6.        Dim client As New SmtpClient("XXX"), Message As New MailMessage("XXX", "XXX")
  7.        Message.IsBodyHtml = True
  8.        Message.Subject = "XXX"
  9.        Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString
  10.        client.EnableSsl = True
  11.        client.UseDefaultCredentials = False
  12.        client.Credentials = New Net.NetworkCredential("XXX", "XXX")
  13.        Try
  14.            client.Send(Message)
  15.        Catch ex As Exception
  16.            MsgBox(ex.InnerException.ToString)
  17.        End Try
  18.        Application.Exit()
  19.    End Sub


En línea

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

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema BlueZScanner y problema de conexión
Hacking Mobile
Kasswed 3 6,289 Último mensaje 6 Mayo 2006, 22:04 pm
por Gospel
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines