更正VB.NET将文件附加到ASP.NET联系人表单上的电子邮件

我有一个联系表格，用

html

和

ASP.NET

编写。我想使用

将一个文件附加到由联系人表单生成的电子邮件中，但我不知道VB.NET要做什么。我不是天生的

VB

'er，所以我不会说这门语言，我在这门语言中所做的一切都来自示例。下面是我已经拥有的VB，有人能告诉我我需要什么VB.NET以及在我已经拥有的代码中把它放在哪里吗？（我在

httpdocs

文件中放置了一个名为Uploads的文件夹）

提前谢谢

我的代码：

Imports System.Net.Mail

Partial Class Contact_xxxxxxxxxxxxxxx
Inherits System.Web.UI.Page
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
    Dim combinedBodyString As String

    combinedBodyString = txtDetails.Text & vbCrLf & vbCrLf
    combinedBodyString = combinedBodyString & "---------Details-------- " & vbCrLf & vbCrLf
    combinedBodyString = combinedBodyString & "Org Name:        " & vbTab
    combinedBodyString = combinedBodyString & txtOrg.Text & vbCrLf
    combinedBodyString = combinedBodyString & "Name: " & vbTab
    combinedBodyString = combinedBodyString & txtName.Text & vbCrLf

    combinedBodyString = combinedBodyString & "Tel No: " & vbTab
    combinedBodyString = combinedBodyString & txtTelephoneNumber.Text & vbCrLf
    combinedBodyString = combinedBodyString & "eMail: " & vbTab
    combinedBodyString = combinedBodyString & txtEmailAddress.Text & vbCrLf



    sendmail(txtEmailAddress.Text, combinedBodyString)

    Response.Redirect("~/Enquiry-Complete.aspx")

End Sub
Private Sub sendmail(ByVal from As String, ByVal body As String)
    Dim mailservername As String = "relay.hostinguk.net"
    Dim message As MailMessage = New MailMessage(from, "xxxx@xxxxxxxx.co.uk", "General Enquiry", body)
    Dim mailclient As New SmtpClient

    mailclient.Host = mailservername

    mailclient.Send(message)
    message.Dispose()
End Sub
End Class

取自

在

mailclient.Host=mailservername

和

mailclient.Send（message）

我还建议使用stringbuilder，而不是将stings连接在一起

//Attach file using FileUpload Control and put the file in memory stream
If fileUpload1.HasFile Then
  message.Attachments.Add(new Attachment(fileUpload1.PostedFile.InputStream, fileUpload1.FileName))
End If