å¦ä½å®ç°çµåé®ä»¶çèªå¨åéï¼
<%@import namespace=”system.web.uit”%>
dim mail as new mailmessage Â
 ‘ 建ç«ä¸ä¸ªmailmessage对象.
mail.to=æ¶ä»¶äºº
mail.form=é件人
mail.subject=主é¢
mail.bodyformat=æ ¼å¼
mail.body=å
容
smtpmail.send(mail)
Â Â Â å ·ä½ä»£ç å¦ä¸ï¼
<%@ Import Namespace=”System.Web.Util” %>
<html>
<head>
<title>åè±é£èä¹çµåé®ä»¶åé</title>
</head>
 xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<body BgColor=”White”>
Â
<Form runat=”server”>
<Table Border=1>
  <Tr><Td>æ¶ä»¶äººï¼</Td>
  <Td><Input Type=”Text” id=”mailTo” Size=40 runat=”server”/></Td></Tr>
  <Tr><Td>å件人ï¼</Td>
  <Td><Input Type=”Text” id=”mailFrom” Size=40 runat=”server”/></Td></Tr>
  <Tr><Td>主é¢:</Td>
  <Td><Input Type=”Text” id=”mailSubject” Size=40 runat=”server”/></Td></Tr>
  <Tr><Td>å
容:</Td>
  <Td><TextArea id=”mailbody” Rows=8 Cols=60 runat=”server”>
  </TextArea>
  </Td></Tr>
</Table>
<Input Type=”Button” Value=”ç«å³åé” id=”Button1″       OnServerClick=”Button1_Click” runat=”server”/>
</Form>
<asp:Label id=”Label1″ runat=”server”/>
</body></html>
<script Language=”VB” runat=”server”>
   Sub Button1_Click(sender As Object, e As EventArgs)
      Dim mail As MailMessage = New MailMessage
      mail.To= mailTo.Value
      mail.From= mailFrom.Value
      mail.Subject= mailSubject.Value
      mail.bodyFormat=mail.format.text
      mail.body= mailbody.Value
‘ 读å表åçmailtoçï¼åå«æå®ç»mail对象çtoçå±æ§.
Â
      SmtpMail.Send(mail)
   ‘ è°ç¨smtpmailåé.
      Label1.Text = “æå,é®ä»¶åéæå!”
   End Sub
</script>
[1]