Enviar correos en visual .net - 30 de Noviembre 2012 - Solo codigos

Bienvenido(a) Visitante | RSS

Mi sitio

Inicio » » Enviar correos en visual .net

9:00 PM

Enviar correos en visual .net

Private Sub EnviarMail(ByVal Parametro As String)
        '----------------------------------
        'Datos del correo de GMAIL
        'Usuario:        usuarioGMAIL
        'Password:       GdyivouiIkx
        'codigo de verificación:   34757
        '----------------------------------

            Dim sCadena As Object
            Dim i As Integer

            sCadena = Split(txtListaCorreos.Text.Trim, ";", -1, 1)
            For i = 0 To UBound(sCadena)
                Dim correo As New System.Net.Mail.MailMessage

                correo.From = New MailAddress("usuarioGMAIL@gmail.com")
                correo.To.Add(Trim(sCadena(i)))
                correo.Subject = txtAsunto.Text.Trim
                correo.Body = txtContenido.Text.Trim

                correo.IsBodyHtml = False
                correo.Priority = Net.Mail.MailPriority.High
                correo.SubjectEncoding = System.Text.Encoding.UTF8

                '--------------------------------------------------
                 Dim Attachment = New Attachment(Trim(path_archivo a adjuntar))
                 correo.Attachments.Add(Attachment)
                '--------------------------------------------------

                Dim smtp As New SmtpClient()
                smtp.Host = "smtp.gmail.com" ' --> según el servidor de correo
                smtp.Timeout = 2099999999
                smtp.UseDefaultCredentials = False

                smtp.Port = 25 '--> puertos segun el servidor de correo 25, 465 , 587

                smtp.Credentials = New System.Net.NetworkCredential("usuarioGMAIL", "GdyivouiIkx")
                ' Añadimos el manejador de evento
                AddHandler smtp.SendCompleted, AddressOf SmtpClient_OnCompleted
                smtp.EnableSsl = True
                Try
                    smtp.Send(correo)
                    LabelError.Text = ("Mensaje enviado satisfactoriamente ")
                Catch ex As Exception
                    LabelError.Text = ("ERROR:[" & i & "] " & ex.Message)
                End Try
            Next
    End Sub

'Recuerda que para mandar correo los puertos 25, 465 , 587 deben estar abiertos ya que en el caso de México Telmex cierra los puertos por default
'y tendras que pedir que los habran