Set jmail = Server.CreateObject("JMAIL.Message") |
% Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content) Set jmail = Server.CreateObject("JMAIL.Message") jmail.silent = true jmail.logging = true jmail.Charset = "gb2312" jmail.ContentType = "text/html" jmail.AddRecipient mailTo jmail.From = smtpUser jmail.FromName = FromName jmail.Subject = subject jmail.Body = content jmail.Priority = 1 jmail.MailServerUserName = smtpUser jmail.MailServerPassword = smtpPass jmail.Send(smtpHost) jmail.Close() response.write("邮件发送成功") End Function %> |