http://snippets.dzone.com/posts Fri, 25 Jul 2008 03:27:54 GMT DZone Snippets: D-ko's Code Snippets http://snippets.dzone.com/posts/show/3951 Save as an .ascx file and insert into your project. <br />Set properties via the properties window. <br />Includes the form, code, validation, and css. <br /> <br /><code> <br /><%@ Control Language="VB" ClassName="Email" %> <br /><%@ Import Namespace="System.Net.Mail" %> <br /> <br /> <br /> <br /><script runat="server"> <br /> Public Property Email() As String <br /> Get <br /> Return recipientEmail <br /> End Get <br /> Set(ByVal value As String) <br /> recipientEmail = value <br /> End Set <br /> End Property <br /> <br /> <br /> Public Property Host() As String <br /> Get <br /> Return mhost <br /> End Get <br /> Set(ByVal value As String) <br /> mhost = value <br /> End Set <br /> End Property <br /> <br /> <br /> Public Property Port() As String <br /> Get <br /> Return mport <br /> End Get <br /> Set(ByVal value As String) <br /> mport = value <br /> End Set <br /> End Property <br /> <br /> <br /> Public Property Message() As String <br /> Get <br /> Return sentMessage <br /> End Get <br /> Set(ByVal value As String) <br /> sentMessage = value <br /> End Set <br /> End Property <br /> <br /> Dim recipientEmail As String <br /> Dim mhost As String <br /> Dim mport As Integer <br /> Dim sentMessage As String <br /> Dim client As New Net.Mail.SmtpClient() <br /> <br /> Protected Sub btnSendMail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendMail.Click <br /> <br /> client.Host = Host <br /> client.Port = Port <br /> client.Send(txtSenderEmail.Text, recipientEmail, txtSubject.Text, txtMessage.Text) <br /> lblMessage.Text = sentMessage <br /> End Sub <br /></script> <br /> <br /><style type="text/css"> <br /> label <br /> { <br /> float: left; <br /> width:10em; <br /> text-align:right; <br /> clear:left; <br /> margin-right: 7px; <br /> font-family: Tahoma, Sans-Serif; <br /> font-size:12px; <br /> font-weight:bold; <br /> padding:4px; <br /> background:#FFFFFF; <br /> color:#333333; <br /> } <br /> <br /> .validate <br /> { <br /> font-family: Tahoma, Sans-Serif; <br /> font-size:12px; <br /> } <br /> <br /> </style> <br /> <br /><label>Email:</label><asp:TextBox ID="txtSenderEmail" runat="server" Width="375px"></asp:TextBox> <br /><asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtSenderEmail" <br /> ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br /> <br /> <br /><label>Subject:</label><asp:TextBox ID="txtSubject" runat="server" Width="375px"></asp:TextBox> <br /><asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtSubject" <br /> ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br /> <br /><label>Message:</label><asp:TextBox ID="txtMessage" runat="server" TextMode="MultiLine" <br /> Height="160px" Width="375px"></asp:TextBox> <br /><asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="txtMessage" <br /> ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br /> <br /><label><asp:Label ID="lblMessage" runat="server"></asp:Label></label><asp:Button ID="btnSendMail" <br /> runat="server" Text="Send" /> <br /> <br /></code> Thu, 03 May 2007 00:43:47 GMT http://snippets.dzone.com/posts/show/3951 D-ko (DS)