<% Set Mail = Server.CreateObject("Persits.MailSender") ' Set Mailserver Details Mail.Host = "mail.customerdomain.com" Mail.Port = 25 Mail.Username = "mailbox@customerdomain.com" Mail.Password = "mailbox_password" ' Set sender Mail.From = "visitor@customersite.com" Mail.FromName = "Visitor Name" ' Set Recipient Mail.AddAddress "website@customerdomain.com" ' message subject Mail.Subject = "message subject" ' message body Mail.Body = "Body of message" strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description Response.Write "Error Occurred: " & strErr & "
" Else bSuccess = True Response.Write "Message Sent
" End If %>