godaddy的win主机发邮件的组件

add.c

主机环境是GoDaddy虚拟主机Windows iis7的，使用Collaboration Data Objects(CDO)或者CDOSYS发送邮件(email)，IIS7环境下不支持CDONTS
1 CDOSYS
注：CDO和CDOSYS在iis6和IIS7环境下均可使用
The server "relay-hosting.secureserver.net" is used to send email from your hosted domain. You must populate the SmtpMail object's SmtpServerproperty with this value. GoDaddy的虚拟主机最大支持30M的附件.

// language -- C#
// import namespace
using System.Web.Mail;

private void SendEmail()
{
   const string SERVER = "relay-hosting.secureserver.net";
   MailMessage oMail = new System.Web.Mail.MailMessage();
   oMail.From = "emailaddress@domainname";
   oMail.To = "emailaddress@domainname";
   oMail.Subject = "Test email subject";
   oMail.BodyFormat = MailFormat.Html; // enumeration
   oMail.Priority = MailPriority.High; // enumeration
   oMail.Body = "Sent at: " + DateTime.Now;
   SmtpMail.SmtpServer = SERVER;
   SmtpMail.Send(oMail);  
   oMail = null; // free up resources
}  

官方：http://help.godaddy.com/topic/216/article/1073

2.使用CDO发送邮件

注：CDO和CDOSYS在iis6和IIS7环境下均可使用

<%
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"


' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update


' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="sender@coolexample.com"
objMail.ReplyTo="sender@coolexample.com"
objMail.To="recipient@coolexample.com"
objMail.Subject="subject"
objMail.TextBody="body"
objMail.Send
%>

官方地址：http://help.godaddy.com/article/4219

会员使用CDO.Message发邮件的例子：http://bbs.idcspy.com/redirect.p ... d=278784&ptid=25356

3.CDONTS
注：仅iis6下asp用

<%
Dim MyBody
Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "sender@coolexample.com"
MyCDONTSMail.To= "recipient@coolexample.com"
MyCDONTSMail.Subject="Subject"
MyBody = "Body"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send

set MyCDONTSMail=nothing
%>

另外通过SMTP发送邮件，附件可达30M

[ 本帖最后由 add.c 于 2009-11-7 11:07 AM 编辑 ]

[ 本帖最后由 add.c 于 2009-12-28 11:57 AM 编辑 ]

kingboo

呵呵,感谢了.
我一个一个试试.

帅哥小强

谢谢！正为此事头疼，在别的主机商上可以用的cdo.Message邮件代码，到了GODADDY就不能用了，总是显示连接不到服务器，如果楼主的代码可以用的话，那真是太感谢了！我这就去试。请问楼主：thankyou.asp里面是些什么内容？

[ 本帖最后由 帅哥小强 于 2008-6-22 03:59 PM 编辑 ]

帅哥小强

非常感谢楼主！也谢谢这个论坛！我使用第2个代码解决了已困扰了我几天几夜的问题。因为我不知道您跳转的那个页面的内容，所以我把最后的改成：if Err <> 0 then
response.write "<font color=ff0000>"&Err.Description&"</font>"
else
Response.Write "邮件发送成功！"
response.end
end if
Set objMail = Nothing
同样可以使用。

add.c

thankyou.asp内容是你设置的。自己写的内容，

green1celia

gd 发邮件组件一定要它自己空间的上邮箱吗

green1celia

我用NewMail组件发送邮件.写的程序都是对的.作的判断提示成功.为什么收不到邮件?
代码如下:
   On Error Resume Next
    Dim objCDOMail
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    objCDOMail.From = "shylock-gy@hotmail.com"
    objCDOMail.To = "shylock-gy@qq.com"
    objCDOMail.Subject = "Get your Password from putus.org!"  
    objCDOMail.Body = "Password:8899999"
    objCDOMail.Send
    Set objCDOMail = Nothing
        if Err <> 0 then
        response.write "<font color=ff0000>"&Err.Description&"</font>"
        else
        Response.Write "邮件发送成功！"
        end if

add.c

你的MX记录设置正确没有？

green1celia

正确，状态是Active

green1celia

而且我们用的不是godaddy自己空间上的邮箱