htmltextwriter.aspx

asp.net技术内幕的书配源码

<%@ 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 = "[e-mail]"
objMailMessage.To = "[e-mail]"
objMailMessage.Subject = "Thanks for Registering!"
objMailMessage.Body = swHtmlBody.ToString
objMailMessage.BodyFormat = MailFormat.HTML

' Send the Mail Message
SmtpMail.Send( objMailMessage )
%>
HTML Email Sent!