none
correo RRS feed

  • Pregunta

  • Hola que tal colaboradores tengo un problema con este codigo de vb.net 2010

    Public Class Form4
        Dim smtp1 As String = "smtp.gmail.com"
        Dim puerto As String = "587"
        Dim mail As String = txtcorreo.Text
        Dim contraseña As String = txtcontraseña.Text
        Dim asunto As String = txtasunto.Text
        Dim para As String = txtpara.Text
        Dim contenido As String

        Dim correo As New System.Net.Mail.MailMessage()


        Private Sub Form4_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

            correo.From = New System.Net.Mail.MailAddress(mail)
            correo.Subject = asunto
            correo.To.Add(para)
            correo.Body = contenido

        End Sub

        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim Servidor As New System.Net.Mail.SmtpClient
            Servidor.Host = "smtp.gmail.com"
            Servidor.Port = "587"
            Servidor.EnableSsl = True
            Servidor.Credentials = New System.Net.NetworkCredential(mail, contraseña)
            Servidor.Send(correo)
            MessageBox.Show("Correo enviado", "Correo", MessageBoxButtons.OK)
        End Sub


    ING Dan Montes IT infraestructura

    jueves, 1 de marzo de 2012 18:37

Respuestas

  • porque defines estas lineas

    Dim mail As String = txtcorreo.Text

    a nivel de la clase del form, eso no esta bien

    deberias definir en el evento del boton

    Public Class Form4
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    	
    		Dim mail As String = txtcorreo.Text
    		Dim contraseña As String = txtcontraseña.Text
    		Dim asunto As String = txtasunto.Text
    		Dim para As String = txtpara.Text
    	
    		Dim correo As New System.Net.Mail.MailMessage(mail)
            correo.Subject = asunto
            correo.To.Add(para)
            correo.Body = contenido 'aqui define el contenido
    		
            Dim Servidor As New System.Net.Mail.SmtpClient
            Servidor.Host = "smtp.gmail.com"
            Servidor.Port = "587"
            Servidor.EnableSsl = True
            Servidor.Credentials = New System.Net.NetworkCredential(mail, contraseña)
            Servidor.Send(correo)
    		
            MessageBox.Show("Correo enviado", "Correo", MessageBoxButtons.OK)
    		
        End Sub
    
    End Class

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Marcado como respuesta thrash2007 jueves, 1 de marzo de 2012 22:03
    jueves, 1 de marzo de 2012 18:47