Spedire posta con SMTP Autenticato in ASP 2

Salve a tutti,

avendo pubblicato tempo addietro lo stesso tipo di articolo per aiutare coloro che usano PHP nei loro server, oggi vi propongo lo stesso argomento per aiutare gli utenti che si trovano ad usare ASP.

Lo script che vi posto di seguito naturalmente è da adattare con i vostri dati e non è da copiare ed incollare così come lo vedete (  premessa di routine ma necessaria per alcuni 🙂 ):

<% 
Dim iMsg
Dim iConf  
Dim Flds  
Dim strTosend  
Dim strEmail  
Dim strMessage  
Dim strOggetto  
Const cdoAnonymous = 0 'Non autenticato 
Const cdoBasic = 1 'Base  (testo in chiaro) 
Const cdoNTLM = 2 'NTLM 
strTosend="destinatario@vostronomedominio.tuaestensione"  
strOggetto="Richiesta Informazioni dal vostro sito " 
strMessage=" Questo è un esempio di messaggio che volete spedire..." & vbcrlf   
strMessage=strMessage & "Naturalmente ci potete scrivere quello che volete." & vbcrlf   
set iMsg = CreateObject("CDO.Message") 
set iConf = CreateObject("CDO.Configuration") 
Set Flds = iConf.Fields ' Sezione relativa alla configurazione dei parametri dell'SMTP remoto. 
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' Nome o IP del server SMTP 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.vostroserversmtp.estensione" ' Tipo di autenticazione (vedi le costanti di cui sopra 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic ' Nome utente e password  per l'autenticazione 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "utente" 
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxpasswordxxx" ' Porta di ascolto del server (tipicamente 25 o 587 ) 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Uso di SSL per la connessione (False or True) 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ' Timeout per la connessione in secondi  
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Fine parametri per l'SMTP autenticato 
Flds.Update 

With iMsg 
Set .Configuration = iConf 
.To = strTosend 
.From = strEmail 
.Subject = strOggetto 
.TextBody=strMessage 
.Send 
End With 
if err.number Then 
Response.Write "Attenzione ! Si è verificato un Errore durante l'invio. Riprovi a breve. Grazie !" 
else 
Response.Write "La sua Richiesta è stata inoltrata con successo." 
end if 
%>

Lo uso spesso senza riscontrare problemi ( nemmeno su IIS7 ) quindi non mi resta che augurarvi “buon invio”.