在空间中使用Jmail插件的步骤
在我的空间中如何使用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 '以下是调用此函数的方法，其中shuyuan@lvka.cn是发件人，your@mail.com是收件人 Call Send_Mail("shuyuan@lvka.cn","your@mail.com","Test","This is test mail!")