Trong các ứng dụng web, ta có thể sử dụng CDONTS để gửi và nhận thư điện tử. Ví dụ sau minh họa thao tác gửi email từ ứng dụng web.
Trang cdonts_advInput.htm sẽ hiển thị form cho giống như giao diện gửi email của các chương trình email thông thường khác:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Language" CONTENT="en-us">
<META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0">
<META NAME="ProgId" CONTENT="FrontPage.
Editor.Document">
<TITLE>CDO for NTS -Simple Input Page</TITLE>
</HEAD>
<BODY>
<FORM METHOD="post" action="CDONTS_advInput.asp"
ID=FORM1 NAME="FrontPage_Form1"
ONSUBMIT="return FrontPage_Form1_Validator(this)">
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD VALIGN="top" ALIGN="left">From:</TD>
<TD VALIGN="top" ALIGN="left">
<P><!-- WEBBOT BOT="Validation"
STARTSPAN S-DISPLAY-NAME="From"
S-DATA-TYPE="String"
B-ALLOW-LETTERS="TRUE"
B-ALLOW-DIGITS="TRUE"
B-ALLOW-WHITESPACE="TRUE"
Lê Đình Duy - ĐH KHTN Tp. HCM Email: ledduy@ieee.org
S-ALLOW-OTHER-CHARS="@."
B-VALUE-REQUIRED="TRUE"
I-MINIMUM-LENGTH="4" --><!-- WEBBOT BOT="Validation" endspan-->
;<INPUT NAME="txtFrom" SIZE="45"></P>
</TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">To:</TD>
<TD VALIGN="top" ALIGN="left"><!-- WEBBOT BOT="Validation" STARTSPAN
S-DISPLAY-NAME="To" S-DATA-TYPE="String"
B-ALLOW-LETTERS="TRUE"
B-ALLOW-DIGITS="TRUE"
S-ALLOW-OTHER-CHARS="@." B-VALUE-REQUIRED="TRUE"
I-MINIMUM-LENGTH="7" --><!--
WEBBOT BOT="Validation" ENDSPAN --><INPUT SIZE="45" ></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">Cc:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT NAME="txtCc" SIZE="45"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">Bcc:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT NAME="txtBcc" SIZE="45"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Subject:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT NAME="txtSubject" SIZE="45"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Reply To:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT NAME="txtReplyTo" SIZE="45"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Importance:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT TYPE="radio" NAME="optImportance"
VALUE="2">
High
<INPUT TYPE="radio"
CHECKED NAME="optImportance"
VALUE="1">
Normal
<INPUT TYPE="radio"
NAME="optImportance" VALUE="0">Low</TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Message:</TD>
<TD VALIGN="top" ALIGN="left">
<TEXTAREA COLS=68 NAME=txtMessage ROWS=9>
Type your message here in text or HTML format
To use HTML in the body of your message, make sure to select HTML Body Type and MIME
Encoding</TEXTAREA></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Body Type:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT TYPE="radio" NAME="optMsgType" VALUE="1"
TABINDEX="1" checked>
MIME
<INPUT TYPE="radio"
NAME="optMsgType" VALUE="0" TABINDEX="2">HTML</TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left">
Encoding:</TD>
<TD VALIGN="top" ALIGN="left">
<INPUT TYPE="radio" NAME="optMsgEncode"
VALUE="0">MIME
<INPUT TYPE="radio"
NAME="optMsgEncode" VALUE="1" checked>TEXT</TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left"
COLSPAN="2"><FONT FACE="MS Sans Serif"
SIZE=1>Attach File:
<INPUT NAME="txtattfile" TYPE="file"
SIZE="55"></FONT></TD>
Lê Đình Duy - ĐH KHTN Tp. HCM Email: ledduy@ieee.org
</TR>
<TR>
<TD VALIGN="top" ALIGN="left"
COLSPAN="2"><FONT FACE="MS Sans Serif"
size="1">Encode Attachment: </FONT>
<INPUT TYPE="radio"
NAME="optAttEncode" VALUE="0" checked>UUENCODE
<INPUT TYPE="radio"
NAME="optAttEncode" VALUE="2">
<FONT FACE="MS Sans Serif"
size=1>Base 64</FONT></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="left"
COLSPAN="2">
<P ALIGN="center">
<INPUT TYPE="submit" VALUE="Send Message" NAME="btnSend"
TABINDEX="1">
<INPUT TYPE="reset" VALUE="
Clear " NAME="btnClear" TABINDEX="2"></P></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Trang cdonts_advInput.asp sẽ hiển thị xử lí các dữ liệu nhập từ form rồi tạo email gửi đi:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
On Error Resume Next Sub WriteHTML(strInput)
Response.Write(Server.HTMLEncode(strInput)
& "<BR>") End Sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR"
Content="Microsoft FrontPage 4.0">
<TITLE>Send CDONTS - Simple Input</TITLE>
</HEAD>
<BODY>
<%
Dim objMsg, strFrom, strTo, strCc, strBcc, strReplyTo, strBody, _
strSubject, strFileName
Dim lngImportance, lngMsgFormat, lngMsgEncode, lngAttEncode
strFrom = Trim(Request.Form("txtFrom")) strTo = Trim(Request.Form("txtTo")) strCc = Trim(Request.Form("txtCc")) strBcc = Trim(Request.Form("txtBcc"))
strReplyTo = Trim(Request.Form("txtReplyTo")) strSubject = Trim(Request.Form("txtSubject")) strBody = Trim(Request.Form("txtMessage")) lngImportance = Trim(Request("optImportance")) lngMsgFormat = Trim(Request("optMsgType")) lngMsgEncode = Trim(Request("optMsgEncode")) lngAttEncode = Trim(Request("optAttEncode")) strFileName = Trim(Request.Form("txtattfile"))
Set objMsg = Server.CreateObject("CDONTS.NewMail") If Len(Trim(strReplyTo)) > 0 Then
objMsg.Value("Reply-To")=strReplyTo End If
objMsg.From = strFrom objMsg.To = strTo objMsg.Cc = strCc ObjMsg.Bcc = strBcc
objMsg.Subject = strSubject
objMsg.Importance = lngImportance objMsg.BodyFormat = lngMsgFormat objMsg.MailFormat = lngMsgEncode objMsg.Body = strBody
If Len(Trim(strFileName)) > 0 Then
objMsg.AttachFile strFileName, , lngAttEncode End If
objMsg.Send
Set objMsg = Nothing
WriteHTML("The following message was sent via CDO for NTS:")
Lê Đình Duy - ĐH KHTN Tp. HCM Email: ledduy@ieee.org
WriteHTML("From: " &strFrom) WriteHTML("To: " &strTo) WriteHTML("Cc: " &strCc) WriteHTML("Bcc: " &strBcc)
WriteHTML("Reply To: " &strReplyTo) WriteHTML("Subject: " &strSubject) WriteHTML("Body: " &strBody)
WriteHTML("Importance: " &lngImportance) WriteHTML("Message Format: " &lngMsgFormat) WriteHTML("Message Encode: " &lngMsgEncode) WriteHTML("File Attachment: " &strFileName)
WriteHTML("File Attachment Encode: " &lngAttEncode)
%>
<HR>
Send another message with <A HREF =
"cdonts_advInput.htm">
advanced features</A><BR>
Send another message with <A HREF =
"cdonts_simpleInput.htm">
basic features</A>
</BODY>
</HTML>
10. MỘT SỐ KĨ THUẬT KHÁC