Este ejemplo envía correos sin utilizar algun otro medio intermedio, solo necesitamos los datos de nuestro servidor SMTP y listo, también podemos enviar correos con varios archivos adjuntos.
Imports System.Web.Mail
Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles BtnEnviar.Click
Dim mmMail As New MailMessage
Dim objSmtpServer As SmtpMail
mmMail.From = “Elquin@domain.es”
mmMail.To = “tu@domain.es”
mmMail.Subject = “Asunto”
mmMail.Body = “Cuerpo del Mensaje”
Dim oAttachment As MailAttachment = New_
MailAttachment(”C:\prueba.txt”)
mmMail.Attachments.Add(oAttachment)
objSmtpServer.SmtpServer = “smtp…”
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show(”Error en envió:” & vbCrLf & ex.Message)
End Try
End Sub
Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles BtnEnviar.Click
Dim mmMail As New MailMessage
Dim objSmtpServer As SmtpMail
mmMail.From = “Elquin@domain.es”
mmMail.To = “tu@domain.es”
mmMail.Subject = “Asunto”
mmMail.Body = “Cuerpo del Mensaje”
Dim oAttachment As MailAttachment = New_
MailAttachment(”C:\prueba.txt”)
mmMail.Attachments.Add(oAttachment)
objSmtpServer.SmtpServer = “smtp…”
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show(”Error en envió:” & vbCrLf & ex.Message)
End Try
End Sub
Excelente.