Problema invio email con CDOSYS

[dtomasini]

Ciao a tutti, è tutta la giornata che cerco su questo forum ma non sono riuscito a trovare una soluzione...
Comunque, ho letto il vostro articolo su come ottimizzare l'invio di email presente al sito:
http://asp.html.it/.
Quello che devo fare è generare un'email automatica che invii al destinatario una mail riguardante l'esito di una richiesta fatta ad un determinato ufficio.
Il mio sistema deve girare su una intranet ospedaliera. Ho già provato a chiedere e mi hanno detto che non ci sono restrizioni riguardo questo argomento, e mi hanno dato anche l'url smtp e la porta...
Ho provato con un po' tutte e 4 le tipologie, ma con CDONTS mi da: Accesso non autorizzato
Con CDOSYS mi dice:

CDO.Message.1 (0x80040213)
The transport failed to connect to the server.
/Formazione/admin/sendemail.asp, line 66

	' ****** CDOSYS *****
	case "CDOSYS"
	
	' Crea l'oggetto CDOSYS
	Set objMail = Server.CreateObject("CDO.Message")
   	Set objMailConfig = Server.CreateObject ("CDO.Configuration")

   	' Proprietà di invio
	with objMailConfig
       	' SMTP mail server"
       	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "*****.hcrema.it"
       	' SMTP port
       	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = ***
       	' CDO port
       	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       	' Timeout
       	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
   		.Fields.Update
	end with

	' Configurazione CDOSYS
	Set objMail.Configuration = objMailConfig

	with objMail

		' Mittente
		.From = fromName & " <" & fromEmail & ">"
		' Destinatario
		.To = toName & " <" & toEmail & ">"

		' Oggetto
		.Subject = emailSubject
		' Corpo dell'email
		if isHTML then
			.HTMLBody = Replace(strBodyFormat, "$body$", emailBody & strBodySignature)
		else
			.TextBody = emailBody & strBodySignature
		end if

		' Invia l'email
		if Len(emailServer) > 0 then
			.Send 
			blnSent = true
		end if

	end with
	
	Set objMail = Nothing
	Set objMailConfig = Nothing

La riga in questione è quella ch ho messo grande...
Ho provato anche a tirare via tutte le questioni riguardanti alla configurazione, solo che mi ese un'altro erro quello relativo al SendMail.
Come posso risolvere questo problema?

[agenti]

hai inserito l'include alle librerie prima dello script :

[dtomasini]

Scusa ma non ho capito.
Ho inserito l'include al file sendmail.asp
quelle due righe non so cosa siano....
Evo inserirle dove? nel file sendmail.asp o nel file dove faccio inviare l'email?

[agenti]

nello script che elabora l'invio.