<%
'获得发送人的姓名
fsname = request.Form("fsname")
'获得发送人的邮件地址
fsemail = request.Form("fsemail")
'将发送人的邮件地址通过@分离开,放到fs_email数组里面
fs_email = split(fsemail,"@")
'获得发送人的邮件密码
fspassword = trim(request.Form("fspassword"))
'获得收件人的邮件地址
sjemail = request.Form("sjemail")
'获得收件人的姓名
sjname = request.Form("sjname")
'获得邮件的主题
emailsubject = request.Form("emailsubject")
'获得邮件的内容
emailcontent = request.Form("emailcontent")
'设置JMail组件
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
'邮件的紧急程序,1为最快,5为最慢,3为默认值
Jmail.Priority = 1
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码,如果标题有中文,必须设定编码为gb2312
JMail.Charset = "gb2312"
'如果发内嵌附件一定要注释掉这行
'JMail.ContentType = "text/html"
'发送人的姓名
JMail.FromName = fsname
'发送人的邮件
JMail.From =fsemail
'发送人的邮件用户名，163的邮箱用户名只是@前面部分，所以使用split分割，一些邮箱必须包含@以及后缀，特别是企业邮箱，所以使用完整的。
if fs_email(1)="163.com" then
JMail.MailServerUserName = fs_email(0)
stmpmail="smtp.163.com"
'response.Write stmpmail
'response.End()
else
stmpmail="mail."&fs_email(1)
JMail.MailServerUserName = fsemail
end if
'发送人的邮件密码
JMail.MailServerPassword =fspassword
'加入新的收件人
JMail.AddRecipient sjemail, sjname
'密件收件人的地址
'JMail.AddRecipientBCC Email
'邮件抄送者的地址
'JMail.AddRecipientCC Email
'邮件主题
JMail.Subject = emailsubject
'邮件内容
JMail.Body = emailcontent
'增加一个普通附件
'JMail.AddAttachment(Server.MapPath())
'增加一个嵌入式附件
'The return value of AddAttachment is used as a
'reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容
JMail.HTMLBody = "<html><body><br>"&emailcontent
JMail.appendHTML "<br><br></body></html>"
'如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " "
'执行邮件发送<通过邮件服务器地址>smtp.域名.com 不一定是邮件服务器
if JMail.Send(stmpmail) then
response.Write("邮件发送成功")
else
response.Write("邮件发送失败")
end if
JMail.Close()
Set JMail = Nothing
%>
老的163用户和企业邮箱都测试通过，有需要的朋友可以拿去用，也可以测试是否支持别的邮箱
发表于 @ 2008年04月03日 18:09:00|评论(loading...)|编辑