以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  批量发送邮件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17544)
--  作者：jxkqf
--  发布时间：2012/3/16 11:19:00
--  批量发送邮件

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

 

如何一次性全部将附件发送到对应的邮箱里？
--  作者：狐狸爸爸
--  发布时间：2012/3/16 11:26:00
--  
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
--  作者：ljz
--  发布时间：2012/4/30 11:30:00
--  
同问，