chattago2002
25-11-2009, 10:33
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 = "[email protected]"
.From = "[email protected]"
.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
%>
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 = "[email protected]"
.From = "[email protected]"
.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
%>