<%
' change to address of your own SMTP server
strHost = "smtp.broadviewnet.net"
' Enable UTF-8 -> Unicode translation for form items
Session.CodePage = 65001 ' UTF-8 code
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "info@aspemail.com" ' From address
Mail.FromName = Mail.EncodeHeader(Request("FromName"), "utf-8")
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Mail.EncodeHeader( Request("Subject"), "utf-8")
' message body
Mail.Body = Request("Body")
' UTF-8 parameters
Mail.CharSet = "UTF-8"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.Send ' send message
Response.Write "Message sent to " & Request("To")
End If
%>
AspEmail: Unicode.asp
AspEmail: Unicode.asp