2 messaggi dal 27 luglio 2016
salve ragazzi anticipo che sono nuovo nel forum , quindi perdonatemi se sbaglio qualcosa.
Volevo porvi un quesito, se provo a lanciare questo form via email con asp mi ritorna il seguente errore : CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

Siccome non ho la benchè minima idea di come funziona questo linguaggio, qualcuno mi saprebbe aiutare se posto il codice.
Il tutto gira sul server Aruba.



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If



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


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


destinatario = "ngioletto.92@hotmail.it"

messaggio = "Nome: " & Request.Form("Nome") & vbCrLf &_
"Cognome: " & Request.Form("Cognome") & vbCrLf &_
"E-mail : " & Request.Form("Mail") & vbCrLf &_
"Telefono : " & Request.Form("Telefono") & vbCrLf &_
"Fax : " & Request.Form("Fax") & vbCrLf &_
"Cellulare : " & Request.Form("Cellulare") & vbCrLf &_
"Indirizzo : " & Request.Form("Indirizzo") & vbCrLf &_
"Comune : " & Request.Form("Comune") & vbCrLf &_
"Cap : " & Request.Form("Cap") & vbCrLf &_
"Provincia : " & Request.Form("Provincia") & vbCrLf &_
"Dal giorno : " & Request.Form("DalGiorno") & vbCrLf &_
"del mese : " & Request.Form("DalMese") & vbCrLf &_
"Al giorno : " & Request.Form("AlGiorno") & vbCrLf &_
"del mese : " & Request.Form("AlMese") & vbCrLf &_
"Adulti : " & Request.Form("Adulti") & vbCrLf &_
"Bambini : " & Request.Form("Bambini") & vbCrLf &_
"Piazzola : " & Request.Form("Piazzola") & vbCrLf &_
"Mezza piazzola : " & Request.Form("Mezzapiazzola") & vbCrLf &_
"Case mobili : " & Request.Form("Casemobili") & vbCrLf &_
"Seconda auto : " & Request.Form("SecondaAuto") & vbCrLf &_
"Aria condizionata : " & Request.Form("AriaCondizionata") & vbCrLf &_
"Nolo biancheria : " & Request.Form("Biancheria") & vbCrLf &_
"Ulteriori richieste : " & Request.Form("Richieste") & vbCrLf &_
"Privacy: " & Request.Form("privacy") & vbCrLf
messaggio = messaggio & "Informazioni: " & Request.Form("info")& vbCrLf & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = destinatario
Mail.From = Request.Form("Mail")
Mail.Subject = "Richiesta informazioni/prenotazione"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing



%>


Un grazie infinito a chi mi riesce a risolvere questo problema che suppongo per voi esperti sia un gioco da ragazzi
Modificato da ngioletto il 27 luglio 2016 21.58 -
2 messaggi dal 27 luglio 2016
ngioletto ha scritto:
salve ragazzi anticipo che sono nuovo nel forum , quindi perdonatemi se sbaglio qualcosa.
Volevo porvi un quesito, se provo a lanciare questo form via email con asp mi ritorna il seguente errore : CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

Siccome non ho la benchè minima idea di come funziona questo linguaggio, qualcuno mi saprebbe aiutare se posto il codice.
Il tutto gira sul server Aruba.



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If



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


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


destinatario = "ngioletto.92@hotmail.it"

messaggio = "Nome: " & Request.Form("Nome") & vbCrLf &_
"Cognome: " & Request.Form("Cognome") & vbCrLf &_
"E-mail : " & Request.Form("Mail") & vbCrLf &_
"Telefono : " & Request.Form("Telefono") & vbCrLf &_
"Fax : " & Request.Form("Fax") & vbCrLf &_
"Cellulare : " & Request.Form("Cellulare") & vbCrLf &_
"Indirizzo : " & Request.Form("Indirizzo") & vbCrLf &_
"Comune : " & Request.Form("Comune") & vbCrLf &_
"Cap : " & Request.Form("Cap") & vbCrLf &_
"Provincia : " & Request.Form("Provincia") & vbCrLf &_
"Dal giorno : " & Request.Form("DalGiorno") & vbCrLf &_
"del mese : " & Request.Form("DalMese") & vbCrLf &_
"Al giorno : " & Request.Form("AlGiorno") & vbCrLf &_
"del mese : " & Request.Form("AlMese") & vbCrLf &_
"Adulti : " & Request.Form("Adulti") & vbCrLf &_
"Bambini : " & Request.Form("Bambini") & vbCrLf &_
"Piazzola : " & Request.Form("Piazzola") & vbCrLf &_
"Mezza piazzola : " & Request.Form("Mezzapiazzola") & vbCrLf &_
"Case mobili : " & Request.Form("Casemobili") & vbCrLf &_
"Seconda auto : " & Request.Form("SecondaAuto") & vbCrLf &_
"Aria condizionata : " & Request.Form("AriaCondizionata") & vbCrLf &_
"Nolo biancheria : " & Request.Form("Biancheria") & vbCrLf &_
"Ulteriori richieste : " & Request.Form("Richieste") & vbCrLf &_
"Privacy: " & Request.Form("privacy") & vbCrLf
messaggio = messaggio & "Informazioni: " & Request.Form("info")& vbCrLf & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = destinatario
Mail.From = Request.Form("Mail")
Mail.Subject = "Richiesta informazioni/prenotazione"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing



%>


Un grazie infinito a chi mi riesce a risolvere questo problema che suppongo per voi esperti sia un gioco da ragazzi
Modificato da ngioletto il 27 luglio 2016 21.58 -
19 messaggi dal 21 dicembre 2006
La configurazione tipo su aruba la trovi qui

http://kb.arubabusiness.it/servizi/hosting/web-ftp/windows/invio-email-da-script-asp-aspnet.aspx

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.