Buenos días si hay algún desarrollador ASP.Net espero lo aproveche. Hace un tiempo atrás estuve buscando como enviar correos electrónicos con un servidor de correos dentro de la empresa donde laboro. No encontré nada que me pudiera ayudar así que decidí investigar por mi cuenta ayudado de los tutoriales de MDSN en la Web viendo lo que hacia cada propiedad de las clases SmptCliente() y MailMessage() aquí les dejo los resultados comentando las líneas de código para un mejor entendimiento
Lo primero será colocar el código dentro de un bloque Try Catch
Try
'Instanciamos la clase SmtpCliente()
Dim SmtpServer As New SmtpClient()
'Instanciamos la clase MailMessage()
Dim Email As New MailMessage()
'Aquí deberían ir las credenciales, pero evitaremos esto para no complicarnos la vida
'vOrigen es el Remitenten y vDestino es el Destinatario
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "[email protected]" )
'Si contamos con un Servidor POP3 la puerta de enlace será por defecto la que se muestra
SmtpServer.Port = 25
'Aquí colocamos el nombre de nuestro Host
SmtpServer.Host = "hola.com.pe"
'Aquí instanciamos la clase MailAddress en la cual colocaremos el Email de Origen (Remitente)
'Notese que estamos ya haciendo uso de la clase Instanciada MailMessage()
'From (de)
Email.From = New MailAddress("[email protected]" )
'Aquí agregamos el Email del Destinatario
'To (para)
Email.To.Add("[email protected]" )
'Si deseamos colocar un título al corre utilizamos la propiedad Subject
Email.Subject = "Saludo"
'Aquí la parte que nos interesa la cual es el cuerpo de nuestro mensaje
'Body (cuerpo)
Email.Body = "Hola que ase?"
'Por último si deseamos adjuntar un documento utilizaremos la Propiedad Attachments
'Instanciando la clase Attachment colocamos el path (ruta del archivo) sin olvidar
'la ubicación de este y la extensión del archivo
Email.Attachments.Add(New Attachment("C:TEMPDocumento.doc" ))
'Por último esto no lo sabía para poder enviar el correo y que no se vaya como
'No Deseado debemos usar un bloque Using de la siguiente forma para enviar el correo
Using Email
Using SmtpServer
SmtpServer.Send(Email)
End Using
End Using
Catch exc As Net.Mail.SmtpException
End Try
No olvidemos importar las librerías
Imports System.Net.Mail
Imports System.Net
Lo primero será colocar el código dentro de un bloque Try Catch
Try
'Instanciamos la clase SmtpCliente()
Dim SmtpServer As New SmtpClient()
'Instanciamos la clase MailMessage()
Dim Email As New MailMessage()
'Aquí deberían ir las credenciales, pero evitaremos esto para no complicarnos la vida
'vOrigen es el Remitenten y vDestino es el Destinatario
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "[email protected]" )
'Si contamos con un Servidor POP3 la puerta de enlace será por defecto la que se muestra
SmtpServer.Port = 25
'Aquí colocamos el nombre de nuestro Host
SmtpServer.Host = "hola.com.pe"
'Aquí instanciamos la clase MailAddress en la cual colocaremos el Email de Origen (Remitente)
'Notese que estamos ya haciendo uso de la clase Instanciada MailMessage()
'From (de)
Email.From = New MailAddress("[email protected]" )
'Aquí agregamos el Email del Destinatario
'To (para)
Email.To.Add("[email protected]" )
'Si deseamos colocar un título al corre utilizamos la propiedad Subject
Email.Subject = "Saludo"
'Aquí la parte que nos interesa la cual es el cuerpo de nuestro mensaje
'Body (cuerpo)
Email.Body = "Hola que ase?"
'Por último si deseamos adjuntar un documento utilizaremos la Propiedad Attachments
'Instanciando la clase Attachment colocamos el path (ruta del archivo) sin olvidar
'la ubicación de este y la extensión del archivo
Email.Attachments.Add(New Attachment("C:TEMPDocumento.doc" ))
'Por último esto no lo sabía para poder enviar el correo y que no se vaya como
'No Deseado debemos usar un bloque Using de la siguiente forma para enviar el correo
Using Email
Using SmtpServer
SmtpServer.Send(Email)
End Using
End Using
Catch exc As Net.Mail.SmtpException
End Try
No olvidemos importar las librerías
Imports System.Net.Mail
Imports System.Net