jmail邮箱格式（邮箱格式）

asp jmail 发送邮件代码

Function getmail(Sname,Spass,Smail,Smtp,Rmail)

On error resume next

Dim JMail, contentId,gmail

Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"

' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

' 发送者信息（可用变量方式赋值）

JMail.From = Smail ' 发送者地址

JMail.FromName = "Name" ' 发送者姓名

JMail.Subject = "邮件主题" ' 邮件主题

gmail=""

' 身份验证

JMail.MailServerUserName = Sname ' 身份验证的用户名

JMail.MailServerPassword = Spass ' 身份验证的密码

' 设置优先级，范围从1到5，越大的优先级越高，3为普通

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个

JMail.AddRecipient("address@163.com")

'JMail.AddRecipient(Rmail)

' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】

' 【参数设置是(True)否(False)为Inline方式】

'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

' 邮件主体（HTML(注意信件内链接附件的方式)）

JMail.HTMLBody = "htmlheadMETA content=zh-cn http-equiv=Content-Languagemeta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""style type=text/cssA:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --/style/headbodyfont color=redMail/fontbrfont color=green邮件正文/fontbrb邮件正文/b /body/html"

' 邮件主体（文本部分）

JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】

JMail.Send(Smtp)

' 关闭并清除对象

JMail.Close()

Set JMail = Nothing

if err.number0 then

response.write "发送发送失败！"

gmail="发送发送失败！"

else

response.write "邮件发送成功！"

gmail="邮件发送成功！"

end If

End Function

%=getmail("用户名","密码","发送邮箱","smtp.163.com","收件人")%-----

什么是jmail,怎么用?

jmail jmail是一种服务器端的邮件发送组件，和个人用的客户端邮件软件不一样的。jmail是在服务器上给程序用来发邮件用的，除了软件编程人员，其他人一般平常用不上。

jmail是一个第三方邮件操作组件，通常位于web服务器端，和站点程序紧密配合来接收及提交邮件到邮件服务器的控件，让网站拥有发送邮件既接收邮件的功能

与此相同的还有CDONTS.NewMail,Persits.MailSender,IISmail.Iismail等等，他们唯一区别就是jmail只需要注册一个dll组件即可被调用，而其他则需要在iis上设置发布smtp服务器

（1）Body（信件正文） : 字符串

如：JMail.Body = "这里可以是用户填写的表单内容，可以取自Form。"

（2）Charset（字符集，缺省为"US-ASCII"） : 字符串

如：JMail.Charset = "US-ASCII"

（3）ContentTransferEncoding : 字符串

指定内容传送时的编码方式，缺省是"Quoted-Printable"

如：JMail.ContentTransferEncoding = "base64"

（4）ContentType（信件的contentype. 缺省是"text/plain"） : 字符串

如果你以HTML格式发送邮件, 改为"text/html"即可。

如：JMail.ContentType = "text/html"

（5）Encoding : 字符串

设置附件编码方式（缺省是"base64）。 可以选择使用的是"base64", "uuencode" or "quoted-printable" 如：JMail.Encoding = "base64"

（6）Log（Jmail创建的日志，前提loging属性设置为true，见下面） : 字符串

如：使用Response.Write( JMail.Log )语句列出日志信息。

（7）Logging（是否使用日志） : 布尔型

如：JMail.Logging = true

（8）Recipients : 字符串

只读属性，返回所有收件人

如：Response.Write( "" + JMail.Recipients + "" );

（9）ReplyTo（指定别的回信地址） : 字符串

如：JMail.ReplyTo = "qiao198@hotmail.com"

（10）Sender（ 发件人的邮件地址） : 字符串

如：JMail.Sender = "qiao198@21cn.com"

（11）SenderName（发件人的姓名） : 字符串

如：JMail.SenderName = "一克"

（12）ServerAddress（邮件服务器的地址） : 字符串

你可以指定多个服务器，用分号点开。可以指定端口号。

如果serverAddress保持空白，JMail会尝试远程邮件服务器，然后直接发送到服务器上去。

如：JMail.ServerAddress = "mail.21cn.net.cn"

（13）Subject（设定邮件的标题，可以取自Form。）：字符串

如：JMail.Subject = "客户反馈表单"

（14）添加文件附件到邮件

如：JMail.AddAttachment( "c:anyfile.zip" )

（15）AddCustomAttachment( FileName, Data )

添加自定义附件.

如：JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );

（16）AddHeader( Header, Value )

添加用户定义的信件标头。

如：JMail.AddHeader( "Originating-IP","192.158.1.10" );

（17）AddRecipient（收件人）：字符串

如：JMail.AddRecipient( "qiao198@hotmail.com" );

（18）AddRecipientBCC( Email )，密件收件人：

如：JMail.AddRecipientBCC( "qiao198@hotmail.com" );

（19）AddRecipientCC( Email ) ，抄送收件人：

如：JMail.AddRecipientCC( "" )

（20）AddURLAttachment( URL, 文档名)

下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。

如：JMail.AddURLAttachment( "", "jmail" )

（21）AppendBodyFromFile( 文件名) ，将文件作为信件正文：

如：JMail.AppendBodyFromFile( "c:anyfile.txt" )

(22)AppendText( Text )

追加信件的正文内容，比如增加问候语或者其它信息。

如：JMail.AppendText( "欢迎访问本站！" )

（23）Close() ，强制JMail关闭缓冲的与邮件服务器的连接：

如：JMail.Close()

（24）发送【调用格式：objJMail.Send(SMTPServerAddress[:Port])】

例：JMail.Send("smtp.163.com")

Jmail具有以下特点：

（1）可以发送附件；

（2）详细日志能力，便于你查看问题所在；

（3）设置邮件发送的优先级；

（4）支持多种格式的邮件发送，比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。

（5）密件发送/(CC)抄送/紧急信件发送能力；

（6）最关键的就是--免费的组件，不必花钱，所以非常值得使用。

这是在服务器上安装的邮件组件 不是病毒

好奇怪Jmail只能发给一个邮箱!!!

前一段时间有发过一个简单的JMAIL邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子：

首先是jmail.smtpmail的核心代码：

Set jmail = Server.CreateObject("JMAIL.SMTPMail") ’创建一个JMAIL对象

jmail.silent = true ’JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmail.logging = true ’启用使用日志

jmail.Charset = "GB2312" ’邮件文字的代码为简体中文

jmail.ContentType = "text/html" ’邮件的格式为HTML的

jmail.ServerAddress = "Server Address" ’发送邮件的服务器

jmail.AddRecipient Email ’邮件的收件人

jmail.SenderName = "SenderName" ’邮件发送者的姓名

jmail.Sender = "Email Address" ’邮件发送者的邮件地址

jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Subject = "Mail Subject" ’邮件的标题

jmail.Body = "Mail Body" ’邮件的内容

jmail.AddRecipientBCC Email ’密件收件人的地址

jmail.AddRecipientCC Email ’邮件抄送者的地址

jmail.Execute() ’执行邮件发送

jmail.Close ’关闭邮件对象

w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：

Set jmail = Server.CreateObject("JMAIL.Message") ’建立发送邮件的对象

jmail.silent = true ’屏蔽例外错误，返回FALSE跟TRUE两值j

mail.logging = true ’启用邮件日志

jmail.Charset = "GB2312" ’邮件的文字编码为国标

jmail.ContentType = "text/html" ’邮件的格式为HTML格式

jmail.AddRecipient Email ’邮件收件人的地址

jmail.From = "Email From for Sender" ’发件人的E-MAIL地址

jmail.MailServerUserName = "UserName of Email" ’登录邮件服务器所需的用户名

jmail.MailServerPassword = "Password of Email" ’登录邮件服务器所需的密码

jmail.Subject = "Mail Subject" ’邮件的标题

jmail.Body = "Mail Body" ’邮件的内容

jmail.Prority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Send("Server Address") ’执行邮件发送（通过邮件服务器地址）

jmail.Close() ’关闭对象

再讲一下微软自带的CDONTS组件的发信的方法：

Set cdomail = Server.CreateObject("CDONTS.NewMail") ’建立邮件对象

cdomail.Subject = "Mail Subject" ’邮件标题

cdomail.From = "Sender’s Mail" ’发件人的地址

cdomail.To = "Email will from" ’收件人的地址

cdomail.Body = "Mail Body" ’邮件的内容

cdomail.Send ’执行发送

这种方法发送邮件是最简单的，同时也带来一定的问题，就是很少有服务器会开这项服务！

我们写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：

’参数说明

’Subject : 邮件标题

’MailAddress : 发件服务器的地址,如smtp.163.com

’Email : 收件人邮件地址

’Sender : 发件人姓名

’Content : 邮件内容

’Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)

Set jmail = Server.CreateObject("JMAIL.SMTPMail") ’创建一个JMAIL对象

jmail.silent = true ’JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmail.logging = true ’启用使用日志

jmail.Charset = "GB2312" ’邮件文字的代码为简体中文

jmail.ContentType = "text/html" ’邮件的格式为HTML的

jmail.ServerAddress = mailaddress ’发送邮件的服务器

jmail.AddRecipient Email ’邮件的收件人

jmail.SenderName = sender ’邮件发送者的姓名

jmail.Sender = fromer ’邮件发送者的邮件地址

jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Subject = subject ’邮件的标题

jmail.Body = content ’邮件的内容

’由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复

’jmail.AddRecipientBCC Email ’密件收件人的地址

’jmail.AddRecipientCC Email ’邮件抄送者的地址

jmail.Execute() ’执行邮件发送

jmail.Close ’关闭邮件对象

End Sub

’调用此Sub的例子

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = "这是一封用JMAIL发送的测试邮件"

strContent = "JMail组件发送测试成功！"

strEmail = "runbing@eyou.com"

strFromer = "runbing@eyou.com"

strMailAddress = "mail.ubbcn.com"

关于JMAIL发信的问题

到上去搜索“JMAIL发送邮件”的帖子，应该有你需要的答复，我以前装DVBBS的时候也遇到过这样的情况，按照上面的说明改了下就可以了。

请大家帮我看看Jmail程序，邮箱收不到邮件（加上smtp验证用户名密码也收不到。）

'参数说明

'Subject : 邮件标题

'MailAddress : 发件服务器的地址,如smtp.163.com

'Email : 收件人邮件地址

'Sender : 发件人姓名

'Content : 邮件内容

'Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)

Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象

jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmail.logging = true '启用使用日志

jmail.Charset = "GB2312" '邮件文字的代码为简体中文

jmail.ContentType = "text/html" '邮件的格式为HTML的

jmail.ServerAddress = mailaddress '发送邮件的服务器

jmail.AddRecipient Email '邮件的收件人

jmail.SenderName = sender '邮件发送者的姓名

jmail.Sender = fromer '邮件发送者的邮件地址

jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Subject = subject '邮件的标题

jmail.Body = content '邮件的内容

'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复

'jmail.AddRecipientBCC Email '密件收件人的地址

'jmail.AddRecipientCC Email '邮件抄送者的地址

jmail.Execute() '执行邮件发送

jmail.Close '关闭邮件对象

End Sub

'调用此Sub的例子

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = "这是一封用JMAIL发送的测试邮件"

strContent = "JMail组件发送测试成功！"

strEmail = "runbing@eyou.com"

strFromer = "runbing@eyou.com"

strMailAddress = "mail.ubbcn.com"

Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)