'Coded by AbhijitMehta for the article
'Sending EMail From Your own Web Application
'for www.codeguru.com
<%@ Page Language="VB" %>
<%@ import Namespace="System.Web.Mail" %>
<script runat="server">
Sub bottonSend_Click(sender As Object, e As EventArgs)
Dim emailMessage As MailMessage
emailMessage=New MailMessage
emailMessage.From=labelFrom.Text
emailMessage.To=textTo.Text
emailMessage.Subject=textSubject.Text
emailMessage.Body=textMessage.Text
SmtpMail.SmtpServer = "10.0.2.95"
Try
SmtpMail.Send(emailMessage)
labelStatus.Text="Message sent!"
buttonSend.Enabled=False
Catch ex as Exception
labelStatus.Text="Unable to send the e-mail message"
End Try
End Sub
Sub bottonNewMessage_Click(sender As Object, e As EventArgs)
textTo.Text=""
textSubject.Text=""
textMessage.Text=""
buttonSend.Enabled=True
labelStatus.Text=""
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<h2>Send an E-mail Message
</h2>
<h4>From<asp:Label id="labelFrom" style="Z-INDEX: 100; LEFT: 64px; POSITION: absolute; TOP: 64px" runat="server" width="205px">Manu@MyWorld.net</asp:Label>
</h4>
<h4>To<asp:RequiredFieldValidator id="RequiredFieldValidator1" style="Z-INDEX: 101; LEFT: 368px; POSITION: absolute; TOP: 96px" runat="server" Width="186px" ControlToValidate="textTo" ErrorMessage="You must enter a recipient!"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator id="RegularExpressionValidator1" style="Z-INDEX: 100; LEFT: 56px; POSITION: absolute; TOP: 120px" runat="server" Width="248px" ControlToValidate="textTo" ErrorMessage="Invalid e-mail address!" ValidationExpression="/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*"></asp:RegularExpressionValidator>
<asp:TextBox id="textTo" style="Z-INDEX: 102; LEFT: 56px; POSITION: absolute; TOP: 96px" runat="server" Width="273px"></asp:TextBox>
</h4>
<h4>Subject<asp:TextBox id="textSubject" runat="server" Width="269px"></asp:TextBox>
</h4>
<h4>Message::<asp:RequiredFieldValidator id="RequiredFieldValidator2" style="Z-INDEX: 103; LEFT: 208px; POSITION: absolute; TOP: 192px" runat="server" Width="321px" ControlToValidate="textMessage" ErrorMessage="You must enter a message!"></asp:RequiredFieldValidator>
</h4>
<p>
<asp:TextBox id="textMessage" runat="server" Width="518px" TextMode="MultiLine" Height="63px"></asp:TextBox>
</p>
<p>
<asp:Button id="buttonSend" style="Z-INDEX: 105; LEFT: 16px; POSITION: absolute; TOP: 304px" onclick="bottonSend_Click" runat="server" Text="Send"></asp:Button>
<asp:Button id="bottonNewMessage" style="Z-INDEX: 104; LEFT: 168px; POSITION: absolute; TOP: 304px" onclick="bottonNewMessage_Click" runat="server" Text="New Message"></asp:Button>
</p>
<p>
</p>
<p>
</p>
<p>
<asp:Label id="labelStatus" style="Z-INDEX: 106; LEFT: 16px; POSITION: absolute; TOP: 368px" runat="server" width="289px" font-bold="True" forecolor="Red"></asp:Label>
</p>
</form>
</body>
</html>