Problema al enviar formulario a dir. de correo 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!!
