ผิดพลาดตรงส่วนไหนค่ะ?? code ส่งเมล์ค่ะ แบ่งเป็น 2 ไฟล์ค่ะ ในส่วนรับข้อมูลกับส่งข้อมูล 1. ไฟล์
code ส่งเมล์ค่ะ แบ่งเป็น 2 ไฟล์ค่ะ ในส่วนรับข้อมูลกับส่งข้อมูล
1. ไฟล์ testmail.html (ใช้รับค่า)
<html>
<head>
<title>SEND MAIL</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<br>
<br>
<form action=send-mail-sample.asp method=post>
<table cellspacing=1 cellpadding=3 border=0>
<tbody>
<tr>
<td align=middle colspan=2><font face="Helvetica, Verdana, Arial"
size=3><b>Test Send Mail</b></font></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><font face="ms sans serif, Helvetica, Verdana, Arial" size=2>Send to
E-mail Address</font></td>
<td>:
<input maxlength=60 size=25 name=email>
</td>
</tr>
<tr>
<td><font face="ms sans serif, Helvetica, Verdana, Arial" size=2>E-mail
Message</font></td>
<td>:
<input maxlength=60 size=25 name=message>
</td>
</tr>
<tr>
<td align=middle
colspan=2>
<input type=submit value=Send name="submit">
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
2. ไฟล์ send-mail-sample.asp (รับข้อมูล)
<%
email = request("email")
message = request("message")
Sub MySubMail(sender, recipient, subject, messagetext)
if Trim(recipient) <> "" and InStr(recipient,"@") <> 0 then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "209.128.112.202"
Mail.From = sender
Mail.AddAddress recipient
Mail.Subject = subject
Mail.Body = messagetext
Mail.IsHTML = True
On Error Resume Next
If not Mail.Send then
ErrStr = Err.Description
Response.Write "Error occurred when trying to send mail: " & ErrStr
Else
Response.Write "Success! Message was sent !."
End If
On Error Goto 0
Set Mail = Nothing
end if
End Sub
' --- MySubMail (from,to,subject,message)
' --- MySubMail "[email protected] ",email,"Test send mail",message
MySubMail "[email protected] ",email,"Test send mail",message
%>
<html>
<head><title>Test Send Mail</title>
</head>
<body bgcolor="ffffff" text="3f1f1f" link="ff7f00" vlink="1e90ff" alink="ff69b4" topmargin=0 leftmargin=0>
<basefont face="Times New Roman" size=3>
<center>
<br><br><br>
<table border=0 width=550 cellpadding=2 cellspacing=1>
<tr> <td><font face="ms sans serif" size=1 color="bb0000"><b>OH! Yes Success! Message was sent !</b></font></td>
</tr>
</table>
<br><br><br>
</center>
</body>
</html>
ขอบคุณมากค่ะTag : - - - -
Date :
15 Jan 2547 07:52:23
By :
panlapa_am005
View :
3030
Reply :
1
Load balance : Server 05