mailserver="smtp.ood1.com" '(修改smtp服務器地址)
username="good-1@ood1.com" '(用來做發送郵件的地址)
password="ood1.com" ' (做發送郵件密碼)
receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收留言的郵箱)
修改成您自己的郵箱就行.
----------------------------------------------------------------------
<%response.charset="gb2312"%>
<HTML>
<BODY>
<form action="sent.asp?go=sent" method="post">
<table>
用戶名:<input type="text" name="name" id="name" value="">
郵箱:<input type="text" name="email" id="email" value="***@msn.com">
主題:<input type="text" name="subject" id="subject" value="Jmail中文郵件發送測試" >
反饋信息:<td width="650">
<TEXTAREA NAME="content" ROWS="5" COLS="50"></TEXTAREA>
<td colspan="2" align="center"><INPUT TYPE="submit" value="提交">
</table>
</form>
<%
If request("go")<>"sent" Then response.End
dim CLStr,msg,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)
'請在此修改相關信息
mailserver="smtp.ood1.com" '郵局服務器地址(smtp服務器地址)
username="****@ood1.com" 'smtp服務器驗證登陸名(用來做為代發郵件的地址)
password="ood1.com" 'smtp服務器驗證密碼 (信箱密碼)
receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收郵件的信箱)
'修改結束
Set msg = Server.CreateObject("JMail.Message")
msg.Charset = "gb2312"
msg.logging = true '啟用郵件日志
msg.silent=True'屏蔽例外錯誤,返回False或True
'msg.ContentType = "text/html"'郵件的格式為HTML格式
msg.Priority = 1 '郵件等級,1為加急,3為普通,5為低級
msg.MailServerUserName = username
msg.MailServerPassword = password
msg.From = username
msg.FromName = username
msg.AddRecipient (receive)
msg.Subject = "網站在線反饋:"&Request.Form("subject")
msg.HTMLBody = "網站在線反饋"&CLStr&CLStr
msg.HTMLBody = msg.HTMLBody&"<br>對方姓名:"&Request.Form("name")&CLStr
msg.HTMLBody = msg.HTMLBody&"<br>對方信箱:"&Request.Form("email")&CLStr
msg.HTMLBody = msg.HTMLBody&"<br>留言內容:<br>"
msg.HTMLBody = msg.HTMLBody&"<div style='font:9pt;background-color:#eeeeee'>"&Request.Form("content")&CLStr
msg.HTMLBody = msg.HTMLBody&""
If msg.Send (mailserver) Then
Response.Write(" <script language=javascript>alert('發送成功');location='sent.asp'</script>")
else
Response.Write(" <script language=javascript>alert('發送失敗,請仔細檢查郵件服務器的設置是否正確!') </script>")
End If
msg.close
set msg = nothing
%>
<p>郵件發送成功,謝謝使用</p>
</BODY>
</HTML>