non riesco ad inviare email con CDOSYS sia senza configurazione SMTP che
configurandolo.Ho verificato e l'oggetto è installato.Il server del dominio
www.tabaccheriarizzi.it è windows 2003.
In entrambi i casi ho l'errore alla riga "objMail.Send()"
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
Può essere che il mantainer debba dare altre autorizzazioni o privilegi?
Il codice ASP con configurazione SMTP è il seguente:
(la vera password non è citata, i dati sono corretti)
<%
' imposto la configurazione
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
' richiedo autenticazione
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' username e password
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"enr...@tabaccheriarizzi.it"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.tabaccheriarizzi.it"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' invio dell'e-mail
objMail.To = "tsco...@tiscali.it"
objMail.From = "enr...@tabaccheriarizzi.it"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Con autenticazione!"
objMail.Send()
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
%>
Grazie per l'attenzione.
T.Scolari
sei sicura che l'smtp server
sia configurato per richiedere
l'autenticazione ?
--
Edoardo Benussi - e...@mvps.org
Microsoft® MVP - Windows Server
http://mvp.support.microsoft.com
Script d'esempio già provati:
<%
Dim miaMail
// stringa HTML da inviare
strHTML = "<html><body>"
strHTML = strHTML & "<p>Un nuovo acquisto è stato effettuato on line dal
sito</p>"
strHTML = strHTML & "<p>I dati del cliente:</p>"
strHTML = strHTML & "<b>Numero ordine:</b> "& Request.Form("NUMORD")
strHTML = strHTML & "<br><b>Importo</b> "& Request.Form("IMPORTO")
strHTML = strHTML & "<b>Nome:</b> "& Request.Form("NOME")
strHTML = strHTML & "<br><b>Cognome:</b> "& Request.Form("COGNOME")
strHTML = strHTML & "<br><b>Indirizzo:</b> "& Request.Form("INDIRIZZO")
strHTML = strHTML & "<br><b>Città:</b> "& Request.Form("CITTA")
strHTML = strHTML & "<br><b>Provincia:</b> "& Request.Form("PROVINCIA")
strHTML = strHTML & "<br><b>C.A.P:</b> "& Request.Form("CAP")
strHTML = strHTML & "<br><b>Telefono:</b> "& Request.Form("TELEFONO")
strHTML = strHTML & "<p>NOTA: prima di procedere con la spedizione
controllare il Backoffice Bankpass!</p>"
strHTML = strHTML & "</body></html>"
Set miaMail = Server.CreateObject("CDO.Message")
miaMail.From = "in...@tabaccheriarizzi.it"
miaMail.To = "tat...@graficaeweb.biz"
miaMail.Subject = "Nuovo acquisto da sito web"
miaMail.HTMLBody = strHTML
miaMail.Send()
Set miaMail = Nothing
%>
oppure
<%
Dim miaMail
// stringa HTML da inviare
strHTML = "<html><body>"
strHTML = strHTML & "<p>Un nuovo acquisto è stato effettuato on line dal
sito</p>"
strHTML = strHTML & "<p>I dati del cliente:</p>"
strHTML = strHTML & "<b>Numero ordine:</b> "& Request.Form("NUMORD")
strHTML = strHTML & "<br><b>Importo</b> "& Request.Form("IMPORTO")
strHTML = strHTML & "<b>Nome:</b> "& Request.Form("NOME")
strHTML = strHTML & "<br><b>Cognome:</b> "& Request.Form("COGNOME")
strHTML = strHTML & "<br><b>Indirizzo:</b> "& Request.Form("INDIRIZZO")
strHTML = strHTML & "<br><b>Città:</b> "& Request.Form("CITTA")
strHTML = strHTML & "<br><b>Provincia:</b> "& Request.Form("PROVINCIA")
strHTML = strHTML & "<br><b>C.A.P:</b> "& Request.Form("CAP")
strHTML = strHTML & "<br><b>Telefono:</b> "& Request.Form("TELEFONO")
strHTML = strHTML & "<p>NOTA: prima di procedere con la spedizione
controllare il Backoffice Bankpass!</p>"
strHTML = strHTML & "</body></html>"
Set miaMail =CreateObject("CDO.Message")
miaMail.From = "in...@tabaccheriarizzi.it"
miaMail.To = "tat...@graficaeweb.biz"
miaMail.Subject = "Nuovo acquisto da sito web"
miaMail.HTMLBody = strHTML
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.tabaccheriarizzi.it"
'Server port
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
miaMail.Configuration.Fields.Update
miaMail.Send()
set miaMail=nothing
%>
Grazie
--
T.Scolari
"Edoardo Benussi [MVP]" ha scritto:
non è un problema di codice,
come puoi vedere qua
http://www.systemwebmail.com/faq/4.2.2.aspx
anche se l'esempio si riferisce asp.net
l'errore restituito riguarda
proprio il fatto che il server smtp precisato
non ci sia o non sia in esecuzione.
riassumendo quindi
1) il server smtp dev'essere sempre specificato;
2) ho appena verificato con telnet
che il server smtp ti fa accedere senza
autenticazione ma per esserne sicuri
prova ad inviare una mail mettendo
sul tuo account di posta quel smtp server.
ciao.
>2) ho appena verificato con telnet
>che il server smtp ti fa accedere senza
>autenticazione ma per esserne sicuri
>prova ad inviare una mail mettendo
>sul tuo account di posta quel smtp server.
Che il server accetti connessioni non autenticate non vuol dire che non
supporti l'autenticazione. Di fatto, io ottengo:
220 w503.widhost.net ESMTP MailEnable Service, Version: 1.8-- ready at...
ehlo
250-w503.widhost.net [151.38.10.225], this server offers 4 extensions
250-AUTH LOGIN
250-SIZE 15360000
250-HELP
250 AUTH=LOGIN
quit
221 Service closing transmission channel
Che, per quello che posso capire, mi pare che voglia dire che almeno un
meccanismo di autenticazione è supportato.
Ciao.
nello script senza autenticazione ho provato a cambiare il nome dell'SMTP
server in localhost o 127.0.0.1 (con gli altri citati in
http://www.systemwebmail.com/faq/4.2.2.aspx ho ancora errore): in effetti non
ho più errori, ma la mail non viene inviata.
ecco lo script:
<%
Dim miaMail
// stringa HTML da inviare
strHTML = "<html><body>"
strHTML = strHTML & "<p>Un nuovo acquisto è stato effettuato on line dal
sito</p>"
strHTML = strHTML & "<p>I dati del cliente:</p>"
strHTML = strHTML & "<b>Numero ordine:</b> "& Request.Form("NUMORD")
strHTML = strHTML & "<br><b>Importo</b> "& Request.Form("IMPORTO")
strHTML = strHTML & "<b>Nome:</b> "& Request.Form("NOME")
strHTML = strHTML & "<br><b>Cognome:</b> "& Request.Form("COGNOME")
strHTML = strHTML & "<br><b>Indirizzo:</b> "& Request.Form("INDIRIZZO")
strHTML = strHTML & "<br><b>Città:</b> "& Request.Form("CITTA")
strHTML = strHTML & "<br><b>Provincia:</b> "& Request.Form("PROVINCIA")
strHTML = strHTML & "<br><b>C.A.P:</b> "& Request.Form("CAP")
strHTML = strHTML & "<br><b>Telefono:</b> "& Request.Form("TELEFONO")
strHTML = strHTML & "<p>NOTA: prima di procedere con la spedizione
controllare il Backoffice Bankpass!</p>"
strHTML = strHTML & "</body></html>"
Set miaMail =CreateObject("CDO.Message")
miaMail.From = "in...@tabaccheriarizzi.it"
miaMail.To = "tatiana...@tiscali.it"
miaMail.Subject = "Nuovo acquisto da sito web"
miaMail.HTMLBody = strHTML
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="localhost"
'Server port
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
miaMail.Configuration.Fields.Update
miaMail.Send()
set miaMail=nothing
%>
Invece nello script di autenticazione, sostituendo il nome del server SMTP
con localhost o altri nomi dà ancora lo stesso errore
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
sempre alla linea di miaMail.Send()
<%
' imposto la configurazione
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
' richiedo autenticazione
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' username e password
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"enr...@tabaccheriarizzi.it"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"localhost"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' invio dell'e-mail
objMail.To = "tsco...@tiscali.it"
objMail.From = "enr...@tabaccheriarizzi.it"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Con autenticazione!"
objMail.Send()
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
%>
Ora come posso procedere?
Grazie.
--
T.Scolari
> Che il server accetti connessioni non autenticate non vuol dire che
> non supporti l'autenticazione.
sono d'accordo con la tua frase :-)
il problema è un altro: quello che conta
non è se il server smtp supporti o meno
l'autenticazione ma come effettivamente
il server smtp sia configurato per
accettare le connessioni e a chi sia
consentito il relay tramite quel smtp server.
ho fatto una prova ad inviare
una mail mediante comandi smtp
ed affettivamente viene richiesta l'autenticazione
per il relay.
a questo punto...
> Set Fields = Config.Fields
> ' richiedo autenticazione
> Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
> = 1
>
> ' username e password
> Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
> = "enr...@tabaccheriarizzi.it"
>
> Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
> = "password"
>
> ' server
> Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> = "localhost"
qui localhost non ci può stare
nè nient'altro che non sia "mail.tabaccheriarizzi.it".
per quanto riguarda le credenziali
di accesso a quella casella mail sei sicura
che siano corrette ?
puoi provare a metterle in un account di olexp
e verificare che tu possa inviare le mail
tramite quel smtp server ?
sì, me le ha date il cliente, sono quelle che usa su outlook
"puoi provare a metterle in un account di olexp
e verificare che tu possa inviare le mail
tramite quel smtp server ?"
Ma in questo caso l'smtp in uscita non funziona sicuramente, perchè devo
usare quello del mio provider.
Invece sono entrata in plesk http://webmail.tabaccheriarizzi.it con i
parametri dell'account(sono corretti) ed ho provato da lì ad inviare
email.Ebbene, nemmeno da qui si inviano.Credo a questo punto sia bloccato
l'invio.
--
T.Scolari
"Edoardo Benussi [MVP]" ha scritto:
> Tatiana Scolari <Tatiana...@discussions.microsoft.com> wrote in message,
io ho provato quell'smtp
in anonimo e ho ricevuto
l'avviso di invio rifiutato
ma la mail č partita lo stesso,
non riesco a capire,
dovrei vedere quel smtp server.
--
Edoardo Benussi - e...@mvps.org
MicrosoftŽ MVP - Windows Server
http://mvp.support.microsoft.com
Intanto molte grazie per l'aiuto.
T.Scolari.
"Edoardo Benussi [MVP]" ha scritto:
> Tatiana Scolari wrote:
> > "per quanto riguarda le credenziali
> > di accesso a quella casella mail sei sicura
> > che siano corrette ?"
> >
> > sì, me le ha date il cliente, sono quelle che usa su outlook
> >
> > "puoi provare a metterle in un account di olexp
> > e verificare che tu possa inviare le mail
> > tramite quel smtp server ?"
> > Ma in questo caso l'smtp in uscita non funziona sicuramente, perchè
> > devo usare quello del mio provider.
> > Invece sono entrata in plesk http://webmail.tabaccheriarizzi.it con i
> > parametri dell'account(sono corretti) ed ho provato da lì ad inviare
> > email.Ebbene, nemmeno da qui si inviano.Credo a questo punto sia
> > bloccato l'invio.
>
> io ho provato quell'smtp
> in anonimo e ho ricevuto
> l'avviso di invio rifiutato
> ma la mail è partita lo stesso,
> non riesco a capire,
> dovrei vedere quel smtp server.
>
> --
> Edoardo Benussi - e...@mvps.org
> Microsoft® MVP - Windows Server
> http://mvp.support.microsoft.com
>
>
>
te l'ho detto che è arrivata
anche a me quella mandata in anonimo.
è il server smtp che ha qualche problemino.
ciao.
<%
Dim miaMail
// stringa HTML da inviare
strHTML = "<html><body>"
strHTML = strHTML & "<br>Sig/Sig.ra"& Request.Form("cognome")
strHTML = strHTML & "<p>la ringraziamo per l'interesse dimostrato verso i
prodotti di Tabaccheria Rizzi.<br><br>Ecco il preventivo da lei
richiesto:</p>"
strHTML = strHTML & "<b>Articolo:</b> "& Request.Form("articolo1")
strHTML = strHTML & " <b>prezzo in euro:</b> "& Request.Form("prezzo1")
strHTML = strHTML & "<br><b>Articolo:</b> "& Request.Form("articolo2")
strHTML = strHTML & " <b>prezzo in euro:</b> "& Request.Form("prezzo2")
strHTML = strHTML & "<br><b>Articolo:</b> "& Request.Form("articolo3")
strHTML = strHTML & " <b>prezzo in euro:</b> "& Request.Form("prezzo3")
strHTML = strHTML & "<br><b>Totale preventivo: euro</b> "&
Request.Form("totale")
strHTML = strHTML & "<br><br><b>Note:</b> "& Request.Form("note")
strHTML = strHTML & "<p>Per confermarci il presente preventivo basta
rispondere a questa mail indicando conferma.<br>Successivamente,sempre via
mail, Le invieremo numero d'ordine,importo esatto e <br>indirizzo web dove
acquistare on line il prodotto (con carta di credito o Bankpass).<br>Al
termine della transazione d'acquisto le chiederemo di fornirci il suo
indirizzo<br> per la spedizione del prodotto acquistato. </p>"
strHTML = strHTML & "<p>Cordiali saluti.<br> Tabaccheria Rizzi</p>"
strHTML = strHTML & "</body></html>"
Set miaMail =CreateObject("CDO.Message")
miaMail.From = "in...@tabaccheriarizzi.it"
miaMail.To = Request.Form("email")
miaMail.Bcc = "in...@tabaccheriarizzi.it"
miaMail.Subject = "Preventivo Tabaccheria Rizzi"
miaMail.HTMLBody = strHTML
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="localhost"
'Server port
miaMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
miaMail.Configuration.Fields.Update
miaMail.Send()
set miaMail=nothing
%>
Grazie.
T.Scolari