Inviare e-mail su server protetti con CDO e ASP

di Daniele Bochicchio, in Classic ASP, E-mail,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi