[Asp 3.0] Invio mail

[Fractals87]

Ciao a tutti...
Ho la seguente configurazione server iis7 su windows server 2008 r2

sto tentando di inviare mail con asp 3.0 CDO ma continua a darmi errore dicendomi che la configrazione non è valida le go tentate tutti... il server è esterno

        
Dim config, mail          
Set config  = Server.CreateObject("CDO.Configuration") 
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.DOMINIO.it"
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1         
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "UTENTE"
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PWD"
config.Fields.Update
Set mail = Server.CreateObject("CDO.Message")
With mail
             .From = "MAIL"
             .Sender = "MAIL"
             .To = "DESTINATATIO"
             .Cc = "" 
             .Bcc = ""
             .Subject = "Oggetto della mail..."
             .TextBody = "Corpo della mail..."
             .Send        
End With          
Set config  = Nothing         
Set mail = Nothing         
 Response.Write "Email inviata con successo!"

le cose scritte in maiuscolo vengono sostituite con i parametri di cui sono sicuro....
il server a cui tendo di accedere è aruba

[Roby_72]

Hai provato a verificare la rispondenza con il loro vademecum?

http://vademecum.aruba.it/start/cont...ulo_cdosys.asp

Roby

[Fractals87]

hai ragione non ho controllato e mi scuso per ho provato ora a inserirlo

        invioA = "DESTINATARIO"

        invioDa = "MITTENTE"



        DIM iMsg, Flds, iConf

        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields

        Flds(cdoSendUsingMethod) = cdoSendUsingPort
        Flds(cdoSMTPServer) = "smtp.DOMINIO.it" 
        Flds(cdoSMTPServerPort) = 25
        Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
        Flds.Update

        With iMsg
        Set .Configuration = iConf
            .To = invioA
            .From = "TEST"
            .Sender = invioDa
            .Subject = "Contatto dal TEST."
            .TextBody = "TEST"
            .Send
        End With

Con il suddetto codice mi ritorna questo errore, ma non mi sembra abbia molto senso


ADODB.Fields</font> <font face="Arial" size=2>error '800a0bb9'</font>



<font face="Arial" size=2>Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.</font>

Grazie mille

[Roby_72]

Non riguarda questo pezzo di script.

Roby

[Fractals87]

l'errore mi ritorna sulla riga 34 che equivale a questa

Flds(cdoSendUsingMethod) = cdoSendUsingPort

ho provato anche a mettere i metadata



Come da vademecum o a referenziare la dll pensando magari che fossere costanti non valorizzate



ho provato anche a sostituirle con il rispettivo valore

cdoSendUsingPort--->2
cdoAnonymous ---->0

Ma nulla sempre lo stesso errore

[Roby_72]

I meta data vanno in cima alla pagina.

Roby

[Fractals87]

Sto per diventare il tuo incubo avevo sbagliato a inserire i metadata.
Ora però mi ritorna un errore diverso

<font face="Arial" size=2>error '8004020f'</font>



<font face="Arial" size=2>, line 49</font>

e corrisponde a questa linea

.Send

[Roby_72]

Ma scrivilo tutto l'errore e senza l'HTML...
Cerca su Google circa il codice di errore:
http://www.google.it/search?q=cdosys...ient=firefox-a

Roby

[Fractals87]

OOOOOOk dopo questa stressante pressione (ti ringrazio) infinitamente Roby_72
il problema era relativo al tipo di autenticazione previsto in quanto non è supportata l'autenticazione anonyma ma bisogna impostare i parametri di accesso

 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")  = 1
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "UTENTE"
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "PWD"

Lascio la nota di risoluzione ai porteri che hanno gli stessi problemi.

Ciao a tutti e grazie ancora
Paolo