การส่งอีเมลล์ง่าย ๆ ด้วย cdo mail และ asp email

cdo mail

1.CDONTSMAIL.HTM ฟอร์มการส่งอีเมลล์ในรูปแบบ html

<html>
<head>
<title> </title>
</head>

<body bgcolor="white">
<h2 align="center">
<Form Mailer - Test Page>
</h2>
<form method="GET" action="CDONTSMAIL.ASP">
<p> Enter Mail To Address: <input type="text" name="addressto" size="20"> <br> Enter Mail Message: <textarea name="txtmsg" rows="10" cols="60">Hello!</textarea>
<input type="submit" ></p>
</form>

</body>
</html>

2.CDONTSMAIL.ASP การส่งอีเมลล์ที่เขียนด้วย ภาษา asp

<html>
<head>
<title> </title>
</head>

<body bgcolor="white">
<BR><h3><align="center">CDONTS.Newmail Mailer Form Test

Mail To: <%=Request.QueryString("addressto")%>

<%
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = "yourname@yourdomain.com"
Mailer.To = Request.QueryString("addressto")
Mailer.Subject = "Stock Split Announced!"
Mailer.Body = Request.QueryString("txtmsg")
Mailer.Send
Set Mailer=Nothing
%>

</body>
</html>

  เริ่มด้วยการสร้างออปเจ็ค CDONTS.NewMail ซึ่งเป็นออปเจ็คที่ใช้ในการส่ง Mail และมี property หลักที่ใช้ในการส่งเมลล์ดังนี้

      Mailer.From : เป็นการให้ใส่ชื่อหรืออีเมลล์ของผู้ส่ง
      Mailer.To : เป็นการให้ใส่ชื่อหรืออีเมลล์ของผู้รับ ถ้ามีผู้รับหลายคนต้องมีเครื่องหมาย ; คั่นระหว่างอีเมลล์
      Mailer.Subject : เป็นการให้ใส่หัวข้ออีเมลล์ของจดหมาย
      Mailer.Body : เป็นเนื้อหาหรือบทความในอีเมลล์
      Mailer.Send : เป็นสั่งให้ส่งอีเมลล์
      Set Mailer=Nothing : เป็นการสั่งให้เลิกจองหน่วยความจำ

  Demo : CDONTSMAIL.HTM
  Download Source : cdontstest.zip

ASPEmail

1.sendmail.htm ฟอร์มการส่งอีเมลล์ในรูปแบบ html และ มีการแนบเอกสารหรือไฟล์ในการส่งด้วย

<html>
<head>
<title> Form Mailer - Test Page</title>
</head>

<h2>Sending Mail with an Attachment using AspEmail</h2>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="sendmail.asp">
<TABLE>
<TR><TD>Mail From (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="From"></TD></TR>
<TR><TD>Mail To (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="To"></TD></TR>
<TR><TD>Subject:</TD><TD><INPUT TYPE="TEXT" NAME="Subject"></TD></TR>
<TR><TD>Body: </TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>
<TR><TD>Attachment:</TD><TD><INPUT TYPE=FILE NAME="ATTACHMENT" </TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE="Send Mail"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME="Send" VALUE="Send">
</FORM>

</body>
</html>

2.sendmail.asp การส่งอีเมลล์พร้อมกับแนบไฟล์ที่เขียนด้วย ภาษา asp

<html>
<head>
<title>ASP Mailer Form Test</title>
</head>

<body bgcolor="white">

<%
' Capture an uploaded file
Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True ' suppress "Nothing has been posted" error
Count = Upload.Save("c:\upload")

' Send mail
If Upload.Form("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.hostsiam.com" ' replace that with your own host
Mail.From = Upload.Form("From")
Mail.AddAddress Upload.Form("To")
Mail.Subject = Upload.Form("Subject")
Mail.Body = Upload.Form("Body")

If Count > 0 Then Mail.AddAttachment Upload.Files(1).Path

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error occurred when trying to send mail: <B>" & Err.Description & "</B>"
Else
Response.Write "Success! Message was sent."
End If
End If
Set Mail=Nothing
%>

</body>
</html>

  เริ่มด้วยการสร้างออปเจ็ค Persits.MailSender ซึ่งเป็นออปเจ็คที่ใช้ในการส่ง Mail และมี property หลักที่ใช้ในการส่งเมลล์ดังนี้

      Mail.Host : เป็นการใส่ mail server ที่เราใช้อยู่ จะเป็น mail.yourdomain.com
      Mail.From : เป็นการให้ใส่ชื่อของผู้ส่ง
      Mail.AddAddress : เป็นการให้ใส่อีเมลล์ของผู้ส่ง
      Mail.AddRecipient : เป็นการให้ใส่ชื่อหรืออีเมลล์ของผู้รับ ถ้ามีผู้รับหลายคนต้องมีเครื่องหมาย ; คั่นระหว่างอีเมลล์
      Mail.Subject : เป็นการให้ใส่หัวข้ออีเมลล์ของจดหมาย
      Mail.BodyText : เป็นเนื้อหาหรือบทความในอีเมลล์
      Mail.SendMail : เป็นสั่งให้ส่งอีเมลล์
      Set Mail=Nothing : เป็นการสั่งให้เลิกจองหน่วยความจำ

  Demo : sendmail.htm
  Download Source : sendmail.zip