老师， 以下是自动发邮件提醒审核人去审核单据。 如何再做到如果这些单据的时间超过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编辑过]
加好友 
发短信
Post By：2020/11/20 20:54:00 [显示全部帖子]
