none
enviar correos visual basic.net RRS feed

  • Pregunta

  • Hola buen dia a todos espero esten bien

    Tengo el siguiente codigo que lo quiero utilizar para enviar correos.. pero al orpimir el boton de enviar me aparece el siguiente error

    Excepción no controlada del tipo 'System.FormatException' en System.dll

    Información adicional: La cadena especificada no tiene la forma obligatoria para una dirección de correo electrónico.

    el error me aparece en la linea que esta en negrita y subrayada...   Espero puedan ayudarme.. quiero enviar un correo  al dominio  segurosmundial.com.co pertenen a gmail.

    Gracias buen dia

           

      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim message As New System.Net.Mail.MailMessage()
            Dim smtp As New System.Net.Mail.SmtpClient

            smtp.Credentials = New System.Net.NetworkCredential("mundialtesta1@gmail.com", "Mundial14")
            smtp.Host = "smtp.gmail.com"
            smtp.Port = 465
            smtp.EnableSsl = True

    Message.[To].Add(TextBox2.ToString)
            Message.From = New System.Net.Mail.MailAddress("mundialtesta1@gmail.com", "Mundial", System.Text.Encoding.UTF8)
            Message.Subject = Me.TextBox3.Text.ToString
            Message.SubjectEncoding = System.Text.Encoding.UTF8
            Message.Body = Me.ListBox1.Text.ToString
            Message.BodyEncoding = System.Text.Encoding.UTF8
            Message.Priority = System.Net.Mail.MailPriority.Normal
            Message.IsBodyHtml = False

            Try
                smtp.Send(Message)
                MessageBox.Show("Mensaje enviado correctamente", "Extito!", MessageBoxButtons.OK)

            Catch ex As System.Net.Mail.SmtpException
                MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
            End Try

        End Sub

    jueves, 13 de febrero de 2014 14:06

Respuestas

  • SI SOLUCIONO TU RESPUESTA NO OLVIDES MARCAR COMO RESPUESTA Y VOTAR COMO UTIL

    Hola

    cambia la linea por

    Message.To.Add(New MailAddress(TextBox2.Text))

    Si quieres asegurarte que lo que esta en el TextBox2 es una cuenta de correo valida ...puedes agregar estas lineas

     Dim emailRegEx As New Regex("^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$")
              Dim m As Match = emailRegEx.Match(TextBox2.Text)
                        If m.Success Then
                            Message.To.Add(New MailAddressTextBox2.Text))

                         else

                        MessageBox.Show ("NO ES INA CUENTA DE CORREO VALIDA")

                        Exit Sub

                     End If


    EFRAIN MEJIAS C VALENCIA - VENEZUELA

    • Marcado como respuesta Maurohh jueves, 13 de febrero de 2014 16:33
    jueves, 13 de febrero de 2014 14:20
  • SI SOLUCIONO TU RESPUESTA NO OLVIDES MARCAR COMO RESPUESTA Y VOTAR COMO UTIL

    El puerto cabialo a 587


    EFRAIN MEJIAS C VALENCIA - VENEZUELA

    • Marcado como respuesta Maurohh jueves, 13 de febrero de 2014 16:33
    jueves, 13 de febrero de 2014 16:03

Todas las respuestas

  • SI SOLUCIONO TU RESPUESTA NO OLVIDES MARCAR COMO RESPUESTA Y VOTAR COMO UTIL

    Hola

    cambia la linea por

    Message.To.Add(New MailAddress(TextBox2.Text))

    Si quieres asegurarte que lo que esta en el TextBox2 es una cuenta de correo valida ...puedes agregar estas lineas

     Dim emailRegEx As New Regex("^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$")
              Dim m As Match = emailRegEx.Match(TextBox2.Text)
                        If m.Success Then
                            Message.To.Add(New MailAddressTextBox2.Text))

                         else

                        MessageBox.Show ("NO ES INA CUENTA DE CORREO VALIDA")

                        Exit Sub

                     End If


    EFRAIN MEJIAS C VALENCIA - VENEZUELA

    • Marcado como respuesta Maurohh jueves, 13 de febrero de 2014 16:33
    jueves, 13 de febrero de 2014 14:20
  • Hola amigo... mira me aparece el siguiente error 

    jueves, 13 de febrero de 2014 14:34
  • Ese mensaje no es de error en tu codigo....Haz pin al smtp.gmail.com...si te responde sigue probando enviar el mensaje


    EFRAIN MEJIAS C VALENCIA - VENEZUELA

    jueves, 13 de febrero de 2014 14:41
  • Si me responde, esta todo bien.

    pero nada... 

    :'(

    jueves, 13 de febrero de 2014 14:44
  • SI SOLUCIONO TU RESPUESTA NO OLVIDES MARCAR COMO RESPUESTA Y VOTAR COMO UTIL

    El puerto cabialo a 587


    EFRAIN MEJIAS C VALENCIA - VENEZUELA

    • Marcado como respuesta Maurohh jueves, 13 de febrero de 2014 16:33
    jueves, 13 de febrero de 2014 16:03
  • gracias amigo.. 

    gracias

    jueves, 13 de febrero de 2014 16:33