<%
set NesneMail = server.createobject("CDO.Message")
NesneMail.From = "mail adresiniz"
NesneMail.To = "gidecek mail"
NesneMail.HtmlBody = "yazı iceriği"
NesneMail.Subject = "Konu Adı"
with NesneMail.Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.Fields.Update
end with
On Error Resume Next
NesneMail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End If
set NesneMail = Nothing
%>

Bu kodu deneyin hostunuz cdosys destekliyorsa mutlaka çalışması gerekir.