- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能实现类似网页邮件编辑多媒体发送功能吗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147266)
-- 发布时间：2020/3/12 22:00:00
-- 能实现类似网页邮件编辑多媒体发送功能吗
FT可以实现发送邮件功能，但是默认的是把文本框内容作为邮件正文发送出去。如果把文本框转变成象163邮件网页编辑功能？
此主题相关图片如下：邮件发送界面.jpg
-- 发布时间：2020/3/12 22:03:00
--
暂时没有这功能，未来可能会提供文本编辑器。
-- 发布时间：2020/3/12 23:38:00
--
谢谢狐爸！顺便报告一个例子中的BUG:
在例子五，对方收到的“收件人”始终显示为表中最后一个帐号的邮箱，而不是正确的收件帐号邮箱。
应该改为：
For Each dr As DataRow In DataTables("借款").Sel ect ( "到期日期 <= #" & Date.Today.AddDays(10) & "#")
Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = dr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()
Next
[此贴子已经被作者于2020/3/12 23:40:58编辑过]
-- 发布时间：2020/3/13 10:24:00
--
收到，谢谢