代码如：<%
myMailServer = "
smtp@126.com"
sch = "
http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From =
anyshop@126.com cdoMessage.To =
feilaibu12@163.com cdoMessage.Subject = biaoti
cdoMessage.HTMLBody = neirong
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
posted on 2006-04-19 16:23
萌芽的叶子 阅读(286)
评论(0) 编辑 收藏 引用 所属分类:
asp.net