• DOMINIOWEB.ORG

Form Mail Asp con SMTP autenticato

L'autenticazione del Form con SMTP autenticato elimina le possibilita' di spam.

Per coloro che intendono creare questo form, sono prima pregati di contattarci.
Di seguito un codice in asp funzionante sui nostri profili LION:

<%

' Controlla invio

if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig

' Crea l'oggetto email

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

' Dimensiona l'oggetto configurazione

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

' Imposta le configurazioni

With objConfig

' Server SMTP di uscita

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

' Porta SMTP

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

'Autenticazione

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"

.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password mail"

 

.Fields.Update

End With

' Assegna le configurazioni

Set objMail.Configuration = objConfig

' Assegna all'oggetto le propriet´┐Ż necessarie

objMail.From = " [email protected] " ' Mittente

objMail.To = Request.Form("email") ' Destinatario

objMail.Subject = Request.Form("oggetto") ' Oggetto

objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

' Invia l'email

objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente " &_

"all'indirizzo " &_

Request.Form("email"))

else %>

<form name="formail" method="post" action="?invia=true">

<table align="center" cellpadding="3" cellspacing="1">

<tr>

<td>Email</td>

<td><input type="text" name="email" /></td>

</tr>

<tr>

<td>Oggetto</td>

<td><input type="text" name="oggetto" /></td>

</tr>

<tr>

<td>Messaggio</td>

<td><textarea name="messaggio"></textarea></td>

</tr>

<tr>

<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>

</tr>

</table>

</form>

<% end if %>