发送邮件的功能。求解 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

最近才刚接触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

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