求 CDONTS 发邮件的源代码，谢谢

[hellophp]

CDONTS好像没有自带的sample代码，谁有呀

[xjbx]

转篇文章你看看：
--------------------------------
利用CDONTS发送邮件的ASP函数
2001-5-16 动网先锋

<%
'Last Updated By Recon On 05/14/2001
'On Error Resume Next

'利用CDONTS组件在Win2k上发送邮件

'发送普通邮件
SendMail "[e-mail]", "[e-mail]", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:\Love.txt"

'发送HTML邮件
Dim m_fso, m_tf
Dim m_strHTML

Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set m_tf = m_fso.OpenTextFile("C:\Mail.htm", 1)
m_strHTML = m_tf.ReadAll

'Write m_strHTML
Set m_tf = Nothing
Set m_fso = Nothing

SendMail "[e-mail]", "[e-mail]", "HTML Mail!", m_strHTML, 2, 1, Null

'参数说明
'strFrom : 发件人Email
'strTo : 收件人Email
'strSubject : 信件主题
'strBody : 信件正文
'lngImportance : 信件重要性
' : 0 - 低重要性
' : 0 - 中等重要性（默认）
' : 0 - 高重要性
'lngAType : 信件格式
' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
'strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail

Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail

.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance

If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If

If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then
.AttachFile strAttach
End If

.Send
End With
Set objMail = Nothing
End Sub
%>

[arclala]

http://www.ccw.com.cn/htm/center/prog/02_3_11_4.asp

[zyhowe]

Sub SendEmail(FromStr,ToStr,SubjectStr,BodyStr)
dim obj
set obj=server.createobject("CDONTS.NewMail")
obj.from=FromStr
obj.To=Tostr
obj.subject=subjectstr
obj.body=bodystr
obj.send
set obj=nothing
End Sub

[hellophp]

to:zyhowe(冷月葬花魂)

我注册了CDONTS.dll，这个代码我测过，没有报错，但邮件还是没有发出去呀。
现在发邮件都要SMTP身份验证，CDONTS有没有这个参数呀?

[Reker熊]

IIS里设置smtp服务器

[Reker熊]

IIS里设置smtp服务器