public sub enviarCorreo()  
	' esto se puede meter dentro de un boton <enviar>
 
        Dim miCorreo As New System.Net.Mail.MailMessage
	'tarda un poco al enviar por lo tanto necesita un mensaje tranquilizador que ahorra 5 segundos de abandono de uso*
	'abandono de uso es cuando el usuario pierde la paciencia y cierra de manera forzosa XD.
 
	'mensaje tranquilizador:
        MessageBox.Show("Sea paciente y espere 10-30 segundos en funcion de la velocidad de su conexion.", " Be Patient Please : )")
 
	'El correo tiene cuerpo HTML ?
	miCorreo.IsBodyHtml = False
 
	'Desde que direccion se envia el correo ?
        miCorreo.From = New System.Net.Mail.MailAddress("Origen@hotmail.com")
 
        'A quien mandas el correo ?
        miCorreo.To.Add("DESTINATARIO@hotmail.es") 'Mail del destinatario
 
	'Asunto del correo
        miCorreo.Subject = "Asunto del correo" 
 
	'Esto proviene de un richTextBox Multilinea por ejemplo = cuerpo de mensaje
        miCorreo.Body = rtbx_cuerpo.Text 'Cuerpo del mensaje
 
	'Prioridad del correo
        miCorreo.Priority = System.Net.Mail.MailPriority.Normal 'Prioridad
 
	'Creamos variable de cliente SMTP
	Dim smtp As New System.Net.Mail.SmtpClient
 
	'Esto es para HOTMAIL,  para gmail es ...  smtp.gmail.com
        smtp.Host = "smtp.live.com"
 
        'para las credenciales debo pasarle la cuenta y la clave desde donde se envía
        smtp.Credentials = New System.Net.NetworkCredential("ORIGEN@hotmail.com", "CLAVE1234")
 
	'envio seguro ?  normalmente true porque lo requiere el hotmail.com
        smtp.EnableSsl = True
 
        Try
 
	    smtp.Send(miCorreo)
            MsgBox("Mensaje enviado :)", MsgBoxStyle.OkOnly, "Error del programa")
 
        Catch ex As Exception
 
            MsgBox("ERROR: :S " & ex.Message, MsgBoxStyle.OkOnly, "Error!")
 
        End Try
 
        miCorreo.Dispose()
 
    End Sub