Web上利用System.Web.Mail发送EMail

最新推荐文章于 2024-11-16 12:02:49 发布

donetk

最新推荐文章于 2024-11-16 12:02:49 发布

阅读量530

点赞数

分类专栏： asp.net 文章标签： email web textbox server asp microsoft

asp.net 专栏收录该内容

493 篇文章 0 订阅

订阅专栏

＜%@ 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