<% dim returnCode SendMail if returnCode = True then 'Put your code when mail send successfull else 'Put your code when mail could not send end if sub SendMail() Set myMail=CreateObject("CDO.Message") myMail.Subject="Send test Mail using CDOSYS" myMail.From="name@yourdomain.com" myMail.To="name@yourdomain.com" 'You can also use comma separated Mail myMail.HTMLBody="HiHow r you.
Test mail sending Program
" myMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost" 'Server port myMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.UpdateOn Error Resume Next myMail.Send If Err.Number = 0 then returnCode=True Else returnCode=False End If set myMail=nothing end sub %>