asp jmail发送邮件的源码
发布网友
发布时间：2022-04-24 14:56
共1个回答
热心网友
时间：2022-04-27 17:34
首先下个jmail服务器组件已下是jmail发送邮件的源码<%
MailFromName="客户"
'SmtpFlag="0"
MailSubject="设计咨询"
'ToMail收件人
'subject主题
'MailBody邮件内容
'userName发件人邮箱用户名
'passWord发件人邮箱密码
'FromMail发件人邮箱地址
'FromSMTP发件人邮件服务器
'SecretMail密件收件人
'ChaoSongMail抄送收件人
'appendMessages追加信件的正文内容
'调用SendMail (ToMail,subject,MailBody,userName,passWord,FromMail,FromSMTP,SecretMail,ChaoSongMail,appendMessages)
'成功返回1
'E_Server = "smtp.163.com" ''发件服务器
'E_ServerUser = "xxxx@163.com" ''登录用户名
'E_ServerPass = "xxxxx" ''登录密码
'E_SendManMail = "xxx@163.com" ''发件人邮件地址 'E_SendManName = "系统管理员" ''发件人姓名
function SendMail()
Dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
Jmail.ContentTransferEncoding = "base"
Jmail.Encoding = "base"
Jmail.ISOEncodeHeaders = false
jmail.ContentType="html/text" jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3'普通邮件
Jmail.MailServerUserName = "自己邮箱帐号" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "密码" '邮箱密码,需要根据实际修改
Jmail.From = "帐号"
Jmail.Subject = "主题"
Jmail.AddRecipient("帐号")
'JMail.AppendHTML msg
JMail.Body=mailcontent
'JMail.AddCustomAttachment server.MapPath("../fdcpx/images/1.gif"), "image/gif" '添加用户定义的信件标头。 JMail.AddRecipientBCC( "收件人邮箱" )'密件收件人
JMail.AddRecipientCC( "收件人邮箱" )'抄送收件人
'JMail.AppendBodyFromFile "c:\\ss.rar" '将文件作为信件正文
jmail.AddAttachment Server.mappath(formPath&newname)
if appendMessages="" or isnull(appendMessages) then
else
JMail.AppendText( "追加信件的正文内容，比如增加问候语或者其它信息" )'追加信件的正文内容，比如增加问候语或者其它信息。
end if
Jmail.Send("smtp.163.com") 'SMTP服务器,需要根据实际修改
Set Jmail=nothing
SendMail=1
end function
SendMail%>
