利用System.Web.Mail傳送EMail程式碼

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

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/12639172/viewspace-156344/，如需轉載，請註明出處，否則將追究法律責任。