电子邮件附件最终为 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. 我正在使用 FileContent 属性（尽管看起来它只是 PostedFile.InputStream 的别名）。
2. 我指定文件的 MIME 类型（构造函数的第三个参数）。

另外，问题可能是因为您调用了 Dispose 方法（根据 Reflector）关闭输入流。