<%@ 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
Dim TheAttachment as MailAttachment
TheMailMessage.From = "me@mycompany.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "Product Catalog"
TheMailMessage.Body = "Attached is the information " _
& "you requested."
TheAttachment = New MailAttachment( _
Server.MapPath("/file.txt"))
TheMailMessage.Attachments.Add(TheAttachment)
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending a Simple Email Message in Code</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address to recieve our Product Catalog:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>