[COLOR=#0000ff]
Imports[/COLOR][COLOR=#000000] System.Web.Mail[/COLOR]
[COLOR=#0000ff]Public[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000ff]Class[/COLOR][COLOR=#000000] WebForm1[/COLOR]
[COLOR=#0000ff]Inherits[/COLOR] System.Web.UI.Page
#[COLOR=#0000ff]Region[/COLOR] " Web Form Designer Generated Code "
[COLOR=#008000]'This call is required by the Web Form Designer.
[/COLOR]<System.Diagnostics.DebuggerStepThrough()> [COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] InitializeComponent()
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub
[/COLOR][COLOR=#0000ff]Protected[/COLOR] [COLOR=#0000ff]WithEvents[/COLOR] txtToEmail [COLOR=#0000ff]As[/COLOR] System.Web.UI.WebControls.TextBox
[COLOR=#0000ff]Protected[/COLOR] [COLOR=#0000ff]WithEvents[/COLOR] lbFiles [COLOR=#0000ff]As[/COLOR] System.Web.UI.WebControls.ListBox
[COLOR=#0000ff]Protected[/COLOR] [COLOR=#0000ff]WithEvents[/COLOR] butOK [COLOR=#0000ff]As[/COLOR] System.Web.UI.WebControls.Button
[COLOR=#008000]'NOTE: The following placeholder declaration is required by the Web Form Designer.
[/COLOR][COLOR=#008000]'Do not delete or move it.
[/COLOR][COLOR=#0000ff]Private[/COLOR] designerPlaceholderDeclaration [COLOR=#0000ff]As[/COLOR] System.Object
[COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] Page_Init([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, [COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.EventArgs) [COLOR=#0000ff]Handles[/COLOR] [COLOR=#0000ff]MyBase[/COLOR].Init
[COLOR=#008000]'CODEGEN: This method call is required by the Web Form Designer
[/COLOR][COLOR=#008000]'Do not modify it using the code editor.
[/COLOR]InitializeComponent()
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub
[/COLOR]#[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Region
[/COLOR][COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] Page_Load([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, [COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.EventArgs) [COLOR=#0000ff]Handles[/COLOR] [COLOR=#0000ff]MyBase[/COLOR].Load
[COLOR=#008000]'Put user code to initialize the page here
[/COLOR][COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub
[/COLOR][COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] butOK_Click([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, [COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.EventArgs) [COLOR=#0000ff]Handles[/COLOR] butOK.Click
[COLOR=#0000ff]Dim[/COLOR] TheMailMessage [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]New[/COLOR] MailMessage
[COLOR=#0000ff]Dim[/COLOR] TheMailConnection [COLOR=#0000ff]As[/COLOR] SmtpMail
[COLOR=#0000ff]Dim[/COLOR] TheAttachment [COLOR=#0000ff]As[/COLOR] MailAttachment
[COLOR=#0000ff]Dim[/COLOR] TheItem [COLOR=#0000ff]As[/COLOR] ListItem
TheMailMessage.From = "shahdhruv47@yahoo.com"
TheMailMessage.To = txtToEmail.Text
TheMailMessage.Subject = "File Request"
TheMailMessage.Body = "Attached is the information " _
& "you requested."
[COLOR=#0000ff]For[/COLOR] [COLOR=#0000ff]Each[/COLOR] TheItem [COLOR=#0000ff]In[/COLOR] lbFiles.Items
[COLOR=#0000ff]If[/COLOR] TheItem.Selected = [COLOR=#0000ff]True[/COLOR] [COLOR=#0000ff]Then
[/COLOR]TheAttachment = [COLOR=#0000ff]New[/COLOR] MailAttachment( _
Server.MapPath("/Email/C9/" & TheItem.Value))
TheMailMessage.Attachments.Add(TheAttachment)
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If
[/COLOR][COLOR=#0000ff]Next
[/COLOR]TheMailConnection.Send(TheMailMessage)
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub
End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000ff]Class
[/COLOR]