Jmail发邮件的例子

在ASP程序中，使用Jmail发送邮件是一个广泛采用的方法，尤其是在多数虚拟主机环境中得到了广泛支持。狼蚁网站SEO优化的实例代码中，展示了如何使用Jmail进行邮件发送。如果您在自己的服务器上操作，请按照以下步骤进行：

您需要下载Jmail.dll文件，解压后双击Setup.bat即可完成安装。接着，可以在您的ASP代码中嵌入以下示例代码。

创建一个Jmail对象实例并设置相关参数：

```asp

<%

On error resume next

Dim JMail, contentId

Set JMail = Server.CreateObject("JMail.Message")

'邮件字符集设置

JMail.Charset = "gb2312"

'是否进行ISO编码

JMail.ISOEncodeHeaders = False

'设置发件人信息

JMail.From = "xiaoz@xiaoz."

JMail.FromName = "XiaoZ"

JMail.Subject = "邮件主题"

'身份验证信息

JMail.MailServerUserName = "myusername"

JMail.MailServerPassword = "mypassword"

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

JMail.Priority = 3

'添加邮件头部信息

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

'添加收件人，可以添加多个

JMail.AddRecipient("xiaoz@xiaoz.")

'添加附件，确保用户IUSR_机器名有访问权限

'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

'设置邮件主体，可以是HTML格式或文本格式

JMail.HTMLBody = "邮件正文
邮件正文
邮件正文"

JMail.Body = "我们的邮件采用了HTML格式，您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"

'发送邮件，调用Send方法，[username:password@]SMTPServerAddress[:Port]格式填写SMTP服务器信息

JMail.Send("smtp.163.")

'关闭并清除对象

JMail.Close()

Set JMail = Nothing

if err.number<>0 then

response.write "发送失败！"

else

response.write "邮件发送成功！"

end if

%>

```

在此代码中，您可以根据自己的需求修改发件人信息、收件人信息、邮件主题、邮件内容等。确保您的服务器配置正确，并且拥有正确的SMTP服务器信息以便成功发送邮件。代码中的样式和格式可以根据您的需求进行调整，以符合您的网站风格。在成功发送邮件后，会收到“邮件发送成功！”的提示信息；如果发生错误，则会收到“发送失败！”的提示信息。这样您可以确保用户能够收到您发送的邮件。