主题：批量发送邮件

现在有表A，一列为邮箱地址，一列为附件。邮箱不同附件也不同。

 

如何一次性全部将附件发送到对应的邮箱里？

For Each dr As DataRow In DataTables(“xxx”).DataRows
    Dim m As New MailSender
    m.Host = "smtp.21cn.net"
    m.Account = "xiaoliu"
    m.Password = "xiaoliu1234567"
    m.From = "xiaoliu@Sina.com.cn"
    m.To = dr("邮箱")
    m.Title = "初稿已经完成"
    m.C
    m.AddAttachments(dr("附件"))
    m.SendAsync()
Next

同问，