''' <summary>
    ''' para enviar mail con el servidor de hotmail
    ''' </summary>
    ''' <param name="mail">Mail del Remitente</param>
    ''' <param name="contraseña">Contraseña Del Remitente</param>
    ''' <param name="asunto">Asunto Del Mail</param>
    ''' <param name="destinatario">Mail para quien va dirigido el mail</param>
    ''' <param name="cuerpo">Cuerpo Del Mensaje</param>
    ''' <param name="File">Archivo para Enviar Adjunto al Mail</param>
    ''' <param name="smtp">Para Editar el Servidor Smtp</param>
    ''' <param name="puerto">Puerto Del Servidor Smtp es Opcional si el servidor lo requiere</param>
    ''' <remarks></remarks>
    Private Sub EnviarMail(ByVal mail As String, ByVal contraseña As String, ByVal asunto As String, ByVal destinatario As String, ByVal cuerpo As String, Optional ByVal File As String = Nothing, Optional ByVal smtp As String = "smtp.live.com", Optional ByVal puerto As Integer = 587)
 
 
        Dim servidor As New System.Net.Mail.SmtpClient
 
        Dim mails As New System.Net.Mail.MailMessage
 
        Try
            If System.IO.Path.IsPathRooted(File) Then
                Dim FileAdjunto As New Net.Mail.Attachment(File)
                mails.Attachments.Add(FileAdjunto)
            End If
            With mails
                .From = New System.Net.Mail.MailAddress(mail, mail, System.Text.Encoding.UTF8)
                .Subject = asunto
                .SubjectEncoding = System.Text.Encoding.UTF8
                .To.Add(destinatario)
                .Body = cuerpo
                .BodyEncoding = System.Text.Encoding.UTF8
                .IsBodyHtml = False
            End With
            With servidor
                .Host = smtp
                .Port = puerto
                .EnableSsl = True
                .Credentials = New System.Net.NetworkCredential(mail, contraseña)
                .Send(mails)
 
            End With
        Catch ex As System.Net.Mail.SmtpException
            MessageBox.Show(ex.ToString, "Envio De Mail", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End Try
    End Sub