Grazie Dirk Pitt,
il codice è il seguente:
codice:
Dim strHost, Mail, strErr
strHost = "nome.host.it"
Dim nome, email, testo, destinatario
nome=request.form("nome")
email=request.form("email")
testo=request.form("testo")
destinatario=request.form("destinatario")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = email
Mail.FromName = nome
Mail.AddAddress destinatario
Mail.Subject = "Oggetto Mail"
Mail.IsHTML = false
Mail.Body = testo
strErr = ""
On Error Resume Next
Mail.Send
If Err <> 0 Then ' error occurred
'strErr =
response.Write("INVIO NON RIUSCITO: "&Err.Description&"")
else
response.Write("INVIO RIUSCITO")
End If