Inviare email con ASPEmail

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

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

Esistono moltissime librerie, gratuite e non, che permettono di gestire sistemi di invio di posta elettronica attraverso le pagine ASP; una delle librerie che preferisco, diversa dalle tradizionali CDONTS e CDOSYS (che Microsoft mette a disposizione su tutti i sistemi Windows) è ASPEmail della Persist.

Non si tratta di una libreria gratuita, costa 139 $ (dollari americani) per la Single Server License, ovvero la licenza per l'installazione su di un singolo server, ma è molto semplice trovare dei servizi di Hosting che ne offrono il supporto.

Potete scaricarne una versione all'indirizzo:

http://www.persits.com/aspemail.exe

Si tratta di un componente molto più potente, sicuro e versatile dei classici CDO e per di più è supportato da tutti i sistemi di casa Microsoft:

98
ME
NT
2000
XP

Segue un semplice esempio di codice, opportunamente commentato, che spiega le principali funzionalità dell'oggetto:

<%%@LANGUAGE = VBScript%>
<%
    ' Dichiaro e creo l'oggetto Persits.MailSender
    Dim objMail
    Set objMail = Server.CreateObject("Persits.MailSender")

    ' Specifico il server SMTP da utilizzare
    objMail.Host = "smtp.provider.ext"

    ' Specifico l'indirizzo email del mittente
    objMail.From = "mitt@server.ext"

    ' Specifico l'alias del mittente, ovvero il nome
    ' che viene visualizzato dal destinatario
    ' (opzione che CDO non mette a disposizione)
    objMail.FromName = "Nome Mittente"

    ' Specifico l'indirizzo email del destinatario 
    ' (opzionalmente anche il nome)
    objMail.AddAddress "dest@server.ext", "Nome Destinatario"

    ' Specifico l'oggetto della mail
    objMail.Subject = "Oggetto della mail..."

    ' Specifico il corpo della mail
    objMail.Body = "Corpo della mail..."

    ' Invio la mail
    objMail.Send

    ' Un po di pulizia...
    Set objMail = Nothing
%>

Vediamo il codice pulito e privo di commenti

<%%@LANGUAGE = VBScript%>
<%
    Dim objMail
    Set objMail = Server.CreateObject("Persits.MailSender")
    objMail.Host = "smtp.provider.ext"
    objMail.From = "mitt@server.ext"
    objMail.FromName = "Nome Mittente"
    objMail.AddAddress "dest@server.ext", "Nome Destinatario"
    objMail.Subject = "Oggetto della mail..."
    objMail.Body = "Corpo della mail..."
    objMail.Send
    Set objMail = Nothing
%>

A voi il compito di implementare un modulo per la realizzazione di un form-mail.

ASPEmail dispone di una nutrita schiera di proprietà e metodi, documentati con cura e corredati da esempi sul sito ufficiale, all'indirizzo

http://www.aspemail.com/manual_object.html