Dim m As New MailSender
m.Host = "smtp.126.com"
m.Account = "yangwenghd@126.com"
m.Password = " "
m.From = "yangwenghd@126.com"
m.To = "294068455@qq.com"
m.Title = "下周工作计划"
Dim str As String = ""
For Each r As Row In Tables("计划表窗口_Table1").Rows
str += r("下周工作计划") & ","
Next
For Each r As Row In Tables("计划表窗口_Table2").Rows
str += r("下周工作计划") & ","
Next
For Each r As Row In Tables("计划表窗口_Table3").Rows
str += r("下周工作计划") & ","
Next
For Each r As Row In Tables("计划表窗口_Table4").Rows
str += r("下周工作计划") & ","
Next
m.Content = str.Trim(",")
m.Send
msgbox("发送完毕")
加好友 
发短信
Post By：2014/4/20 22:39:00 [只看该作者]
