<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as SmtpMail
TheMailMessage.From = txtFromEmail.Text
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
If ddlPriority.SelectedItem.Text = "High" Then
TheMailMessage.Priority = MailPriority.High
ElseIf ddlPriority.SelectedItem.Text = "Normal" Then
TheMailMessage.Priority = MailPriority.Normal
Else
TheMailMessage.Priority = MailPriority.Low
End If
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Setting the Priority of an Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
id="txtFromEmail"
runat="server"
/>
<BR>
Enter the to email address:
<BR>
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Enter the subject of your message:
<BR>
<asp:textbox
id="txtSubject"
runat="server"
/>
<BR>
Select the priority of the email message:
<BR>
<asp:dropdownlist
id="ddlPriority"
runat="server"
>
<asp:listitem>High</asp:listitem>
<asp:listitem>Normal</asp:listitem>
<asp:listitem>Low</asp:listitem>
</asp:dropdownlist>
<BR>
Enter the text of your message:
<BR>
<asp:textbox
id="txtMessage"
runat="server"
textmode="MultiLine"
rows="5"
/>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>