启动发布邮件软件,并修改录入时间,该如何修改

zhqmpc001

以下代码是双击邮箱地址文本框能自动启动发布邮件软件来发布邮件

Private Sub 邮箱地址_DblClick(Cancel As Integer)
FollowHyperlink "mailto:" & Me.邮箱地址 & "?subject=" & Me.公司名称 & ""
End Sub


在数据库中有个录入时间字段，我想双击双击邮箱地址文本框，先检测一下现在时间和录入时间比较一下，如果两个时间在1个星期内那就不要发布邮件弹出警告框，'这个星期已经通知客户了',否则就自动启动发布邮件软件来发布邮件,并修改录入时间字段为现在时间,请教高手以上代码该如何修改