<%

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.votredomaine.com" 'serveur smtp
Mail.From = "exemple@votredomaine.com" 'Mail expediteur
Mail.FromName = "Hébergement" 'nom expediteur
Mail.AddAddress "destinataire@domaine.com", "Nom du destinataire"
Mail.AddReplyTo "maildereponse@votredomaine.com"
Mail.Subject = "Sujet du mail"
Mail.Body = "Contenu du mail"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Erreur : " & Err.Description
End If