Codice per invio mail con CDOsys

[chattago2002]

Salve ragazzi.
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/in...=24&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





<%

'
'

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


%>

[Roby_72]

Devi togliere la gestione degli errori data da

On Error Resume Next

altrimenti non si saprà mai perché non funziona.

Roby

[chattago2002]

ho tolto la gestione degli errori e mi dà questo errore:

CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/send.asp, line 48

dove alla linea 48 del file c'è il ".send". Cosa può essere?

[Roby_72]

Prova a togliere:

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


e questo:
Set .Configuration = objConfig 'crea il messaggio

Roby

[chattago2002]

eliminando le righe indicate ricevo l'errore sempre su ".send"

CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/send.asp, line 50

non credo che queste righe debbano essere tolte ma allo stesso tempo non capisco il perchè non funzioni.

[Roby_72]

vediamo tutto lo script usato finora.

Roby

[chattago2002]

ri-posto il codice utilizzato e che restituisce il precedente errore


<%

'
'

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 = "diegoca116@gmail.com"
.From = "diego.basso@primisugoogle.org"
.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

'response.Redirect("index.htm")

'Definiamo i diversi attributi della nostra mail
'objMail.From = request("email")
'objMail.To = "diegoca116@gmail.com"
'objMail.Subject = "Email dal sito HOTEL ANDALO. Mittente:" & request("nome") & " " & request("cognome")

'Se il testo è in Html useremo HTMLBody al posto di TextBody
'objMail.TextBody = request("messaggio")

'Stabiliamo il livello di importanza (1 o 2)
'objMail.Fields("urn:schemas:httpmail:importance") .Value = 2
'objMail.Fields.Update()

'Inviamo la mail!
'objMail.Send()

'Eliminiamo l'oggetto...
'Set objMail = Nothing
%>

intendevi dire questo roby? dovevo ripostare il codice? se non era questo che intendevi mi scuso ma non ho capito

[Roby_72]

Si è questo... prova a togliere tutte quelle costanti che hanno sopra...

Roby

[chattago2002]

ciao roby...
anke cancellando tutte le costanti sopra il risultato non cambia...

CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/send.asp, line 50

mi sto scervellando da 1 settimana senza trovare la soluzione.

[chattago2002]

Ciao Roby.

Nel frattempo ho anche girato per siti e forum ed ho provato altre soluzioni, senza però che nessuna portasse il risultato sperato.

Ti linko gli indirizzi delle pagine e dei thread che ho letto:

http://forum.html.it/forum/showthrea...=&pagenumber=1

http://forum.html.it/forum/showthrea...ostid=12720808

http://asp.weppos.it/asp/scripts/oggetto-cdosys


Sono disperato. non so veramente cosa fare per sbloccare questa situazione.