smtp si autentificar
Publicado por Hugo Correa (3 intervenciones) el 12/12/2008 01:03:54
Ya pude enviar un correo el siguiente còdigo:
Imports System.net.Mail
Dim correo As New System.Net.Mail.MailMessage
correo.From = New System.Net.Mail.MailAddress(txtDe.Text)
correo.To.Add(txtPara.Text)
correo.Subject = txtAsunto.Text
correo.Body = txtTexto.Text
correo.IsBodyHtml = False
correo.Priority = System.Net.Mail.MailPriority.Normal
Dim smtp As New Net.Mail.SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential([email protected], MailPASSWORD)
smtp.EnableSsl = True
smtp.Send(correo)
LabelError.Text = "Mensaje enviado satisfactoriamente"
Catch ex As Exception
LabelError.Text = "ERROR: " & ex.Message
End Try
Para mi caso cada usuario que entre a la base deberà poder enviar un correo, pero como valido para no dejar fija una direcciòn de correo y password en : smtp.Credentials = New System.Net.NetworkCredential([email protected], MailPASSWORD)
Imports System.net.Mail
Dim correo As New System.Net.Mail.MailMessage
correo.From = New System.Net.Mail.MailAddress(txtDe.Text)
correo.To.Add(txtPara.Text)
correo.Subject = txtAsunto.Text
correo.Body = txtTexto.Text
correo.IsBodyHtml = False
correo.Priority = System.Net.Mail.MailPriority.Normal
Dim smtp As New Net.Mail.SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential([email protected], MailPASSWORD)
smtp.EnableSsl = True
smtp.Send(correo)
LabelError.Text = "Mensaje enviado satisfactoriamente"
Catch ex As Exception
LabelError.Text = "ERROR: " & ex.Message
End Try
Para mi caso cada usuario que entre a la base deberà poder enviar un correo, pero como valido para no dejar fija una direcciòn de correo y password en : smtp.Credentials = New System.Net.NetworkCredential([email protected], MailPASSWORD)
Valora esta pregunta
0