|
 |
| |
อยากทำระบบส่ง email ของเราเองแทนการส่ง email จาก outlook เหมือนรูปที่แนบมาต้องทำงัยค่ะ |
| |
 |
|
|
 |
 |
|
Code (AspCdontsSendMailUpload.html)
<html>
<head>
<title>ThaiCreate.Com ASP CDONTS.NewMail Send Mail</title>
</head>
<body>
<form action="AspCdontsSendMaiAttachlUploadFile.asp" method="post" enctype="multipart/form-data" name="frmMain">
<table width="343" border="1">
<tr>
<td>To</td>
<td><input name="txtTo" type="text" id="txtTo"></td>
</tr>
<tr>
<td>Subject</td>
<td><input name="txtSubject" type="text" id="txtSubject"></td>
</tr>
<tr>
<td>Description</td>
<td><textarea name="txtDescription" cols="30" rows="4" id="txtDescription"></textarea></td>
</tr>
<tr>
<td>Attach</td>
<td><input name="Attach" type="file"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="Send"></td>
</tr>
</table>
<br>
<br>
<br>
</form>
</body>
</html>
Code (AspCdontsSendMaiAttachlUploadFile.asp)
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP CDONTS.NewMail Send Mail</title>
</head>
<body>
<%
Dim myMail,HTML,strTo,strSubject,strDescription,strFileName
Dim mySmartUpload
'*** Create Object ***'
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'*** Upload Files ***'
mySmartUpload.Upload
'*** Upload file ***'
If mySmartUpload.Files("Attach").FileName <> "" Then
mySmartUpload.Files("Attach").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("Attach").FileName))
End If
'*** Send Mail ***'
Set myMail = Server.CreateObject("CDONTS.NewMail")
strTo = mySmartUpload.Form("txtTo")
strSubject = mySmartUpload.Form("txtSubject")
strDescription = Replace(mySmartUpload.Form("txtDescription"),vbCrLf,"<br>")
strFileName = Server.MapPath("MyFiles/"&mySmartUpload.Files("Attach").FileName)
myMail.AttachFile strFileName
myMail.From = "Webmaster <[email protected]>"
myMail.Value("Reply-To") = "[email protected]"
myMail.To = strTo
myMail.Subject = strSubject
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.Body = strDescription
myMail.Send
Response.write ("Mail Sending.")
Set mySmartUpload = Nothing
Set myMail = Nothing
%>
</body>
</html>
Ref : ASP Sending Mail Contact Form
|
 |
 |
 |
 |
| Date :
2009-10-03 18:36:08 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|
| |
|
 Load balance : Server 00
|
ถ้าใช้ asp ทำ
