|
<%@ 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
Dim TheItem as ListItem
TheMailMessage.From = "me@mycompany.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "File Request"
TheMailMessage.Body = "Attached is the information " _
& "you requested."
For Each TheItem in lbFiles.Items
If TheItem.Selected = True Then
TheAttachment = New MailAttachment( _
Server.MapPath(TheItem.Value))
TheMailMessage.Attachments.Add(TheAttachment)
End If
Next
TheMailConnection.Send(TheMailMessage)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending Multiple Files in an Email Message</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address to recieve our Product Catalog:
<asp:textbox
id="txtToEmail"
runat="server"
/>
<BR>
Select all the files you wish to receive:
<asp:listbox
id="lbFiles"
runat="server"
selectionmode="multiple"
rows=3
>
<asp:listitem value="file.txt">Catalog</asp:listitem>
<asp:listitem value="file.txt">Locations</asp:listitem>
<asp:listitem value="file.txt">Privacy</asp:listitem>
<asp:listitem value="file.txt">Jobs</asp:listitem>
</asp:listbox>
<BR>
<asp:button
id="butOK"
text="Send"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
|
