En esta ocasión les mostrare un ejemplo de como enviar un mensaje de correo , utilizando System.Net.Mail, a traves de un servidor SMTP. En este ejemplo agrego un archivo adjunto
Aqui va el codigo Fuente:
Public Sub EnviarMail()
'Creamos las variables para los parametros del mensaje de correo a enviar
Dim SMTP As String = "mail.midominio.com"
Dim Usuario As String = "usuario@midominio.com"
Dim Password As String = "elpassworddelusuario"
Dim Destinatario As String = "unadireccion@mail.com"
Dim Contenido As String="Aqui va el cuerpo del mensaje"
Dim Asunto As String = "Aqui va el asunto del mensaje"
Dim ArchivoAdjuntar as New Attachment("C:\prueba.txt")
Dim Puerto As Integer = 26 'Depende del puerto de salida de su servidor SMTP
'Se crea el mensaje
Dim correo As New System.Net.Mail.MailMessage()
correo.From = New System.Net.Mail.MailAddress(Usuario)
correo.To.Add(Destinatario)
correo.Subject = Asunto
correo.Body = Contenido
'Adjuntamos el archivo
correo.Attachments.Add(ArchivoAdjuntar)
'Configuramos el servidor smtp antes de enviar, pasandole las variables que ya tenemos
Dim Servidor As New System.Net.Mail.SmtpClient
Servidor.Host = SMTP
Servidor.Port = Puerto
Servidor.EnableSsl = False 'Depende si su servidor usa SSL
Servidor.Credentials = New System.Net.NetworkCredential(Usuario, Password)
'Enviamos el mail dentro de un try, para atrapar un posible error
Try
Servidor.Send(correo)
MsgBox("Correo enviado Satisfactoriamente", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Error al enviar mail :" + ex.Message)
End Try
End Sub
no me funciona el codigo para servidores smtp de empresas
ResponderEliminarEste video me sirvio mucho, espero les sirva, en la descripción del video esta para descargar el codigo: https://www.youtube.com/watch?v=67h7WbCKh_g&t=3s
ResponderEliminar