< %
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient"zero.deng@achievo.com" '邮件收件人的地址
jmail.From = "myname@163.com" '发件人的E-MAIL地址
jmail.MailServerUserName = "myname@163.com" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "XXXXXX" '登录邮件服务器所需的密码
jmail.Subject = "这里是我写给你邮件的标题" '邮件的标题
mess = mess & "---------------邮件开始-------------------" & vbcrlf
mess = mess & "企业名称：" & gs & vbcrlf
mess = mess & "费用：" & m1 & vbcrlf
mess = mess & "费用预算：" & m2 & vbcrlf
mess = mess & "姓名：" & name & vbcrlf
mess = mess & "邮件：" & email & vbcrlf
mess = mess & "地址：" & address & vbcrlf
mess = mess & "电话：" & tel & vbcrlf
mess = mess & "传真：" & fax & vbcrlf
mess = mess & "---------------邮件结束-------------------"
JMail.Body = mess
JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
% >