.net beta2 操作email的例子(轉)

<%@ Page Language="VB" ClientTarget="downlevel" %>
<%@ Import Namespace="System.Web.Mail" %>

<script language="VB" runat="server">
    Sub btnSendMail_OnClick(Source As Object, E As EventArgs)
        Dim myMessage As New MailMessage
        Dim myMail    As New SmtpMail
        Dim strEmail  As String

        If Page.IsValid() Then
            strEmail = txtEmail.Text

            myMessage.From = "webmaster@" & Request.ServerVariables("SERVER_NAME")
            myMessage.To = strEmail
            myMessage.Subject = "E-mail Sample from ASP 101!"
            myMessage.Body = "This message was sent from sample code by " & _
                "http://www.asp101.com.  It is used to show people how " & _
                "to send e-mail from an ASP+ page.  This mail was sent " & _
                "from " & Request.ServerVariables("SERVER_NAME") & ".  " & _
                vbCrLf & vbCrLf & _
                "This email was sent to " & strEmail & "."


            frmEmail.Visible = False
            lblUserMessage.Text = "Your message has been sent to " & strEmail & "."
        End If
    End Sub

<title>ASP+ Email Sample</title>

<asp:Label id="lblUserMessage" text="Enter your e-mail address:" runat="server" />
<form method="post" id="frmEmail" runat="server">
    <asp:TextBox id="txtEmail" size="30" runat="server" />
    <asp:RequiredFieldValidator runat="server"
        id="validEmailRequired" ControlToValidate="txtEmail"
        errormessage="Please enter an email address."
        display="Dynamic" />
    <asp:RegularExpressionValidator runat="server"
        id="validEmailRegExp" ControlToValidate="txtEmail"
        errormessage="Please enter a valid email address."
        Display="Dynamic" />

    <asp:Button id="btnSendMail" text="Send Mail!" OnClick="btnSendMail_OnClick" runat="server" />

come from asp101.com


E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >



如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。