| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 定期发送邮件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106635) |
| -- 作者：yangwenghd -- 发布时间：2017/9/13 0:54:00 -- 定期发送邮件 可以在打开项目的时候 把记事表的事件日期的 明天和后天的发送到指定的邮件吗？感谢 感谢 Dim m As New MailSender m.Host = "smtp.163.com" m.Account = "收邮件名" m.Password = "密码" m.From = "收邮件名" m.To = "收邮件名" m.Title = "下周工作计划" Dim str As String = "" For Each r As Row In Tables("记事表").Rows str &= r("项目名称") & " " & r("备注") & vbcrlf Next 感谢 感谢 |
| -- 作者：有点甜 -- 发布时间：2017/9/13 9:05:00 -- Dim str As String = "" For Each r As DataRow In DataTables("记事表").Select("日期>=#" & Date.today.adddays(1) & "# and 日期<=#" & Date.today.AddDays(2) & "#") str &= r("项目名称") & " " & r("备注") & vbcrlf Next msgbox(str) |
| -- 作者：yangwenghd -- 发布时间：2017/9/13 22:40:00 -- 如果没有内容可以不发送吗？感谢 感谢 |
| -- 作者：有点甜 -- 发布时间：2017/9/13 22:54:00 -- 以下是引用yangwenghd在2017/9/13 22:40:00的发言：
如果没有内容可以不发送吗？感谢 感谢
判断
If str = Nothing Then return End If m.Content = str m.Send |
| -- 作者：yangwenghd -- 发布时间：2017/9/13 23:42:00 -- If str = Nothing Then Return End If For Each r As DataRow In DataTables("记事表").Select("事件日期>=#" & Date.today.adddays(1) & "# and 事件日期<=#" & Date.today.AddDays(2) & "#") str &= r("项目名称") & " " & r("事件内容") & vbcrlf Next \'msgbox(str) \'msgbox(str) \'预览代码 m.Content = str.Trim(",") m.Send msgbox("发送完毕") 是这样的吗？ 感谢 感谢
|
| -- 作者：有点甜 -- 发布时间：2017/9/14 9:02:00 -- For Each r As DataRow In DataTables("记事表").Select("事件日期>=#" & Date.today.adddays(1) & "# and 事件日期<=#" & Date.today.AddDays(2) & "#") str &= r("项目名称") & " " & r("事件内容") & vbcrlf
Next
If str = Nothing Then
Return
End If |