MailSsender怎么提取子表中的信息，最好可以像表格一样展示出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

发送html格式的邮件代码。你需要在管理项目 -> 添加引用那里引用一下System.Net.Dll

代码

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "spring.me@qq.com")
message.Subject = "主题测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True

Dim body As String = "<html><body><table border='1'>单元格内容</table></body></html>"
Dim content As String = "<tr><th>第一列</th><th>第二列</th></tr>"
For Each dr As DataRow In Tables("表A").Current.DataRow.GetChildRows("表B")
    content &= "<tr><td>" & dr("第二列") & "</td><td>" & dr("第三列") & "</td></tr>"
Next

message.Body = body.Replace("单元格内容", content)

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

下载信息 [文件大小：下载次数： ]
点击浏览该文件:邮件_发送html.zip

主题：MailSsender怎么提取子表中的信息，最好可以像表格一样展示出来