在Web上利用System.Web.Mail發送EMail

來源:互聯網
上載者:User
web 這是個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


相關文章

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 >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

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