帮改下Godaddy的发邮件功能，谢谢！

oberst

http://bbs.idcspy.com/thread-25356-1-1.html

根据这个，帮忙修改下附件里的发邮件功能，Godaddy不支持Jmail啊！？

谢谢！

add.c

自己把发信那段代码修改遇到什么错误么？

oberst

不知道怎么用

麻烦了，谢谢！

add.c

                '=============== 发 信 ================
                dim JMail
                set JMail=server.CreateObject("Jmail.message")

        JMail.Silent=true
                JMail.Charset = "gb2312"
        JMail.FromName = fromname
        JMail.from = frommail
        JMail.AddRecipient tomail,toname
                JMail.Subject = mailTopic
        jmail.Body=mailbody

        JMail.MailServerUserName = mailserverloginname
        JMail.MailServerPassWord = mailserverloginpass
        JMail.MailDomain = mailuserdomain
        sendok=JMail.send(mailserver)

这个替换为

1. Dim MyBody
   
2. Dim MyCDONTSMail
   
3. 
   
4. Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
   
5. MyCDONTSMail.From= "sender@coolexample.com"
   
6. MyCDONTSMail.To= "recipient@coolexample.com"
   
7. MyCDONTSMail.Subject="Subject"
   
8. MyBody = "Body"
   
9. MyCDONTSMail.Body= MyBody
   
10. MyCDONTSMail.Send
    
11. 
    
12. set MyCDONTSMail=nothing

复制代码

试试，我对代码也不熟悉

oberst

还少了参数调用？