defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 86 行

Imports System
Imports System.IO
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Mail
Imports Telerik.WebControls
Imports Telerik.WebControls.RadUploadUtils

Namespace Telerik.UploadExamplesVBNet.WebBasedMailClient

    Public Class DefaultVB
        Inherits Telerik.QuickStart.XhtmlPage

#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents lblMailSent As Label
        Protected WithEvents txtFrom As TextBox
        Protected WithEvents txtTo As TextBox
        Protected WithEvents txtSubject As TextBox
        Protected WithEvents txtCC As TextBox
        Protected WithEvents txtBCC As TextBox
        Protected WithEvents txtBody As TextBox
        Protected WithEvents pnlMailForm As Panel
        Protected WithEvents fromRequiredValidator As RequiredFieldValidator
        Protected WithEvents fromRegexValidator As RegularExpressionValidator
        Protected WithEvents btnSend As Button
        Protected WithEvents upload1 As RadUpload
        Protected WithEvents ccRegexValidator As RegularExpressionValidator
        Protected WithEvents bccRegexValidator As RegularExpressionValidator
        Protected WithEvents progressArea1 As RadUploadProgressArea

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub
        Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
            SmtpMail.SmtpServer = "localhost"
            SendMail()
            lblMailSent.Visible = True
            pnlMailForm.Visible = False
        End Sub
        Private Sub SendMail()

            Dim theMessage As MailMessage = New MailMessage

            theMessage.From = txtFrom.Text
            theMessage.To = txtTo.Text
            theMessage.Subject = txtSubject.Text
            theMessage.Cc = txtCC.Text
            theMessage.Bcc = txtBCC.Text
            Dim tempFileNames() As String = Array.CreateInstance(GetType(String), upload1.UploadedFiles.Count)
            Dim i As Integer
            For i = 0 To upload1.UploadedFiles.Count - 1

                Dim currentUploadedFile As UploadedFile = upload1.UploadedFiles(i)
                tempFileNames(i) = Request.MapPath(String.Format("./{0}", currentUploadedFile.FileName.Substring(currentUploadedFile.FileName.LastIndexOf("\") + 1)))
                currentUploadedFile.SaveAs(tempFileNames(i))
                Dim currentAttachment As MailAttachment = New MailAttachment(tempFileNames(i))
                theMessage.Attachments.Add(currentAttachment)
            Next
            theMessage.Body = txtBody.Text
            'SmtpMail.Send(theMessage)
            Dim tempFileName As String
            For Each tempFileName In tempFileNames
                If File.Exists(tempFileName) Then
                    File.Delete(tempFileName)
                End If
            Next
        End Sub
    End Class

End Namespace