主题：MailSender收不到附件

发送邮件的附件能不能动态组合发出去，就是不同的行有不同的附件，这样的情况怎么发？

如果你的附件在Attachments目录，附件名称在某个列，代码可以这样写：

For Each r As Row In Tables("xxx").Rows
    Dim m As New MailSender
    m.Host = "smtp.21cn.net"
    m.Account = "xiaoliu"
    m.Password = "xiaoliu1234567"
    m.From = "xiaoliu@Sina.com.cn"
    m.To = "meili@Sina.com.cn"
    m.Title = "初稿已经完成"
    m.C
    m.AddAttachments(Pojectpath & "Attachments\" & r("附件列名称") )
    m.SendAsync()
Next