Forum Noamweb
Non sei collegato [Login - Registrati]
Vai alla fine

Versione per la stampa  
Autore: Oggetto: invio mail con CDOSYS
yellowshark
vengo ogni tanto
**




Risposte: 14
Registrato il: 24/8/2005
Utente offline


[*] Inviato il 25/3/2006 at 16:28
invio mail con CDOSYS


Salve,
per inviare una mail dal server sto utilizzando uno script ricavato dal forum e modificato secondo i consigli che nello stesso forum alcuni utenti hanno dato.
Nonostante svariati tentativi con script diversi l'invio non avviene.
Con quest'ultimo nonho nessun errore ma la mail non parte.

---------------------------------------------------------------------------------

Set Config = Server.CreateObject("CDO.Configuration")

Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com"
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contatti@miosito.com"
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'Update configuration
Config.Fields.Update

Set Mail = Server.CreateObject("CDO.Message")
Set Mail.Configuration = Config

mittente = "contatti@miosito.com"
destinatario = "mionome@tiscali.it"
oggetto = "test di invio con CDOSYS"
messaggio = "corpo del messaggio"

Mail.From = mittente 'Specificare il nome del mittente
Mail.to = destinatario 'Il messaggio di conferma andrà anche al cliente che compila il form
Mail.Subject = "Oggetto"
Mail.TextBody = messaggio

On Error Resume Next

Mail.Send
If Err <> 0 Then
Response.write email
Response.Write "Ci sono stati degli errori: " & Err.Description
End IF

---------------------------------------------------------------------------------

Da notare che utilizzando il test scaricabile gratuitamente che sul forum indicate il risultato è questo:

---------------------------------------------------------------------------------

CDOSYS Error:
Error Number: -2147220977
Error Source:
Error Description: The server rejected one or more recipient addresses. The server response was: 503 This mail server requires authentication. Please check your mail client settings.

---------------------------------------------------------------------------------

Sapreste dirmi da cosa dipende il mio problema?

Il dominio sul quale non funziona è www.riccardozappawebconcert.com

Grazie. :umm:
View User's Profile Scorri tutte le risposte per utente
Shazan
Super Amministratore
*********


Avatar


Risposte: 1430
Registrato il: 5/10/2004
Utente offline


[*] Inviato il 25/3/2006 at 22:32


Il server SMTP da utilizzare sui piani Windows con pannello Plesk è "localhost" e non mail.nomedominio.

:saluto:




View User's Profile Visita la pagina dell utente Scorri tutte le risposte per utente
yellowshark
vengo ogni tanto
**




Risposte: 14
Registrato il: 24/8/2005
Utente offline


[*] Inviato il 26/3/2006 at 12:53


Purtroppo il problema non è stato risolto.
Ora seguendo i tuoi consigli l mio script si presenta così:

------------------------------------------------------------------------
Set Config = Server.CreateObject("CDO.Configuration")

Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contatti@miosito.com"
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Config.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'Update configuration
Config.Fields.Update

Set Mail = Server.CreateObject("CDO.Message")
Set Mail.Configuration = Config

mittente = "contatti@miosito.com"
destinatario = "mionome@tiscali.it"
oggetto = "test di invio con CDOSYS"
messaggio = "corpo del messaggio"

Mail.From = mittente 'Specificare il nome del mittente
Mail.to = destinatario 'Il messaggio di conferma andrà anche al cliente che compila il form
Mail.Subject = "Oggetto"
Mail.TextBody = messaggio

On Error Resume Next

Mail.Send
If Err <> 0 Then
Response.write email
Response.Write "Ci sono stati degli errori: " & Err.Description
End IF
------------------------------------------------------------------------

inoltre il risutato non cambia se commento le due righe di configurazione inerenti l'autenticazione tramite username e password.
Ho provato però a commentare la riga

On Error Resume Next

e l'errore che mi da è il seguente:

----------------------------
error '80040211'
----------------------------

Qualche altro consiglio?
Grazie mille.
View User's Profile Scorri tutte le risposte per utente
Rossoweb
vengo ogni tanto
**


Avatar


Risposte: 21
Registrato il: 6/10/2004
Utente offline


[*] Inviato il 26/3/2006 at 18:15


Sarà destino, ma mi ritrovo sul forum sempre quando si parla di CDOSYS :splendente:

Purtroppo ho notato che il codice da me postato in precedenza ritorna degli errori, almeno sul server Aladar.
Prova così, è ridotto all'osso:


Codice:
'creo l'oggetto CDOSYS set mailer = createobject("CDO.Message") mailer.From = request.Form("mail") mailer.to = "info@rossoweb.org" mailer.subject = "Modulo di contatto dal sito Rossoweb.org" & chr(13) & chr(10) mailer.TextBody = msg with mailer.Configuration .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tuodomino.xxx" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields.Update end with 'Inviamo la mail! mailer.send set mailer = nothing


Ho fatto una verifica adesso con successo proprio adesso.
Ciauz:saluto:




View User's Profile Visita la pagina dell utente Scorri tutte le risposte per utente
Rossoweb
vengo ogni tanto
**


Avatar


Risposte: 21
Registrato il: 6/10/2004
Utente offline


[*] Inviato il 26/3/2006 at 18:22


Quota:
Originally posted by Shazan
Il server SMTP da utilizzare sui piani Windows con pannello Plesk è "localhost" e non mail.nomedominio.

:saluto:


Ciao Shazan,
come server SMTP ho impostato mail.miodomio.xxx e funziona regolarmente!!! Visto che funziona non penso che sia un problema!!!

Ciauz:saluto:




View User's Profile Visita la pagina dell utente Scorri tutte le risposte per utente
yellowshark
vengo ogni tanto
**




Risposte: 14
Registrato il: 24/8/2005
Utente offline


[*] Inviato il 26/3/2006 at 19:54


Grazie mille a tutti e due, il tuo script funziona Rossoweb, ma almeno nel mio caso occorre dichiarare "localhost" come smtp, così come suggerito da Shazan.

Grazie ancora a entrambi :appaluso:
View User's Profile Scorri tutte le risposte per utente

  Vai all'inizio

Powered by XMB 1.9.11
XMB Forum Software © 2001-2012 The XMB Group