Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mywebsite.co.uk" ' Specify a valid SMTP server
Mail.From = "HenryFonda@BlueYonder.com" ' Specify sender's address
Mail.FromName = "Myself" ' Specify sender's name
Mail.AddAddress "quotes@mywebsite.co.uk", "Bob"
Mail.AddReplyTo "quotes@mywebsite.co.uk"
Mail.AddAttachment "d:\images\my fence.jpg"
Mail.Subject = "Quote from mywebsite"
Mail.Body = "Dear Sir, Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If