jmail 发送邮件函数代码[附jmail4.5组件下载及中文chm帮助文档]

本文介绍了一种使用JMail组件发送邮件的方法，并提供了详细的代码示例。通过设置邮件的各项属性，如发件人、收件人、主题及正文等，可以实现从指定邮箱发送HTML格式的邮件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function sendJmail(strFromEmail, strFromName, strToEmail, strSubject, intBodyType, strBody) Dim msg Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "UTF-8" '邮件文字的代码为简体中文 JMail.Logging = True JMail.silent = True JMail.From = strFromEmail JMail.FromName = strFromName JMail.Subject = strSubject JMail.MailServerUserName = "自已的邮箱" '发送邮箱用户名 JMail.MailServerPassword = "密码" '发送邮箱密码 JMail.Priority = 3 ''邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.AddRecipient(strToEmail) If intBodyType = 1 Then JMail.ContentType = "text/html" End If JMail.AppendHTML(strBody) msg = JMail.Send("smtp.163.com")'对应的邮箱的服务器地址 response.Write(msg) JMail.Close() Set JMail = Nothing sendJmail = msg End Function

附: