Ciao a tutti una domandina :

mi servirebbe un aiutino per convertire questo codice di invio email da CDONST A CDOSYS , vi posto il codice grazie ..

----------------------------------------------------------------------
Sub SendEmail(strEmail, strEmailType)

strMsg = ""
If strEmailType = "html" Then
CdoBodyFormat = 0
CdoMailFormat = 0
strMessaggio = strMessaggio & "
"
strMsg = "<HTML>"
strMsg = strMsg & "<HEAD><TITLE>Messaggio Urgente</TITLE></HEAD>"
strMsg = strMsg & "<BODY BGCOLOR=""#FFFFCC"">"
strMsg = strMsg & "<FONT FACE=""Tahoma"" SIZE=""2"" COLOR=""#000080"">

" & strOthApertura & "

"
strMsg = strMsg & strMessaggio
strMsg = strMsg & "


" & strOthChiusura & "
</P></FONT>"
strMsg = strMsg & "</BODY>"
strMsg = strMsg & "</HTML>"
Else
CdoBodyFormat = 1
CdoMailFormat = 1
strMessaggio = strMessaggio & vbCrLf
strMsg = strMsg & strOthApertura & vbCrLf & vbCrLf
strMsg = strMsg & strMessaggio & vbCrLf & vbCrLf
strMsg = strMsg & strOthChiusura & vbCrLf
Call ConvertToPlainText(strMsg)
End If

Set objNewMail = CreateObject("CDONTS.NewMail")

objNewMail.From = strFromAddress
objNewMail.To = strEmail
objNewMail.Bcc = strBccAddress
objNewMail.Importance = 2
objNewMail.Subject = strObjectOthEmail
objNewMail.BodyFormat = CdoBodyFormat
objNewMail.MailFormat = CdoMailFormat
objNewMail.Body = strMsg

objNewMail.Send
set objNewMail = Nothing

Response.Write "<font class=""normal"">Un messaggio di posta elettronica è stato spedito all'indirizzo " & strEmail & ".</font>
"

End Sub

---------------------------------------------------------------------