<%@ Import Namespace="System.Web.Mail" %> <%@ Import Namespace="System.IO" %> <% Dim objMailMessage As MailMessage Dim swHtmlBody As StringWriter Dim twTextWriter As HtmlTextWriter swHtmlBody = New StringWriter twTextWriter = New HtmlTextWriter( swHtmlBody ) twTextWriter.RenderBeginTag( "html" ) twTextWriter.RenderBeginTag( "head" ) twTextWriter.RenderBeginTag( "title" ) twTextWriter.Write( "Thank You!" ) twTextWriter.RenderEndTag twTextWriter.RenderEndTag twTextWriter.AddAttribute( "bgcolor", "lightblue" ) twTextWriter.RenderBeginTag( "body" ) twTextWriter.AddAttribute( "face", "Script" ) twTextWriter.AddAttribute( "size", "6" ) twTextWriter.RenderBeginTag( "font" ) twTextWriter.WriteLine( "Thank you for registering!" ) twTextWriter.RenderEndTag twTextWriter.RenderEndTag twTextWriter.RenderEndTag ' Create the Mail Message objMailMessage = New MailMessage objMailMessage.From = "you@somewhere.com" objMailMessage.To = "joe@somewhere.com" objMailMessage.Subject = "Thanks for Registering!" objMailMessage.Body = swHtmlBody.ToString objMailMessage.BodyFormat = MailFormat.HTML ' Send the Mail Message SmtpMail.Send( objMailMessage ) %> HTML Email Sent!