[ASP] Problema con invio email tramite CDOsys

[chattago2002]

Ciao a tutti.

Inizio la mia permanenza su questo forum con un quesito. Avrei bisogno di una mano per il codice asp che permetta l'invio di email da un sito tramite il componente CDOsys.

Il provider utilizzato è "Dominio Fai Da Te" e sul loro "portale" di assistenza clienti hanno anche codice da utilizzare per questa funzione(a questo indirizzo: http://support.dominiofaidate.com/i...&artlang=it).

Purtroppo non funziona con questo codice perchè mi restituisce un errore. Con le dovute modifiche non ottengo più l'errore ma il messaggio non parte ugualmente.

Potete aiutarmi?

vi allego il nuovo codice che utilizzo




<%

'<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
'<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"


' INVIO EMAIL TRAMITE IL COMPONENETE CDOSYS

Dim objMessage, objConfig 'Crea gli oggetti per il messaggio e per la configurazione
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Configurazione server smtp
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "localhost"
objConfig.Fields(cdoSMTPServerPort) = 25

'Aggiornamento configurazione
objConfig.Fields.Update

with objMessage

Set .Configuration = objConfig 'crea il messaggio

.To = "destinatario@provider.xyz"
.From = "mittente@provider.xyz"
.ReplyTo = request("email")
.Subject = "Invio Email dal sito"
.TextBody = "messaggio in formato testuale"

' gestione errori
On Error Resume Next

' Send the CDOSYS Message
.Send

end with

Set objMessage = Nothing
Set objConfig = Nothing

'visualizza un messaggio di ok in caso di invio senza problemi
'altrimenti visualizza il messaggio di errore
If Err.Number = 0 Then
Response.Write "Il messaggio è stato inviato; nessun errore!"
Else
Response.Write Err.Description
Response.Write Err.Number = 0
End If

On Error Goto 0


%>

[chattago2002]

nessuno che può aiutarmi?

[Kralizek]

non tocco classic asp da ere geologiche, ma cmq nel topic manca una cosa fondamentale: l'errore.

[chattago2002]

ciao Kralizek,
purtroppo con il codice che ho postato non ricevo errori.

Il risultato è una pagina bianca (l'url è quello relativo alla pagina asp contenente il codice postato). Ovviamente il messaggio non viene spedito nonostante non venga restituito alcun errore.

Cosa può essere? è diverso tempo che sto impazzendo su questo problema....