[求助] 自动提醒 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，以下是自动发邮件提醒审核人去审核单据。如何再做到如果这些单据的时间超过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编辑过]

主题：[求助] 自动提醒