Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 200Lecturas hoy:
    • 103Lecturas ayer:
    • 127577Total de visitas:
    • 78Hoy:
    • 83Ayer:
    • 667La semana anterior:
    • 1813Visitantes por mes:
    • 84Visitantes por día:
    • 1Visitantes conectados:

Enviar correo electrónico

Posted by skskynet on 30th mayo 2010

Codigo para enviar un correo utilizando “gmail” con fichero adjunto

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim correo As New MailMessage

De
correo.From = New MailAddress(“skskynet@gmail.com”)

Para
correo.To.Add(“skskynet@gmail.com”)

Asunto
correo.Subject = comentari.Text

Cuerpo del correo
correo.Body = cos.Text

fichero adjunto
correo.Attachments.Add(New System.Net.Mail.Attachment(fitxer.Text))

Mostrar como HTML
correo.IsBodyHtml = False

Prioridad de el correo

correo.Priority = MailPriority.Normal
acto seguido le indicamos cual servidor utilizaremos
aqui usaremos por default a gmail y su puerto SMTP

Dim smtp As New SmtpClient()

smtp.Host = “smtp.gmail.com”

smtp.Port = 587

smtp.Credentials = New System.Net.NetworkCredential(“usuario”, “contrasena”)

smtp.EnableSsl = True

Try

listo tenemos la estructura de nuestro mensaje armada ahora enviemosla a nuestro destinatario y listo

smtp.Send(correo)

MsgBox(“Mensaje enviado satisfactoriamente”)

Catch ex As Exception

MsgBox(“ERROR: ” & ex.Message)

End Try

End Sub

End Class

Tags:
Posted in Visual Studio | No Comments »