如何使用 ASPxFileManager 'SelectedFiles' 属性将文件附加到 MailMessage？答案

【问题标题】：How to use ASPxFileManager 'SelectedFiles' property to attach files to MailMessage?如何使用 ASPxFileManager 'SelectedFiles' 属性将文件附加到 MailMessage？
【发布时间】：2013-08-15 09:14:07
【问题描述】：

我正在使用 DevExpress 工具，特别是 FileManager，它有一个“SelectedFiles”属性，它返回所有需要的数据（添加、插入、删除、检索、修改记录）。但是我不知道如何将选定的文件用作 MailMessage.Attachment。下面的代码用于发送电子邮件，为了安全起见，我更改了凭据和主机值。我只需要一些指导或思考如何使用通过“SelectedFiles”生成的 FileManager 集合并将它们作为附件添加到电子邮件中。如果可能的话，我真的很想压缩文件，但此时只需附加它们就可以了。有什么想法吗？

   Dim fileManager As ASPxFileManager = TryCast(sender, ASPxFileManager)
    If ASPxFileManager1.SelectedFiles IsNot Nothing AndAlso ASPxFileManager1.SelectedFiles.Length > 0 Then
        For i As Integer = 0 To ASPxFileManager1.SelectedFiles.Length - 1
            Dim file = ASPxFileManager1.SelectedFiles.ToString
            Dim attachments As New Attachment(fileManager.SelectedFiles.ToString)???

        Next
    End If
    Try
        Dim mail As New MailMessage("noreply", DropDownEdit.Text)
        Dim smtp_Server As New SmtpClient("host") With {.Credentials = New Net.NetworkCredential("username", "password")}

        mail.Subject = "SUBJECT"
        mail.IsBodyHtml = False
        mail.Body = "Testing"
        smtp_Server.Send(mail)
        successLabel.Text = "Your email was sent successfully."

    Catch ex As Exception

    End Try

End Sub

【问题讨论】：

标签： asp.net vb.net devexpress attachment mailmessage

【解决方案1】：

                Dim attachments As New Attachment(ReadFile(ASPxFileManager1.SelectedFiles(i)), file)
                mail.Attachments.Add(attachments)

需要下面的函数来读取字节，然后将项目附加到 MailMessage。

Public Function ReadFile(file__1 As FileManagerFile) As System.IO.Stream
    'This function allows us to pull the bytes from the DB value to render the file.
    Dim filePath As String = (file__1.RelativeName)
    Dim fileData As Byte()
    Using con As New SqlConnection([Global].conn)
        Dim sqlCmd As New SqlCommand()
        sqlCmd.Connection = con
        sqlCmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = file__1.Name
        sqlCmd.Parameters.Add("@APIKey", SqlDbType.Int).Value = Session("_UserAPIKey")
        sqlCmd.CommandText = "SELECT STATEMENT"
        con.Open()
        Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()

        If sqlReader.HasRows Then
            While sqlReader.Read()
                fileData = CType(sqlReader(0), Byte())
            End While
        End If

    End Using

    Return New MemoryStream(fileData)

End Function

【讨论】：