问无法通过SMTP从VB6程序发送邮件

EN

Dim oNewMessage As CDO.Message
Dim iConf As New CDO.Configuration
Dim oFlds As ADODB.Fields
Dim strbody As String


On Error GoTo errSMPT
    iConf.Load cdoDefaults
    Set oFlds = iConf.Fields
    oFlds(cdoSendUsingMethod) = cdoSendUsingPort
    oFlds(cdoSMTPServer) = "smtp.live.com"
    oFlds(cdoSMTPServerPort) = 587
    oFlds(cdoSMTPConnectionTimeout) = 30
    oFlds(cdoSMTPUseSSL) = True
    oFlds(cdoSMTPAuthenticate) = cdoBasic
    oFlds(cdoSendUserName) = "xxxxxx@hotmail.com"
    oFlds(cdoSendPassword) = "mypassword"
    oFlds.Update

    strbody = "Sample message " & Time

    Set oNewMessage = New CDO.Message
    Set oNewMessage.Configuration = iConf

    With oNewMessage
        .To = txtTo.Text
        .From = txtFrom.Text
        .Subject = "subject"
        .TextBody = strbody
        .Send
    End With
    Exit Sub

errSMPT:
    MsgBox Err.Description

using (MailMessage message = new MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtText.Text))
                {
                    SmtpClient mailClient = new SmtpClient("smtp.live.com", 587);

                    mailClient.Credentials = new System.Net.NetworkCredential("xxxxxx@hotmail.com", "mypassword");
                    mailClient.EnableSsl = true;
                    mailClient.Send(message);
                    MessageBox.Show("Message successfully sent!!!");                    
                }