Nel caso in cui si migri un sito da Windows Server 2000 a Windows Server 2003 occorrerà mettere mano al classico codice per inviare una mail dalla paginetta dei contatti se questa era basata sui CDONTS. Infatti a partire da Windows XP i CDONTS non sono più inclusi nel sistema operativo ed consigliato utilizzare al posto i CDOSYS come si può leggere dal seguente :
How to migrate the Collaboration Data Objects for NTS applications to Microsoft Collaboration Data Objects for Windows 2000
Per una panoramica sulla differenza tra CDONTS e CDOSYS si veda il seguente:
INFO: What is the Difference Between CDO 1.2 and CDONTS?
Di seguito riporto un esempio dell'utilizzo dei CDOSYS:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "MailServerName"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "from@domain.com"
.To = "to@domain.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Il codice può essere ulteriormente migliorato includendo la CDO type library in modo da non dover utilizzare lo schema URL/namespace, inoltre ciò consente l'utilizzo diretto delle costanti: