Invio di email con CDOSYS

Per inviare email da server basati su tecnologia Microsoft Windows Server 2000 (e successivi), con IIS5, possiamo utilizzare il componente preinstallato CDOSYS. Supponendo di aver correttamente completato il nostro form con i campi email_mittente, email_destinatario, soggetto, messaggio, il codice da eseguire per l'invio è il seguente:

<%
Set link = CreateObject("CDO.Message")
link.From     = Request("email_mittente")
link.To       = Request("email_destinatario")
link.Subject  = Request("soggetto")
link.TextBody = Request("messaggio")
link.Send()
Set link = Nothing
%>

 

ATTENZIONE:
In alternativa alle email testuali possiamo inviare email in formato html, nel seguente modo:

<%
link.HTMLBody = Request("messaggio")
%>

 

Articoli correlati:
Email con CDONTS (IIS4)

 

Per commenti, scriveteci.