Visual Basic.NET - Problema al enviar formulario a dir. de correo

 
Vista:

Problema al enviar formulario a dir. de correo

Publicado por lis (31 intervenciones) el 12/04/2007 22:51:15
saludos, al enviar un formulario a una dir. de correo me sale el siguiente error:

The specified string is not in the form required for an e-mail address.

aqui les posteo mi codigo:

Dim destino As String

Private Sub verifica_correo()
cn.ConnectionString = var_cn
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()

With cmd
.Connection = cn
.CommandType = CommandType.Text
.CommandText = "SELECT distribuidor_id, distribuidor_mail FROM DISTRIBUIDOR WHERE (distribuidor_id = " & cod1 & ")"
dr = .ExecuteReader()
End With
If dr.Read = True Then
destino = dr("distribuidor_mail")
Dim cli_SMTP As New SmtpClient
Dim mensaje As New MailMessage
Try
Dim de As New MailAddress("txt_correo.Text.ToString")
cli_SMTP.Host = "localhost"
cli_SMTP.Port = 25
mensaje.From = de
mensaje.To.Add(destino)
mensaje.Subject = "Ha sido enviado el siguiente formulario"
mensaje.IsBodyHtml = True
mensaje.Body = "<p>Los datos son los siguientes:Nombre:</p>" & txt_nombre.Text.ToString & "<br />Direccion:" & txt_dir.Text.ToString & "<br />Telefono:" & txt_telf.Text.ToString & "<br />Correo:" & txt_correo.Text.ToString & "<br />Codigo:" & txt_codigo.Text.ToString & "<br />Comentarios:" & txt_comentarios.Text.ToString & "</p>"
cli_SMTP.Send(mensaje)
lbl_error.Text = "Mensaje enviado satisfactoriamente"
Catch ex As Exception
mv_error.SetActiveView(v_error)
lbl_error.Text = ex.Message
End Try
Else
mv_error.SetActiveView(v_error)
End If
dr.Close()
cn.Close()
End Sub

gracias a quien se sirva ayudarme!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder