62,244
社区成员




public void sendmail(string str)
{
jmail.MessageClass Jmail = new jmail.MessageClass();
Jmail.Silent = false;
Jmail.Logging = true;
Jmail.Charset = "UTF-8";
Jmail.AddRecipient("book@okhotel.com", "", "");
Jmail.From = "book@okhotel.com";
Jmail.MailServerPassWord = "";
Jmail.Subject = "";
Jmail.Body = "";
Jmail.Send("mail.okhotelcn.com", false);
Jmail.Close();
}
<%
Call Jmail(Uname,uemail,mailsubject,mess)
Sub Jmail(Uname,Email,Topic,Mailbody)
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "utf-8"
JMail.MailServerUserName = "book@okhotel.com"
JMail.MailServerPassword = "" '密码
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = "book@okhotel.com" '邮件服务器
JMail.FromName = "发件人姓名" '
JMail.AddRecipient "book@okhotelcn.com" '收件人邮箱
JMail.Subject = "邮件主题" '
JMail.Body = "邮件正文" '
JMail.Send ("mail.okhotel.com") 'smtp服务器地址
Set JMail = Nothing
SendMail = "OK"
Response.Write "<font color=red size=5><B>发送成功</B></font>"
End Sub
%>