ASP CDO Mails

Set myMail=CreateObject("CDO.Message")
myMail.Subject=subject
myMail.From=strfromemail
myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing 'Name or IP of remote
SMTP server
myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="smtp.com" 'Server port

myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25

myMail.To=strtoname
myMail.HTMLBody=body
myMail.Configuration.Fields.Update
myMail.Send