急！VB用WINSOCK发邮件，如何带XLS附件，附近中有中文如何避免乱码问题

Question

如题，用WINSOCK发邮件，如何带XLS附件？附件中有中文用BASE64encode编码后乱码，怎么解决？
在网上找了好多，可是都是不行。
也尝试用MPAI发邮件，可是老是提示“有人正在企图用你的邮箱发邮件....”，而且如果客户端没装OUTLOOK之类的软件，就不能用了，所以不是很方便。
向各位大侠求救！因为这个需求比较急。

Answer 1

用cdo组件来发吧，不需要任何附加条件，而且每台电脑都有这个组件
    Dim NameS As String
    dim Email as object
    Set Email = CreateObject("CDO.Message")
    NameS = "http://schemas.microsoft.com/cdo/configuration/"    
    Email.To = "[email protected]"  '此收信地址
    Email.Subject = "标题"
    Email.TextBody = "正文"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2    
    Email.From ="[email protected]" '发信人邮箱
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"  '发信邮箱服务器
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "abc"  '邮箱用户名
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "123456" '邮箱密码        
    Email.AttachFile "c:\du\asp.gif"     '要附件这里添加
    Email.Configuration.Fields.Update     
    Email.Send  '发送

Answer 2

我知道哪里错了，加附件那句话应该是Email.AddAttachment 不是AttachFile.谢谢提供思路。万分感谢啊！