这是个vb.net的例子~
Email.aspx
<%@ Page Language="vb"
AutoEventWireup="false"
Codebehind="Email.aspx.vb"
Inherits="asif.SendEmail"%>
name="GENERATOR">
name="vs_targetSchema">
Email.aspx.vb
Imports System.Web.Mail
Public Class SendEmail
Private Sub cmdSendEmail_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdSendEmail.Click
Dim objMail As New MailMessage()
objMail.From = Me.txtFrom.Text.ToString
objMail.To = Me.txtTo.Text.ToString
objMail.Subject = Me.txtSubject.Text.ToString
objMail.Body = Me.txtMessage.Text.ToString
objMail.BodyFormat = MailFormat.Html
SmtpMail.Send(objMail)
Me.lblMessage.Text = "Email has been sent"
End Sub
End Class