asp如何使用Jmail组件发送信息到指定邮箱

a=request(姓名)

aa=request(电话)

aaa=request(mail)

aaaa=request(yb)

aaaaa=request(dz)

b=request(bt)

bb=request(内容)

'上面是请求的数据，由普通表单提交过来即可。

DimJMail,contentId

SetJMail=Server.CreateObject(JMail.Message)

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

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

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

[email protected] ’用于发送的邮箱

JMail.FromName=网站1 ’发送者姓名

JMail.Subject=信箱a ’邮件主题

’身份验证

[email protected] ’用于发送的邮箱

JMail.MailServerPassword=xxxxxxx ’密码

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

JMail.Priority=3

JMail.AddHeaderOriginating-IP,Request.ServerVariables(REMOTE_ADDR)

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

JMail.AddRecipient([email protected])

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

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

’contentId=JMail.AddAttachment(filename,True)

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

JMail.HTMLBody=发信人姓名：&a&<br>电话：&aa&<br>mail：&aaa&<br>邮编：&aaaa&<br>联系地址：&aaaaa&<br>标题：&b&&nbsp;<br>

内容：&bb&<br>

’邮件主体（文本部分）

JMail.Body=我们的邮件采用了HTML格式，请点击邮件下方HTML内容来查看详细内容。

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

sendok=JMail.Send(mail.xxx.com) '发送mail服务器

ifsendokthen

endstr=已经成功发送了邮件！

else

endstr=发送邮件失败，可能是您填写了错误的邮件地址。<br/>&_

如果您确信没有写错邮件地址，则可能是发信程序出了<br/>&_

故障，请与管理员联系！

endif

’关闭并清除对象

JMail.Close()

SetJMail=Nothing

%>

<%=endstr%>