How to send email via Dundas Mailer Script

[Shane]

<%
Dim DMailer
Set DMailer = Server.CreateObject("Dundas.Mailer")
DMailer.SMTPRelayServers.Add "mail.<your domain name>", 2525
DMailer.TOs.Add "Recipient email address"
DMailer.FromAddress = "sender email address"
DMailer.Subject = "subject line"
DMailer.HTMLBody = "Contents of the message"
DMailer.CCs.Add "CC Email address if any"
DMailer.SendMail
Set DMailer = Nothing
%>