cdosys e problema di invio su 2003 server

[M.Solazzi]

ho un sito web su un pc con windows 2003 server, sto utilizzando uno script in asp per inviare email con CDOSYS, lo script prosegue senza errori ma l'email non viene inviata. Mi sono accorto che l'email rimane nella cartella PICKUP del server.

Immagino che il problema sia nel server SMTP che ho sul server in quanto non utilizzo il servizio SMTP di IIS(stoppato) ma di MailEnable.

lo script che uso è il seguente :
'Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

'Dimensiona l'oggetto email
Set objMail = CreateObject("CDO.Message")


'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

'Imposta le configurazioni
With objConfig

'Server SMTP di uscita
'Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "smtp.miodominio.it"

'Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25

'Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/send using") = 2

'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60

'ATTENZIONE: a causa delle impostazioni
'di formattazione i campi risultano spezzati dopo al
'valore smtp. Ricordarsi di rimuovere gli spazi visibili!

.Fields.Update
End With

'Assegna le configurazioni
Set objMail.Configuration = objConfig


'Assegna all'oggetto le proprietà necessarie

'Mittente dell'email (indirizzo)
objMail.From = "prova@miodominio.it"

'Destinatario dell'email (indirizzo)
objMail.To = "info@miodominio.it"

'Cc e Bcc (opzionale)
'objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx"
'objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx"

'Oggetto dell'email
objMail.Subject = "Oggetto della mail"

'Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.Update()

'Allegare un file
'objMail.AddAttachment("d:\inetpub\webs\tuodominio com\file.zi p")

'Corpo del messaggio
objMail.TextBody = "Testo della mail" 'Formato Testo
objMail.HTMLBody = "Testo della mail" 'Formato HTML

'Invia l'email
objMail.Send()

'Distruggi l'oggetto
Set objMail = Nothing
%>


il problema è nel server SMTP MAILENABLE o nelle impostazioni SMTP di CDOSYS?

grazie

[kluster]

.Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "smtp.miodominio.it"
va sostituito con il tuo dominio
per fare un esempio sotto libero è mail.libero.it
sotto tiscali smtp.tiscalinet.it
etc

[M.Solazzi]

lo sapevo, nell'esempio ho messo mio dominio... ma realmente è quello corretto

[kluster]

hai bisogno di autenticazione da parte del server?
se si
aggiungi

.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[USER ID]" 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[PASSWORD]"

[M.Solazzi]

ho attivato sia il server SMTP di Mailenable sia il servizio SMTP di IIS (però su una porta diversa) e adesso spedisce, non sapevo che CDOSYS necessitava per forza del server SMTP di IIS