在asp中发送邮件 表单提交到邮箱 表单发送到邮箱

admin管理员组

文章数量:1532440

2024年5月3日发(作者：)

在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@" '改为你的邮箱

= Email

t = Topic

= TextBody

Set objCDOMail = Nothing

SendCDOMail = 1

End Function

%>

本文标签： 邮件使用发送邮箱表单