jueves, 11 de marzo de 2010

Enviar correos con VB.NET

En la anotación de hoy vamos a ver como enviar un correo desde una aplicación VB.NET. Para ello necesitaremos una cuenta en Gmail ya que la aplicación accederá a ella para enviar el correo. El código de un sencillo programa sería el siguiente:




Imports System
Imports System.Collections
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mime

Public Class Module1
Public Shared Sub Main()

'--------------------------------------------------
'Configuración del mensaje
'--------------------------------------------------
Dim msg As New System.Net.Mail.MailMessage()
msg.From = New MailAddress("origen@gmail.com", "Remitente", System.Text.Encoding.UTF8)
msg.[To].Add("destino@gmail.com")
msg.Subject = "Prueba"
msg.SubjectEncoding = System.Text.Encoding.UTF8
msg.Body = "¡Hola mundo!"
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.IsBodyHtml = False

'--------------------------------------------------
'Configuración del cliente SMTP
'--------------------------------------------------
Dim client As New SmtpClient()
client.Credentials = New System.Net.NetworkCredential("origen@gmail.com", "contraseña")
client.Port = 587
client.Host = "smtp.gmail.com"
client.EnableSsl = True

Try
client.Send(msg)
Catch ex As System.Net.Mail.SmtpException
Console.WriteLine(ex.Message)
Console.ReadLine()
End Try
End Sub
End Class

No hay comentarios:

Publicar un comentario