sábado, diciembre 7, 2024
Inicio VB.NET Enviar correos desde .NET (WinForms) utilizando System.Web.Mail

Enviar correos desde .NET (WinForms) utilizando System.Web.Mail

0

Descargar solución SendMail.zip

Luego de probar varios ejemplos este me pareció muy bueno, ya que no utiliza Outlook y permite enviar sin tener algún otro tipo de software instalado. Utiliza solo las librerías de .NET

Este ejemplo envía correos si utilizar algun otro medio intermedio, solo necesitamos los datos de nuestro servidor SMTP y listo, también podemos enviar correos con varios archivos adjuntos.

Como primer paso sería importar en References la librería de .NET System.Web

Ahora en el código de nuestra aplicación le indicamos lo siguiente.

'Variable con la que enviamos el correo
Dim obj As System.Web.Mail.SmtpMail
'Variable que amlmacena los Attachment
Dim Attachment As System.Web.Mail.MailAttachment
Dim Mailmsg As New System.Web.Mail.MailMessage

Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
Try
'Indicamos el servidor smtp que vamos a utilizar
obj.SmtpServer = «smtp.midominio.com»

'Indicamos el correo al que se le va a enviar el mensaje
'si son varios los separamos por ;
Mailmsg.To = Me.txtEmail.Text

'Definimos el nombre y correo del que envia el correo
Mailmsg.From = «» & «Mi Nombre» & » <" & "[email protected]" & ">«

'Especificamos el tipo de formato del body
If chkHtmlFormat.Checked = True Then
'Envia el correo en formato HTML
Mailmsg.BodyFormat = Mail.MailFormat.Html
Else
Mailmsg.BodyFormat = Mail.MailFormat.Text
End If

''Si usted desea agregar la propiedad Reply to al correo que envia
'Mailmsg.Headers.Add(«Reply-To», «[email protected]»)

''Algun header que queramos agregar
'Mailmsg.Headers.Add(«Manoj», «TestHeader»)

Mailmsg.Subject = txtSubject.Text

''Si enviamos solo un archivo (Attachment) y
''el path esta en un text box usamos esta
'Attachment = New MailAttachment(Me.txtAttach.Text)
'Mailmsg.Attachments.Add(Attachment)

'Si vamos a enviar varios archivos (Attachments)
'Y tenemos los path en in ListView, usamos este
Dim itm As ListViewItem
For Each itm In Me.lvArchivos.Items
Attachment = New Mail.MailAttachment(itm.Text)
Mailmsg.Attachments.Add(Attachment)
Next

Mailmsg.Body = Me.txtBody.Text
obj.Send(Mailmsg)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Descargar solución SendMail.zip

Artículo anterior Hacer Joins entre DataTables
Artículo siguiente Office 2003 Web Components
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, Flutter y DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. <a href="https://www.royrojas.com">royrojas.com</a> | <a href="https://www.dotnetcr.com">dotnetcr.com</a> | <a href="https://github.com/royrojas">GitHub</a>

Dejar respuesta

Please enter your comment!
Please enter your name here