En algunas ocasiones es necesario mandar un correo electronico desde tu aplicacion, esto de manera automatica y en ocasiones sin que te avise.. aqui les escribo una manera rapida de hacerlo para una cuenta de correo de GMAIL

Public Sub sendmail()
Dim Mensaje As New System.Net.Mail.MailMessage()
Dim Servidor As New System.Net.Mail.SmtpClient

Servidor.Credentials = New System.Net.NetworkCredential(“correofuente@gmail.com”, “contraseniadegmail”)
Servidor.Host = “smtp.gmail.com”
Servidor.Port = 587
Servidor.EnableSsl = True

Mensaje.[To].Add(“correodestino@correo.com”)
Mensaje.From = New System.Net.Mail.MailAddress(“correofuente@gmail.com”, “TU Nombre “, System.Text.Encoding.UTF8)
Mensaje.Subject = “Asunto del mail”
Mensaje.Body = “Cuerpo del correo”

Dim Archivo As String = My.Application.Info.DirectoryPath & “\nombredetuarchivo.ext”
Dim Adjunto As New System.Net.Mail.Attachment(Archivo, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Adjunto)

Try
Servidor.Send(Mensaje)
Catch ex As System.Net.Mail.SmtpException
Log(DirDelLog, String.Format(ex.ToString), False) ‘Utilizamos nuestro log
End Try

End Sub

Y para ejecutarlo solo llamamos la funcion,

Espero les sea util

saludos