Collaboration Data Objects (CDO) for NTS

Rename your .htm or .html file to .asp, then Insert the following script:

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "" 'This is the From line
myMail.To = "" 'Put here the recipient's email address
myMail.Subject = "Subject of email" 'Put here what the subject is
myMail.CC="xx@xxx.xx" 'OPTIONAL, carbon copy for another recipient
myMail.BodyFormat = 1
myMail.MailFormat = 0
myMail.Body = "Message body" ' Put here your message
Set myMail = Nothing