怎么把大量的数据赋给mail.body。显示成类似记录详细列表的格式。
.......
Dim mailDR As OleDbDataReader
Dim strEmail, strSubject As String
Dim strSQLuser As String
Dim objcmdmail As OleDbCommand ' OLEDB提供者字符串
Dim objCon = New OleDbConnection(strDbCon)
objCon.Open() ' 打开数据库连接
strSQLuser = "SELECT user_name,user_email FROM esun_tbl_user "
' 建立Command对象的SQL命令
objcmdmail = New OleDbCommand(strSQLuser, objCon)
' 获取DataReader对象
mailDR = objcmdmail.ExecuteReader()
Dim objBcc As New MailAddressCollection
' 读取记录数据, 建立MailAddress对象
Do While mailDR.Read()
If mailDR.IsDBNull(mailDR. _
GetOrdinal( "User_Email ")) = False Then
strEmail = mailDR.Item( "User_Email ")
' 显示收件者的邮件地址
msg.Text &= "发送邮件到: <b> " & strEmail & " </b> <br> "
objBcc.Add(New MailAddress(strEmail))
End If
Loop
mailDR.Close() ' 关闭DataReader
objCon.Close() ' 关闭数据库连接
' 设置邮件的内容
strSubject = "Lynn test call mail "
' 使用副本密件发送大量邮件
sendEmail(objBcc, strSubject)
End Sub
' 发送电子邮件
Sub sendEmail(ByVal objBcc As MailAddressCollection,ByVal emailSubject As String)
Dim mail As MailMessage = New MailMessage()
mail.To.Add(New MailAddress( "Lynn.liang@esun21.com "))
Dim enum1 As IEnumerator = objBcc.GetEnumerator()
' 使用Do While循环添加元素
Do While enum1.MoveNext()
mail.Bcc.Add(enum1.Current)
Loop
mail.From = New MailAddress( "lynn.liang@esun21.com ")
mail.Subject = emailSubject ' 主题
mail.Body = TextBox1.Text '邮件主体
' 设置SMTP服务器
Dim smtpServer As New SmtpClient()
smtpServer.Host = "mail.esun21.com "
smtpServer.Send(mail) ' 发送邮件
End Sub
就是mail.body里。
我从数据库里用datareader读出了一条记录。有很多字段。
callDR.Item( "comp_name ")
callDR.Item( "type_name ")......
怎么在mailbody里把如下的格式输入进去
公司名： "callDR.Item( "comp_name ")
项目类型： "callDR.Item( "type_name ") "
......
报障时间：....
接受人：.....
[解决办法]
string strbody= " ";
strbody = strbody + "公司名： "+callDR.Item( "comp_name ") + "\n "+
"项目类型： "+callDR.Item( "type_name ") + "\n "+
" ";
mail.Body = strbody;
类似的就可以
[解决办法]
可以用freetextbox之类的控件
[解决办法]
学习
[解决办法]
我顶，学习，交流
[解决办法]
http://www.chnbokee.com/webrss/csdn__NET/
[解决办法]
可以用StringBuilder
Dim sb As New System.Text.StringBuilder
然后 sb.AppendLine(String.Format( " 公司名:{0} ", ：callDR.Item( "comp_name "))
