JMail组件使用中文文档

　　您可以在您的asp程序中使用如下函数来进行在线发信：

　　以下为Jmail发送邮件的函数From发件人信箱 ,MailTo收件人,Subject 主题,Message发送内容：

　　FUNCTION Send_Mail(From,MailTo,Subject,Message)

　　Dim JMail, contentId,Domain,UserName,TextContent

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

　　Domain="211.157.100.145" '有效的邮件服务器地址

　　UserName="沙洋网络" '发件人的名称

　　TextContent="请按HTML格式查看" '文本内容

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

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

　　JMail.From = From

　　JMail.FromName = UserName

　　JMail.Subject = Subject

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

　　JMail.Priority = 3

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

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

　　JMail.AddRecipient(MailTo)

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

　　JMail.HTMLBody = Message

　　' 邮件主体（文本部分）

　　JMail.Body = TextContent

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

　　JMail.Send(Domain)

　　' 关闭并清除对象

　　JMail.Close()

　　Set JMail = Nothing

　　END FUNCTION

　　'以下是调用此函数的方法，其中[email protected]是发件人，[email protected]是收件人

　　Call Send_Mail("[email protected]","[email protected]","Test","This is test mail!")