| 资源简介： |
用法示意如下：
<%@LANGUAGE="VBSCRIPT"%>
<%
'option explicit
dim DbConn,connstr,db
'Email配置信息
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
AdminEmail="XXX@263.net"
NeedAuth=true '是否需要认证
EmailAccount="hubdog"
EmailPW="XXXX"
AdminName="管理员"
'发送email
function SendMail(Email, Subject, Body)
set MailSender=Server.CreateObject("IndyMail.MailSender")
MailSender.SetBody Body
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NeedAuth
MailSender.SetSenderName EmailAccount
MailSender.SetSenderPW EmailPW
MailSender.SetSubject Subject
MailSender.SetTo Email
SendMail=MailSender.Send
end function
%>
|
网上文摘 
当前位置：Delphi园地 → 精彩源码 → 网络 → 基于Indy的Email发送组件源码 
本周下载排行
