Foxtable(狐表)用户栏目专家坐堂 → [求助] 自动提醒


  共有1766人关注过本帖树形打印复制链接

主题:[求助] 自动提醒

帅哥哟,离线,有人找我吗?
sanny
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
[求助] 自动提醒  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
WELOVEFOX
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:462 积分:3332 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2020/11/21 9:09:00 [只看该作者]

我做的练手模板,思路参考
1.增加一列,邮件发送成功时,记录发送成功(不成功,将定时发送时间+延长多长重新发)
2.增加一列定时发送时间
3.计划判断(可添加是否开启计划)有无相关邮件是否达到发送时间,是否启用发送。

图片点击可在新窗口打开查看此主题相关图片如下:2020-11-21_085914.png
图片点击可在新窗口打开查看


 回到顶部