Salve, chiedo cortesemente aiuto a chiunque possa aiutarmi

vorrei poter trasformare il file che riporto di sotto da CDONTS a CDOSYS.

Premetto che ho fatto varie ricerche sia su questo che su altri forum ma senza successo. Purtroppo non conoscendo l'ASP ho fatto più danni che altro.

Ecco la funzione CDONTS del file:

<%
'Send CDONTS E-mail component Function
Private Function CDONTSSendMail(strEmailAddress)

Dim objCDOMail 'Holds the CDONTS e-mail object

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from
objCDOMail.From = strWebsiteName & " <" & strWebsiteEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strEmailAddress

'The subject of the e-mail
objCDOMail.Subject = strSubject

'The main body of the e-mail
objCDOMail.Body = strEmailBody & strAppendToEmail

'Set the e-mail body format (0=HTML 1=Text)
If Request.Form("format") = "HTML" OR Request.Form("format") = "advHTML" Then
objCDOMail.BodyFormat = 0
Else
objCDOMail.BodyFormat = 1
End If

'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server mail object
Set objCDOMail = Nothing

'Return the function as true
CDONTSSendMail = True

End Function


Grazie a tutti
Carlo

Scusate (la mia ignoranza),
ma in questo caso la pagina con il messaggio corrisponde a "http://www.novacomitalia.com/home/"?

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = "mittente@suodominio.zz"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
.AddAttachment server.mappath("/public/test.txt")

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>