Dim _SMTP As New System.Net.Mail.SmtpClient
            Dim _Message As New System.Net.Mail.MailMessage()
            _SMTP.Credentials = New System.Net.NetworkCredential("XXXXX@live.com", "XXXXXXXX")
            _SMTP.Host = "smtp.live.com"
            _SMTP.Port = 587
            _SMTP.EnableSsl = True
 
            ' CONFIGURACION DEL MENSAJE
 
            _Message.[To].Add("XXXXXXX@live.com") 'Cuenta de Correo al que se le quiere enviar el e-mail
            _Message.From = New System.Net.Mail.MailAddress("XXXXXX@live.com", "Test", System.Text.Encoding.UTF8) 'Quien lo envía
            _Message.Subject = "XXXXXXX" 'Sujeto del e-mail
            _Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
            _Message.BodyEncoding = System.Text.Encoding.UTF8
            _Message.Priority = System.Net.Mail.MailPriority.Normal
            _Message.IsBodyHtml = False
 
            Dim _File As String = "..\prueba.txt" 'archivo que se quiere adjuntar
            Dim _Attachment As New System.Net.Mail.Attachment(_File, System.Net.Mime.MediaTypeNames.Application.Octet)
            _Message.Attachments.Add(_Attachment)
 
            _SMTP.Send(_Message)
 
            MessageBox.Show("Correo enviado!", "Correo", MessageBoxButtons.OK, MessageBoxIcon.Information)