admin 管理员组文章数量: 887021
2023年12月17日发(作者：二建报名时间2021年)
在asp中发送邮件 表单提交到邮箱 表单发送到邮箱
的用法 Jmail的使用说明
<%
Dim SendStat
SendStat = Jmail("wyongzhi@","Test Jmail","Just a test!","US-ASCII","text/plain")
SendStat
%>
<%
'--------------------------------------------------------------------
Function Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'--------------------------------------------------------------------
'JMail
'--------------------------------------------------------------------
'入口参数：
' mailTo 收件人email地址
' mailTopic 邮件主题
' mailBody 邮件正文(内容)
' mailCharset 邮件字符集，例如GB2312或US-ASCII
' mailContentType 邮件正文格式，例如text/plain或text/html
'返回值：
' 字符串，发送成功后返回OK，不成功返回错误信息
'使用方法：
' 1)设置好常量，即以Const开头的变量
' 2)使用类似如下代码发信
'Dim SendStat
'SendStat = Jmail("aa@","测试Jmail","这是一封
测试信！","GB2312","text/html")
' SendStat
'--------------------------------------------------------------------
'***************根据需要设置常量开始*****************
Dim
ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUser
Name,ConstMailServerPassword
ConstFromNameCn = ""'发信人中文姓名(发中文邮件的时候使用)，例如'张三'
ConstFromNameEn = ""'发信人英文姓名(发英文邮件的时候使用)，例如'zhangsan'
ConstFrom = ""'发信人邮件地址，例如'zhangsan@'
ConstMailDomain = ""'smtp服务器地址，例如
ConstMailServerUserName = ""'smtp服务器的信箱登陆名，例如'zhangsan'。注意要与发信人邮件地址一致！
ConstMailServerPassword = ""'smtp服务器的信箱登陆密码
'***************根据需要设置常量结束*****************
'-----------------------------以下内容无需改动------------------------------
On Error Resume Next
Dim myJmail
Set myJmail = Object("e")
g = True'记录日志
odeHeaders = False'邮件头不使用ISO-8859-1编码
tTransferEncoding = "base64"'邮件编码设为base64
der "Priority","3"'添加邮件头,不要改动！
der "MSMail-Priority","Normal"'添加邮件头,不要改动！
der "Mailer","Microsoft Outlook Express 6.00.2800.1437"'添加邮件头,不要改动！
der "MimeOLE","Produced By Microsoft MimeOLE V6.00.2800.1441"'添加邮件头,不要改动！
t = mailCharset
tType = mailContentType
If UCase(mailCharset) = "GB2312" Then
me = ConstFromNameCn
Else
me = ConstFromNameEn
End If
= ConstFrom
t = mailTopic
= mailBody
ipient mailTo
main = ConstMailDomain
rverUserName = ConstMailServerUserName
rverPassword = ConstMailServerPassword
ConstMailDomain
Set myJmail=nothing
If Err Then
Jmail=ption
Else
Jmail="OK"
End If
On Error Goto 0
End Function
'--------------------------------------------------------------------
%>
il的用法 easymail组件的用法 easymail组件使用说明
Function SendEasyMail(Email,Topic,MailBody,TextBody)
'on error resume next
dim Mailsend
set Mailsend = Object("nd")
Dim Tid,Un
Un = "admin@" '您的邮件服务器登录名，不需要密码
Dim EI
Set EI = Object("")
Tid = (un)
Set EI = Nothing
new Un,Tid '邮箱账号,临时ID
t = "gb2312" '编码
me = "LeadBBS" '发件人名
_BackAddress = "" '邮件回复地址
_Bcc = "" '暗送地址
_Cc = "" '抄送地址
_OrMailName = "" '原邮件名
_Priority = "Normal" '邮件重要度
_ReadBack = false '是否读取确认,挂号信(限本系统内用户)
_SignNo = -1 '使用签名的序号
_Subject = Topic '主题
_Text = TextBody '内容
_HTML_Text = MailBody 'HTML邮件内容
hEditer = true '发送的是否为HTML格式邮件
_TimerSend = "" '定时发送的时间
_To = Email '收件人地址
dAttString = "" '转发邮件时的原附件
mAttFileString = "" '添加自网络存储中的文件名
Message = false '是否是系统邮件
ckup = false '是否保存发送邮件
If () = false Then
SendEasyMail = 0
Else
SendEasyMail = 1
End If
Set Mailsend = nothing
End Function
3.无组件的用法 无组件用asp发送邮件 提交表格到指定邮箱
Function SendCDOMail(Email,Topic,TextBody)
dim objCDOMail
Set objCDOMail = Object("l")
="mail377234@" '改为你的邮箱
t = Topic
= TextBody
Set objCDOMail = Nothing
SendCDOMail = 1
End Function
%>
版权声明：本文标题：在asp中发送邮件 表单提交到邮箱 表单发送到邮箱 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1702808470h431696.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论