标题：发送邮件的功能。求解

最近才刚接触VBS，因为需要要在原来数据中断报警的基础上加个发送邮件的功能，但是现在程序不知道哪里有问题，使用的时候能正常的点但是发送不了邮件，我想问一下是哪里的问题啊，各位大侠能帮我看一下吗？感激！！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:userform1.zip

窗体中只有一个控件，COMMANDBUTTON1

源码：

sub userform1_commandbutton1_click()

  
    Set mail = CreateObject("WWSCommon.SmtpMail")
   
        mail.SenderName  = "KFC"    '发件人名字
        mail.SenderAddress = "21689185@qq.com"            '发件的邮箱地址
        mail.Subject = "中断数据报警"     '邮件标题
        mail.Mailer = "金字塔数据中断，请注意查看！！！"      '邮件内容
    
     call mail.AddReceiver("5折","2249539879@qq.com")          '收件人名称和地址
    
     call mail.Sender("smtp.qq.com","21689185@qq.com","20120523KFC")     '发件人邮箱地址和密码
End Sub

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2350

请参考这个帖子的7楼代码，我已经测试过，可以正常发送。