jmail.smtpmail在线发送邮件的核心代码：

<%

rem 创建一个JMAIL对象

Set jmail = Server.CreateObject("JMAIL.SMTPMail")

rem JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

jmail.silent = true

rem 启用使用日志

jmail.logging = true

rem 邮件文字的代码为简体中文

jmail.Charset = "GB2312"

rem 邮件的格式为HTML的

jmail.ContentType = "text/html"

rem 发送邮件的服务器

jmail.ServerAddress = "Server Address"

rem 邮件的收件人

jmail.AddRecipient Email

rem 邮件发送者的姓名

jmail.SenderName = "SenderName"

rem 邮件发送者的邮件地址

jmail.Sender = "Email Address"

rem 邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Priority = 1

rem 邮件的标题

jmail.Subject = "Mail Subject"

rem 邮件的内容

jmail.Body = "Mail Body"

rem 密件收件人的地址

jmail.AddRecipientBCC Email

rem 邮件抄送者的地址

jmail.AddRecipientCC Email

rem 执行邮件发送

jmail.Execute()

rem 关闭邮件对象

jmail.Close

%>

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

<%

rem 建立发送邮件的对象

Set jmail = Server.CreateObject("JMAIL.Message")

rem 屏蔽例外错误，返回FALSE跟TRUE两值

jmail.silent = true

rem 启用邮件日志

jmail.logging = true

rem 邮件的文字编码为国标

jmail.Charset = "GB2312"

rem 邮件的格式为HTML格式

jmail.ContentType = "text/html"

rem 邮件收件人的地址

jmail.AddRecipient Email

rem 发件人的E-MAIL地址

jmail.From = "Email From for Sender"

rem 登录邮件服务器所需的用户名

jmail.MailServerUserName = "UserName of Email"

rem 登录邮件服务器所需的密码

jmail.MailServerPassword = "Password of Email"

rem 邮件的标题

jmail.Subject = "Mail Subject"

rem 邮件的内容

jmail.Body = "Mail Body"

rem 邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Prority = 1

rem 执行邮件发送（通过邮件服务器地址）

jmail.Send("Server Address")

rem 关闭对象

jmail.Close()

%>