电子邮件attatchment风起来0,0 kb

Question

我做了一个emailng函数和所有作品像魅力LOCALLY。 但是，当我把它带到网络服务器电子邮件attatchment是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）关闭输入流。