- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 抄写给多个收件人 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108607)
-- 发布时间：2017/10/25 22:27:00
-- 抄写给多个收件人
可以同时添加多个收件人：
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.AddReceiver("meili@Sina.com.cn")
m.AddReceiver("yangzi@Microsoft.com")
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()
抄送多人，不可能是让普通用户直接写 addreceiver吧。
可否像普通的邮箱一样，直接在对话框中输入邮件地址。
另外，
可否提示是否发送成功。
-- 发布时间：2017/10/25 23:09:00
--
要换一种方法，如
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106877&skin=0
-- 发布时间：2017/10/26 13:34:00
--
邮件内容 如何发送列标题？
-- 发布时间：2017/10/26 14:32:00
--
Dim t As Table = Tables("表A")
content &= t.cols("第一列").Caption & " " & t.cols("第二列").Caption
-- 发布时间：2017/10/26 14:38:00
--
我想将列名和对应数据 对齐。
CWL22736切胶刀 CWL22736切胶刀(1) 1 00:00:00 7955
-- 发布时间：2017/10/26 14:54:00
--
你可以做表格，参考
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("455189993@qq.com")
message.To.Add("765427475@qq.com")
message.Subject = "主题测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "<table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr><tr><td>1</td><td>2</td><td>3</td></tr><tr><td>aaa</td><td>bbb</td><td>ccc</td></tr></table>"
message.Body = body.Replace("内容", content)
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try
-- 发布时间：2017/10/26 15:33:00
--
Dim content As String = "<Table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr><tr><td>dr("刀具名称")</td><td>dr("刀具编号")</td><td>dr("数量")</td></tr></Table>"
-- 发布时间：2017/10/26 15:45:00
--
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("455189993@qq.com")
message.To.Add("765427475@qq.com")
message.Subject = "主题测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "<table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr>"
Dim ary() As String = {"第一列", "第二列", "第三列"}
For Each dr As DataRow In DataTables("表A").datarows
content &= "<tr>"
For Each s As String In ary
content &= "<td>" & dr(s) & "</td>"
Next
content &= "</tr>"
Next
content &= "</table>"
message.Body = body.Replace("内容", content)
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try
-- 发布时间：2017/10/26 16:55:00
--
如何增加附件(刀图)
此主题相关图片如下：111.jpg
-- 发布时间：2017/10/26 18:20:00
--
参考代码
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("455189993@qq.com")
message.To.Add("765427475@qq.com")
\'message.Bcc.Add("2450314695@qq.com") \'密送
\'message.cc.Add("2450314695@qq.com") \'抄送
Dim content As String
content &= "这是文字" & vbcrlf
content &= "也是文字"
message.Body = content
Dim attachment As new System.Net.Mail.Attachment("d:\\test.xls", System.Net.Mime.MediaTypeNames.Application.Octet)
message.Attachments.Add(attachment)
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
finally
message.Dispose()
End Try