如何让系统在后台发邮件给指定的邮箱?
如何让系统在后台发邮件给指定的邮箱?高手们帮帮忙,谢谢了
On error resume next Dim JMail Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" JMail.Silent = True JMail.From = "123123@ = "123123" JMail.Subject = "title" ' 身份验证 JMail.MailServerUserName = "123123" JMail.MailServerPassword = "234234" ' 设置优先级,范围从1到5,越大的优先级越高,3为普通 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个 JMail.AddRecipient("123123@qzone.) ' 邮件主体(HTML(注意信件内链接附件的方式)) JMail.HTMLBody = "123123" ' 邮件主体(文本部分) JMail.Body = "123123" ' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】 SendBlog=JMail.Send("smtp.) ' 关闭并清除对象 JMail.Close() Set JMail = Nothing