- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 自动提醒 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158471)
-- 发布时间：2020/11/20 20:54:00
-- [求助] 自动提醒
老师， 以下是自动发邮件提醒审核人去审核单据。 如何再做到如果这些单据的时间超过2小时还未被审核，每二次再自动发一次。 审核清单中有一个列名“日期时间”。可以取这日期时间最早的那笔进行比较时间。谢谢。
Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem
msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.Recipients.Add("jus@g93123671.com")
msg.Subject = "提醒: 有新的采购单价,请审核!!!"
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "<a href=\'Z:\\\\GSS Shanghai\\\\Planning\\\\Order handling\\\\PriceTool\\\\PriceTool.exe\'>价格确认</a>"
msg.HTMLBody = body.Replace("内容", "这儿可点击进入: "& content)
msg.Send()
[此贴子已经被作者于2020/11/20 20:54:35编辑过]
-- 发布时间：2020/11/21 9:09:00
--
我做的练手模板，思路参考
1.增加一列，邮件发送成功时，记录发送成功(不成功，将定时发送时间+延长多长重新发)
2.增加一列定时发送时间
3.计划判断(可添加是否开启计划)有无相关邮件是否达到发送时间，是否启用发送。
此主题相关图片如下：2020-11-21_085914.png