ASP 发mail，在server中的设置。

[lutaiyk]

大家好：
请问，我用ASP发mail。在server中SMTP已经运行。还有其它地方要设吗？
代码如下：
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "XXXX@XXXX"
objCDOMail.To = "XXXX@XXXX"
objCDOMail.Subject = "1111"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = "2222"
objCDOMail.Send
Set objCDOMail = Nothing

[wxt]

够了

[lutaiyk]

可是运行时，在objCDOMail.Send报错。我的server是Win2000的。

[sugar]

需在smtp中设置,在Delivery中点击Advance...然后在Smart host中输入smtp server的IP,一点要用[]括起来,切记! 切记!

[linj]

gzgz

[kxcc_sx]

有两点需要说明：
1。在smtp的属性中，点击“常规”标签页，然后设置IP地址；
2。选取“传递“标签页，然后设置”第一次的重试间隔（分钟）为1“第二次的重试间隔（分钟）及第三次的重试间隔（分钟）可以随便，设好后“确定”
这样就OK了；
下列代码仅供参考：
<%
'假设取得的表单数据
FromWho = Request("FromWho")
FromMail = Request("FromMail")
ToWho = Request("ToWho")
ToMail = Request("ToMail")
Subject = Request("Subject")
Content = Request("Content")

'建立一个CDONTS.NewMail对象
Set objMail = Server.CreateObject("CDONTS.NewMail")
'设置寄件人
objMail.From = FromWho & "<" & FromMail & ">"
'设置收件人
objMail.To = ToWho & "<" & ToMail & ">"
'设置邮件主题
objMail.Subject = Subject
'设置邮件内容
objMail.Body = Content
'将邮件格式设成HTML，若这两行省略，则使用默认的TXT格式。
objMail.BodyFormat = 0
objMail.MailFormat = 0
'寄出邮件
objMail.Send
Response.Write "您的邮件已经寄出去了。"
%>

[lutaiyk]

多谢，可以了！！