Con l'avvento di Windows Server 2003 CDO ha assunto un ruolo ancora più importante perchè con IIS 6 (di default) non è più disponibile CDONTS.
Tra le altre cose CDO ha un modello di programmazione decisamente più esteso, che permette tra le altre cose di inviare e-mail usando server esterni, anche protetti, cosa impossibile usando CDONTS.
Lo script di oggi è infatti una variazione sul tema e permette di autenticarsi su un server SMTP durante l'invio dell'e-mail:
<% ' 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") = "username" Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" ' server Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.provider.ext" Fields.Update Set objMail = Server.CreateObject("CDO.Message") Set objMail.Configuration = Config ' invio dell'e-mail objMail.To = "admin@server.ext" objMail.From = "utente@server.ext" objMail.Subject = "Prova messaggio" objMail.TextBody = "Con autenticazione!" objMail.Send() set objMail = Nothing Set Fields = Nothing Set Config = Nothing %>
Approfondimenti
#420 - Inviare e-mail utilizzando un server esterno con CDO per Windows 2000
https://www.aspitalia.com/liste/usag/script.aspx?ID=420
Altri script che usano CDO/CDONTS
https://www.aspitalia.com/ricerca/super.aspx?usag=1&key=CDO+OR+CDONTS
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.