miércoles, agosto 17, 2022

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

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» & » <" & "micorreo@midominio.com" & ">«

'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», «otro@midominio.net»)

''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 anteriorHacer Joins entre DataTables
Artículo siguienteOffice 2003 Web Components
Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub

Redes Sociales

2,736FansMe gusta
326SeguidoresSeguir

Popular esta semana

Flutter – Error: ADB exited with exit code 1

En este artículo vamos a explorar algunas posibles causas y solución al error en Flutter Error: ADB exited with exit code 1....
SQL Server - Merge

MERGE en SQL Server para Insert, Delete y Update con dos tablas

Ejemplo práctico usando MERGE para sincronizar dos tablas, Insert, Update y Delete en un solo query. Válido para SQL SERVER 2008 o superior.

DELETE con subconsulta o INNER JOIN

En el siguiente ejemplo se explica la forma en que se pueden eliminar registros en nuestras tablas con instrucciones DELETE más complejas que las...

Últimos artículos

Flutter - Instagram Clone App

Instagram Clone App con Flutter

Marvin Stanley Valenzuela nos comparte un reto y genialidad a la vez, excelente práctica de la que podemos aprender mucho, diseñó en...

¿Cómo agregar una IP adicional en una VM Ubuntu en Azure?

Lo más común al momento de crear y configurar un nuevo servidor es que a este le asigne un solo IP, pero...
flutter one year

Después de un año con Flutter, esto es lo que aprendí

La historia comenzó cuando un día desperté pensando en tener un nuevo proyecto personal. Me dije a mí misma que hay muchas...
promocionar app

Cómo promocionar gratis tu app usando tappx

Como todos los que me siguen y mis redes sociales sabrán, recientemente lancé mi primera aplicación, pero más allá del desafío tecnológico de...