电子邮件附件最终为0,0 kb

Question

我正在制作一个电子邮件功能，所有的工作都像魅力一样。 但当我把它带到网络服务器时，电子邮件附件是0,0kb ..我认为它与流有关但我没有得到任何错误消息所以很难说。 我不能在我的服务器上使用流？ 下面是代码：

 If FileUpload1.HasFile = True Then
            Dim tempFileName As String() = FileUpload1.PostedFile.FileName.Split("\"c)
            Dim emailAttach As New Attachment(FileUpload1.PostedFile.InputStream, tempFileName(tempFileName.Length - 1))

            message.Attachments.Add(emailAttach)
            emailAttach.Dispose()
        End If

尝试了几件事，但无法找出问题的原因

Answer 1

尝试以下方法：

message.Attachments.Add(New Attachment(FileUpload1.FileContent, tempFileName(tempFileName.Length - 1), FileFileUpload1.PostedFile.ContentType)

说明：

1. 我正在使用FileUpload控件的FileContent属性（虽然它似乎只是PostedFile.InputStream的别名）。
2. 我正在指定文件的MIME类型（constructor的第三个参数）。

同样问题可能是因为你调用Dispose方法（根据Reflector）关闭输入流。