<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Web.Mail" %> 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
Sending Multiple Files in an Email Message
Enter your email address to recieve our Product Catalog: id="txtToEmail" runat="server" />
Select all the files you wish to receive: id="lbFiles" runat="server" selectionmode="multiple" rows=3 > Catalog Locations Privacy Jobs