主题：两列同时发送

Dim str As String = ""
For Each r As Row In Tables("计划表窗口_Table5").Rows
    str &= r("事件目标") & "  " & ("事件类型")  & ","
Next
msgbox(str)

m.Content = str.Trim(",")
m.Send
msgbox("发送完毕")

str &= r("事件目标") & "  " & r("事件类型")  & ","

Dim str As String = ""
For Each r As Row In Tables("计划表窗口_Table5").Rows
    str &= r("事件目标") & "  " & r("事件类型")  & vbcrlf
Next
msgbox(str)

m.Content = str.Trim(",")
m.Send
msgbox("发送完毕")

QQ邮箱，要开启一下 smtp 服务

 

http://www.baidu.com/baidu?wd=qqmail+%BF%AA%C6%F4+smtp&tn=monline_4_dg

 

我测试，没，问，题。肯定是你没有开启。

 

Dim m As New MailSender
m.Host = "smtp.qq.com"
m.Account = "455189993"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "2355264810@qq.com"
m.Title = "李总明天来北京"
m.Content = "123456"
m.send()