Configurazione corretta di CDOSYS

ASP E-Commerce con ASP Menu Javascript Ricette Cocktail Registrazione domini Area Aziende

Concesso in esclusiva a Mr.Webmaster. Vietata la riproduzione.

Nell'Articolo Inviare email con CDOSYS abbiamo visto quali sono le differenze tra i componenti per l'invio di email lato server CDOSYS e CDONTS, oggetti realizzati rispettivamente per Win 2000 - 2003 - XP e per Win NT.

Scendiamo adesso nei dettagli di CDOSYS ed analizziamo la sua configurazione. La libreria generica CDO mette a disposizione la DLL instanziabile con la classe CDO.Configuration che serve a configurare alcune opzioni di invio dell'email come il server SMTP, la porta di dialogo, username e password di accesso al server, ovvero tutto valori che vengono assegnati al volo per default dal server Web all'atto del semplice invio di una mail, generando un notevole dispendio di risorse.

La configurazione viene fatta in base a dei parametri stabiliti da Microsoft, i cui valori sono reperibili direttamente via HTTP sul sito stesso in fase di produzione.

La libreria di configurazione viene instanziata come un normale oggetto ActiveX con la dichiarazione

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

e per accedere ai vari parametri si usa il metodi Fields come segue

config.Fields(parametro Microsoft) = valore

In fine, come le buone regole stabiliscono, distruggiamo l'oggetto creato

Set config  = Nothing

Di seguito un semplce esempio di codice che non necessita di alcun commento

<%@LANGUAGE = VBScript%>
<%
    Dim path, config, mail

    path = "http://schemas.microsoft.com/cdo/configuration/"

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

    config.Fields(path & "smtpauthenticate") = "smtp.server.ext"
    config.Fields(path & "smtpserverport")   = 25
    config.Fields(path & "sendusername")     = "MiaUsername"
    config.Fields(path & "sendpassword")     = "MiaPassword"

    Set MyMail = Server.CreateObject("CDO.Message")

    With MyMail
        .From     = "mittente@server.ext"
        .Sender   = "percontodi@server.ext"
        .To       = "destinatario@server.ext"
        .Cc       = "visibile@server.ext"
        .Bcc      = "invisibile@server.ext"
        .Subject  = "Oggetto della mail..."
        .TextBody = "Corpo della mail..."
        .Send
    End With

    Set config  = Nothing
    Set MyMail = Nothing

    Response.Write "Email inviata con successo!"
%>