CDO How to
Example's
Please Note - CDONTS object library doesn't work on
Windows 2003.
We recommend using CDO instead of CDONTS on all Windows servers, since
it is a newer and more flexible.
// Example 1
< %
set objMail=CreateObject("CDO.Message")
objMail.To="Target@mail.net"
objMail.From="Source@Mail.net"
objMail.Subject="my test"
objMail.HTMLBody = "hello"
objMail.Send
set objMail=Nothing
%>
// Example 2
<!--METADATA TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000
Library" -->
< !--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"
-->
<%
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
' assume constants are defined within script file
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.server.net"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 20
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "Target@soft.net" 'ToDo: Enter a valid email address.
.From ="Source@godurango.com" 'ToDo: Enter a valid email address.
.Subject = "This is a test CDOSYS message (Sent via Port 25)"
.HTMLBody = strHTML
.Send
End With
Response.Write("Sent")
%>