Dim txt1 As String = e.Form.Controls("TextBox1").Text

Dim txt2 As String = e.Form.Controls("TextBox2").Text

Dim m As New MailSender

    m.Host = "smtp.139.com"

    m.Account = "422422"

    m.Password = "18181818"

    m.From = "422422@139.com"

    m.To  = 422422@139.com

    m.Title = txt2

    m.Content = txt1

If CurrentTable.Current IsNot Nothing Then 

m.AddAttachments("g:\\工作\\处理情况\\" & CurrentTable.Current("附件")&"")

   End If

附件列扩展为多文件，若CurrentTable.Current("附件")里存在多文件，发送邮件时即提示错误。有没好办法可以发送多个附件，谢谢。