複製下面的代碼，存爲ASP文件，把他上傳到支持ASP和JMAIL發信組件空間裏，運行就能看到小過了，
另外需要特別說明的就是郵件服務器是否需要驗證這個選項是很關鍵的，經過我們反覆測試如果不需要驗證的服務器發送時您選中了需要驗證信件將無法成功發送，而需要驗證身份的服務器，您發送時必須選中需要驗證，並正確填寫好驗證ID和密碼比如如果你是使用163.COM的免費信箱的用戶SMTP服務器應該是SMTP.163.COM這個是需要驗證的正確填寫後才能發送！
發不出信件還有一種可能那就是有些服務器的SMTP身份驗證密碼，和您登陸信箱的密碼是不一樣的，這個信箱提供商應該會在醒目位置提醒你一般這樣的SMTP郵件服務器很少，至少我還沒碰到過！
<%'======================================================================================
Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer
Dim emailTit, emailTxt, FromUserID, FromUserIDPW
emailTit = Request.Form("emailTit") '從表單獲取email的標題
emailTxt = Request.Form("emailTxt") '從表單獲取郵件的內容
'==========================以下綠色代碼是判斷服務器是否支持JMAIL組件
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if not IsObjInstalled("JMail.Message") then
Response.write"你所使用的服務器不支持郵件發送！"
Response.End
end if
'==========================================================
if Trim(Request.Form("action")) = "確定發送" then
SmtpServer = Request.Form("SmtpServer")
FromUserEmail = Request.Form("FromUserEmail")
FromUser = Request.Form("FromUser")
ForUserEmail = Request.Form("ForUserEmail")
FromUserID = Request.Form("FromUserID")
FromUserIDPW = Request.Form("FromUserIDPW")
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/HTML"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
if Request.Form("smtpPW") = "1" then '判斷服務器是否需要身份驗證
' 身份驗證
JMail.MailServerUserName = FromUserID
' 身份驗證的用戶名
JMail.MailServerPassword = FromUserIDPW
' 身份驗證的密碼
end if
JMail.From = FromUserEmail '發件人的信箱
JMail.FromName = FromUser '發件人的名字
JMail.Subject = emailTit '郵件的主題
JMail.Body = emailTxt '郵件的內容
'==============================收件人的地址！
JMail.AddRecipient(ForUserEmail) '收件人的地址
JMail.Priority=5 '郵件級別1-5數字越大級別越高---3爲普通郵件
JMail.Send(SmtpServer) '紅色變量是郵件服務器地址
JMail.Close
Set JMail=nothing
if err then
err.clear
Response.Write "<center><b> 發信功能已經打開，但因服務器不支持發信或者信箱地址錯誤，導致信件無法發出！</b></center>"
Response.End
else
Response.Write "<center><b> 信件已經發出！</b></center>"
Response.End
end if
end if %>
<style type="text/CSS">
<!--
td {
font-size: 12px;
}
-->
</style>
<body leftmargin="0" topmargin="2" bgcolor="#0066CC">
<form action="" method="post" name="input" target="_self">
<table width="436" border="0" align="center" bgcolor="#0066CC" cellpadding="3" cellspacing="1">
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">收件人名字：</td>
<td width="267" height="28" class="text1"> <input name="ForUser" type="text" value="我容易麼我" size="20">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">收件人地址：</td>
<td width="267" height="28"> <input name="ForUserEmail" type="text" size="20" maxlength="50">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">發件人姓名：</td>
<td width="267" height="28"> <input name="FromUser" type="text" value="今晚在線" size="20">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" height="13" align="right">發件人地址：</td>
<td width="267" height="13"> <input name="FromUserEmail" type="text" value="" size="20" maxlength="50">
</td>
</tr>
<tr bgcolor="#E1F4FF">
<td height="13" align="right">服務器是否需要身份驗證：</td>
<td width="267" height="13">
<input type="radio" name="smtpPW" value="1">需要
<input name="smtpPW" type="radio" value="0" checked>不需要</td>
</tr>
<tr bgcolor="#E1F4FF">
<td width="154" height="28" align="right">發件信箱登陸名：</td>
<td height="28">
<input name="FromUserID" type="text" id="FromUserID" value="" size="20" maxlength="50"></td>
</tr>
<tr bgcolor="#E1F4FF">
<td width="154" height="27" align="right">發件人登陸密碼：</td>
<td height="27">
<input name="FromUserIDPW" type="text" id="FromUserIDPW" value="" size="20" maxlength="50"></td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" height="26" align="right">郵件服務器：</td>
<td height="26"> <input name="smtpServer" type="text" class="biankuang" id="smtpServer" value="smtp.163.com" size="30" maxlength="50"></td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">郵件標題：</td>
<td width="267" height="28"> <input name="EmailTit" type="text" value="今晚在線郵件測試…………" size="30" maxlength="50">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="20" valign="top">郵件內容：</td>
<td width="267"> <textarea name="EmailTxt" cols="35" rows="4" id="EmailTxt">
想起我了麼？今晚在線吧！
http://WWW.TOL8.COM
</textarea> </td>
</tr>
<tr align="center" bgcolor="#CADBF7">
<td colspan="2" height="33"> <input type="submit" name="action" value="確定發送">
</td>
</tr>
<tr align="center" bgcolor="#CADBF7">
<td colspan="2" height="33"> </td>
</tr>
</table>
</form>