- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Un gradito aiuto....
-
Un gradito aiuto....
nel mio sito ho incluso in una pagina il seguente comando:
Set Mailer = Server.CreateObject("CDONTS.NewMail")
il server che usa il sito ha installato windows 2003 server
Lo scopo è quello di creare delle email e inviarle in maniera automatica dal sito (Tipo eccomers)
il comado non viene riconosciuto (l'oggetto non viene creato)
Mi è stato detto che con questo tipo di SO è necessario usare CDOSYS ma non so come fare. (non uso ASPnet ma il vecchio buon ASP)
Qualcuno può aiutarmi????
Grazie
-
Ciao ecco il codice
Dim IConf Dim Flds 'Configurazione Set iConf = Server.CreateObject ("CDO.Configuration") 'Campi Set Flds = IConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp, ad esempio smtp.miosito.ext" Flds.Update Set ObjNewMail = Server.CreateObject("CDO.Message") Set ObjNewMail.Configuration = iConf ObjNewMail.To = "e-mail destinatario" ObjNewMail.From = "e-mail mittente" ObjNewMail.Subject = "oggetto" ObjNewMail.HtmlBody = "Testo per email in html" 'Se vuoi usare il testo normale: 'ObjNewMail.TextBody = "Testo per email non html" On Error Resume Next ObjNewMail.Send
Ciao
-
Ti ringrazio molto per l'aiuto.
Lo proverò subito
-
HGo provato il codice, non mi da errori ma l'email non arriva.
Potresti per favore commentarmi le seguenti linee di codice?Set iConf = Server.CreateObject ("CDO.Configuration")
'Campi
Set Flds = IConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp, ad esempio smtp.miosito.ext"in particolare la configurazione di iConf
grazie.
-
Praticamente iConf viene usata per cofigurare il server smtp altrimenti non funziona niente, nello specifico
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Server per la porta Cdo, mentre
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "qui ci va l'smtp del tuo sito"
Serve a dichiarare l'smtp in uscita, normalmente "smtp.nomesito.ext"
Tra l'altro puoi anche aggiungere questa riga:Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Che indica la porta smtp
comunque togli "on error resume next" che sta prima dell'invio della mail, aggiungi l'smtp del tuo sito e lascia le altre cose invariate, poi dimmi che errore ti da.
Ps se posti anche il codice gli do un'occhiata
Ciao
-
Ho provato il codice e tutto funziona correttamente.
Ti ringrazio molto per l'aiuto sei stato veramente grande.
ciao a presto.