<! refer from http://www1.domaindlx.com/aspemailsample.html>
<body><b>Sendmail.asp</b> version 1.0<br>
<form action=sendmail.asp method=post>
SMTP Host<select name=gethost>
<option value=mail.loxinfo.co.th selected>mail.loxinfo.co.th
<option value=mail.a-net.net.th>mail.a-net.net.th
<option value=bkk1.asiaaccess.net.th>bkk1.asiaaccess.net.th
<option value=classic.asianet.co.th>classic.asianet.co.th
<option value=mail.cscoms.com>mail.cscoms.com
<option value=mail.linethai.co.th>mail.linethai.co.th
<option value=mail.fareast.net.th>mail.fareast.net.th
<option value=mail.idn.co.th>mail.idn.co.th
<option value=smtp.infonews.co.th>smtp.infonews.co.th
<option value=mozart.inet.co.th>mozart.inet.co.th
<option value=smtp.samart.co.th>smtp.samart.co.th
<option value=mail.wnet.net.th>mail.wnet.net.th
<option value=smtp.softhome.net>smtp.softhome.net
</select><br>
From E-mail:<input type=text name=femail>
From Name:<input type=text name=fname>
Reply to E-mail:<input type=text name=remail><br>
To E-mail:<input type=text name=temail>
To Name:<input type=text name=tname><br>
CC E-mail:<input type=text name=ccemail>
BCC E-mail:<input type=text name=bccemail><br>
Subj:<input type=text name=subj size=50><br>
<textarea name=msg rows=10 cols=80>
</textarea><br>
<br><input type=submit value=Send>
</form>
<%
gethost = request.form("gethost")
femail = request.form("femail")
fname = request.form("fname")
remail = request.form("remail")
temail = request.form("temail")
tname = request.form("tname")
ccemail = request.form("ccemail")
bccemail = request.form("bccemail")
subj = request.form("subj")
msg = request.form("msg")
if (len(temail)<2)or(len(femail)<2) _
or(len(subj)<2) then
response.write("Please enter your name and/or e-mail address")
else
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = gethost
Mail.From = femail
Mail.FromName = fname
Mail.AddAddress temail ,tname
if len(remail) > 2 then Mail.AddReplyTo remail end if
if len(ccemail) > 2 then Mail.AddCC ccemail end if
if len(bccemail) > 2 then Mail.AddBCC bccemail end if
Mail.Subject = subj
Mail.Body = msg
On Error Resume Next
Mail.Send
if Err <> 0 then
ErrMsg = "เกิดข้อผิดพลาด : " & Err.Description
else
ErrMsg = "ส่ง mail เรียบร้อย<br>"
ErrMsg = ErrMsg + "ถ้ามีโอกาส กลับมาใช้บริการใหม่นะครับ"
end If
set mail = nothing
response.write(ErrMsg)
end if
%>
</body>
