以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]如何将邮件收件人联系方式批量在表格内加上@qq.com，或者能够直接导入到邮件通讯录里面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23673)
--  作者：以独攻独
--  发布时间：2012/9/16 16:29:00
--  [原创]如何将邮件收件人联系方式批量在表格内加上@qq.com，或者能够直接导入到邮件通讯录里面

急求，万分感谢
--  作者：以独攻独
--  发布时间：2012/9/16 18:27:00
--  
图片点击可在新窗口打开查看
--  作者：mr725
--  发布时间：2012/9/16 20:10:00
--  

啥意思？

--  作者：aygp
--  发布时间：2012/9/16 20:14:00
--  
在QQ号后面加个尾巴，让QQ号变成QQ邮箱
--  作者：lin_hailun
--  发布时间：2012/9/16 23:45:00
--  
 遍历所有的行，加上"@qq"

 For Each dr As DataRow In DataTables("表名").DataRows
    If dr("列名").EndsWith("@qq.com") = False Then
        dr("列名") = dr("列名") & "@qq.com"
    End If
Next
[此贴子已经被作者于2012-9-16 23:45:20编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/9/17 8:47:00
--  
呵呵，如果只是为了发邮件，可以直接用QQ号发：
 
Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
    m.To = dr("QQ号码") & "@QQ.COM"
    m.Title = "催款通知"
    m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
    m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
    m.SendAsync()
Next
--  作者：以独攻独2
--  发布时间：2012/9/18 18:25:00
--  
我有大量qq号已经导入表格内，但是要怎么把他们全部加上尾巴：@qq.com   直接能导入到收件人里，或者导入到邮箱通讯录，要批量操作的，不要一个个加，累死我的