Các bạn chỉnh giúp Code gửi Mail từ Excel

[sealand]

Các bạn chỉnh giúp Code gửi Mail tới Live.com từ Excel

Mình sưu tầm trên mạng code gửi Mail từ Excel vào Tài khoản Hotmail.com và Live.com như sau:

Private Sub btnSendMail_Click()

    Dim oSmtp As New EASendMailObjLib.Mail
    oSmtp.LicenseCode = "TryIt"

    ' Set your Hotmail email address
    oSmtp.FromAddr = "vieth@live.com"

    ' Add recipient email address
    oSmtp.AddRecipientEx "thaininh@live.com", 0

    ' Set email subject
    oSmtp.Subject = "test email from hotmail account"

    ' Set email body
    oSmtp.BodyText = "this is a test email sent from VB 6.0 project with hotmail"

    ' Hotmail SMTP server address
    oSmtp.ServerAddr = "smtp.live.com"

    ' Hotmail user authentication should use your
    ' Hotmail email address as the user name.
    oSmtp.UserName = "viethoang"
    oSmtp.Password = Pw

    ' detect SSL/TLS connection automatically
    oSmtp.SSL_init

    MsgBox "start to send email ..."

    If oSmtp.SendMail() = 0 Then
        MsgBox "email was sent successfully!"
    Else
        MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
    End If

End Sub

Để chạy được code phải tải về và cài EASendMail ActiveX và vào Reference tham chiếu đến EASendMailObj ActiveX Object 1.0 Type Library . Mình thử bị lỗi.
Kiến thức mạng của mình quá tệ, nhờ các bạn hiệu chỉnh giùm để gửi file Baocao.xls từ vieth@live.com đến thaininh@live.com với Password giả định là 123456
Cám ơn sự trợ giúp của các bạn, mình rất cần vì hàng ngày thường xuyên gửi báo cáo cứ phải mở thường trực Live.com quá bất tiện.