vb.net电子邮件发送和接收，但没有附件

Question

我有一个页面，电子邮件可以发送多个附件。这里是我的代码通过ASP上传文件：AjaxFileUpload控件调用ajaxUpload1：

Protected Sub ajaxUpload1_OnUploadComplete(ByVal sender As Object, ByVal e As AjaxControlToolkit.AjaxFileUploadEventArgs) 

    Dim filePath As String = "~/Uploads/" & Convert.ToString(e.FileName) 

    ' Save upload file to the file system 
    ajaxUpload1.SaveAs(MapPath(filePath)) 

    e.PostedUrl = Page.ResolveUrl("~\uploads\" + e.FileName) 
    Try 
     emailAttachment = New System.Net.Mail.Attachment(filePath) 
     attahchemnts.Add(emailAttachment) 
    Catch ex As Exception 
     Label2.Text = ex.ToString 
    End Try 


End Sub 

​​是由所有上传的文件名列表。

而且该位负责在按钮单击事件

Try 
      If ajaxUpload1.HasAttributes Then 

       For counter As Integer = 0 To attahchemnts.Count 
        mail.Attachments.Add(attahchemnts.Item(counter)) 

       Next 

      End If 
     Catch ex As Exception 
      Label2.Text = ex.ToString 
     End Try 

问题设置邮件的附件是我能够成功发送和接收电子邮件，但我看不到电子邮件附件。任何人都有线索？由于

Answer 1

这是我如何成功地做到这一点

var m = new MailMessage { Subject = txtSubject.Text, IsBodyHtml = true, Body = emailOpeningLine + txtMessage.Text }; 

      try 
      { 
       m.To.Add(new MailAddress(dr[0].ToString().Trim())); 
       m.From = new MailAddress(txtUserName.Text); 
       foreach (var attachment in Attactments) 
       { 
        m.Attachments.Add(new Attachment(attachment)); 
       } 
       client.Send(m); 
       m.To.Clear(); 
       m.Attachments.Clear(); 
       Success.Add(dr[0].ToString()); 
      } 
      catch (SmtpException esException) 
      { 
       Errors.Add("Error sending to " + dr[0].ToString() + " " + esException.Message); 
      } 
      catch (Exception ex) 
      { 
       Errors.Add("Error sending to " + dr[0].ToString() + " " + ex.Message); 

      } 

在这个例子中，我有串与是循环通过添加到邮件附件的位置列表C＃版本。

我也有一个成功和失败的名单，以便它继续失败，然后我拿起任何错误后。

您应该能够使用telerik code转换器