FromName = "Reservations" fromAddress = "larry@charrlin.com" recipientName = "Larry" recipientAddress= "larry@charrlin.com" subject = "Enter a Subject Title Here!" Template = "Template.html" body = "Bodycopy" html ="Yes" '-----YOU DO NOT NEED TO EDIT BELOW THIS LINE----- sentTo = "NOBODY" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = fromName Mailer.FromAddress = fromAddress Mailer.RemoteHost = "mrelay.perfora.net" if Mailer.AddRecipient (recipientName, recipientAddress) then sentTo=recipientName & " (" & recipientAddress & ")" end if Mailer.Subject = subject Mailer.BodyText = body if Mailer.SendMail then Response.Write "The mailing was sent to: " & sentTo & "" else Response.Write "Mail send failure. Error was " & Mailer.Response end if %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)