|
Using CDO for Windows 2000
- The use of CDONTS on a Windows 2000
Server is not recommended
upgrade to CDO for Windows 2000
CDO EXAMPLE
<body>
<%
'Set up email object variables
Dim objNewMail
Set objNewMail = Server.CreateObject("CDO.Message")
' The following code avoids
using the CDO SMTP server for delivery which is not 100% reliable
' Instead it will direct CDO to use our internal SMTP gateway which is rock
solid
Set iConf = objNewMail.Configuration
iConf("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"Replace_With_WebPanacheMailServer"
iConf("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
iConf("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields.Update
objNewMail.From = "EmailAddress@YourDomain.com"
objNewMail.To = "EmailAddress@YourDomain.com"
objNewMail.Subject = "This is a test message using CDO for Windows
2000"
objNewMail.TextBody = "test"
'objNewMail.HTMLBody
= "This is a test message"
'objNewMail.BodyFormat = 1
'objNewMail.MailFormat = 1
'objNewMail.Importance = 2
objNewMail.Send
Set objNewMail = Nothing
%>
DONE
</body>
For more details on CDO for Windows 2000 check the Microsoft site.
| 
