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

2022-07-15 80酷酷网 80kuku.com

　　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"
100; LEFT: 140px; POSITION: absolute;
TOP: 42px">
Sending Email from ASP.NET WebPage
</asp:Label>

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

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

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

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

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

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

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

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

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

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

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

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

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

<asp:Label id=lblMessage 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