- <%
- '获得发送人的姓名
- 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
- %>
新改的jmail发送邮件代码,有注释
最新推荐文章于 2024-07-14 10:34:53 发布