在Web上利用System.Web.Mail发送EMail （转 minbear）-CSDN博客

这是个vb.net的例子~

Email.aspx

<%@ Page Language="vb"
   AutoEventWireup="false"
   Codebehind="Email.aspx.vb"
   Inherits="asif.SendEmail"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  <HEAD>
    <title>SendEmail</title>
    <meta name="vs_showGrid" content="True">
    <meta content="Microsoft Visual Studio.NET 7.0"
      name="GENERATOR">
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5"
      name="vs_targetSchema">
  </HEAD>
  <body MS_POSITIONING="GridLayout">
    <form id="Form1" method="post" runat="server">
      <asp:Label id=Label5 runat="server" Width="464px"
        Font-Size="Large" Font-Bold="True" ForeColor="Blue"
        style="Z-INDEX: 100; LEFT: 140px; POSITION: absolute;
        TOP: 42px">
        Sending Email from ASP.NET WebPage
       </asp:Label>

      <asp:TextBox id=txtFrom runat="server" Width="169px"
         style="Z-INDEX: 101; LEFT: 236px; POSITION: absolute;
         TOP: 104px">
      </asp:TextBox>

      <asp:Label id=Label1 runat="server" Font-Bold="True"
         Font-Names="Arial" Font-Size="Smaller"
         style="Z-INDEX: 102; LEFT: 140px; POSITION: absolute;
         TOP: 106px">
         From:
       </asp:Label>

      <asp:RequiredFieldValidator id=RequiredFieldValidator1
        runat="server" Font-Size="X-Small"
        ErrorMessage="*RequiredField" ControlToValidate="txtFrom"
        style="Z-INDEX: 103; LEFT: 413px; POSITION: absolute;
        TOP: 111px">
      </asp:RequiredFieldValidator>

      <asp:TextBox id=txtTo runat="server" Width="168px"
        style="Z-INDEX: 104; LEFT: 236px; POSITION: absolute;
        TOP: 137px">
      </asp:TextBox>

      <asp:Label id=Label2 runat="server" Font-Bold="True"
        Font-Names="Arial" Font-Size="Smaller"
        style="Z-INDEX: 105; LEFT: 140px; POSITION: absolute;
        TOP: 138px">
        To:
      </asp:Label>

      <asp:RequiredFieldValidator id=RequiredFieldValidator4
        runat="server" Font-Size="X-Small"
        ErrorMessage="*RequiredField" ControlToValidate="txtTo"
        style="Z-INDEX: 106; LEFT: 417px; POSITION: absolute;
        TOP: 145px">
      </asp:RequiredFieldValidator>

      <asp:TextBox id=txtSubject runat="server" Width="168px"
        style="Z-INDEX: 107; LEFT: 236px; POSITION: absolute;
        TOP: 171px">
      </asp:TextBox>

      <asp:Label id=Label4 runat="server" Font-Bold="True"
        Font-Names="Arial" Font-Size="Smaller"
        style="Z-INDEX: 108; LEFT: 140px; POSITION: absolute;
        TOP: 173px">
        Subject:
      </asp:Label>

      <asp:RequiredFieldValidator id=RequiredFieldValidator2
        runat="server" Font-Size="X-Small"
        ErrorMessage="*RequiredField"
        ControlToValidate="txtSubject" style="Z-INDEX: 109;
        LEFT: 417px; POSITION: absolute; TOP: 177px">
      </asp:RequiredFieldValidator>

      <asp:TextBox id=txtMessage runat="server"
        TextMode="MultiLine" Width="349px" Height="188px"
        style="Z-INDEX: 110; LEFT: 236px; POSITION: absolute;
        TOP: 214px">
      </asp:TextBox>

      <asp:Label id=Label3 runat="server" Font-Bold="True"
        Font-Names="Arial" Font-Size="Smaller"
        style="Z-INDEX: 111; LEFT: 140px; POSITION: absolute;
        TOP: 218px">
        Message:
      </asp:Label>

      <asp:RequiredFieldValidator id=RequiredFieldValidator3
        runat="server" Font-Size="X-Small"
        ErrorMessage="*RequiredField"
        ControlToValidate="txtMessage" style="Z-INDEX: 112;
        LEFT: 591px; POSITION: absolute; TOP: 222px">
      </asp:RequiredFieldValidator>

      <asp:Button id=cmdSendEmail runat="server"
        Text="Send Email" Width="165px" Font-Bold="True"
        style="Z-INDEX: 113; LEFT: 236px; POSITION: absolute;
        TOP: 418px">
      </asp:Button>

      <asp:Label id=lblMessage style="Z-INDEX: 114; LEFT: 141px;
        POSITION: absolute; TOP: 76px" runat="server"
        Font-Size="Small" Width="373px" Visible="False">
      </asp:Label>
    </form>
  </body>
</HTML>

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