<%
set smtp = Server.CreateObject("Bamboo.SMTP")
smtp.Server = "mail.mcraeclan.com"
smtp.Rcpt = "feedback@mcraefamily.com"
smtp.From = "sender@mcraefamily.com"
smtp.FromName = "Elmer J. Fudd"
smtp.Subject = "This is the subject of my message"
smtp.Message = "<h2>My Message</h2><p>This is the content of my message</p>"
On Error Resume Next
smtp.Send
if err then
response.Write err.Description
else
response.Write ("Thank you for your submission.... Your message has been delivered successfully.")
end if
set smtp = Nothing
%> |
The message was undeliverable. All servers failed to receive the message
|