在空间中使用Jmail插件的步骤

在空间中使用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!")