EXCEL时间到自动发邮件求助

zhangchangshu

        详细请查看下附件，请各位高手帮忙看下是否可以解决，谢谢了！

shuyee

理论上可行。
首先要用VBA代码--因为是自动，检测下次校验日期与系统日期的关系；
其次，最好是xp系统，这样用shell发送邮件比较简单(自己上网找)，你要是64位win7，就头大了。

zhangchangshu

shuyee 发表于 2014-6-16 19:13
理论上可行。
首先要用VBA代码--因为是自动，检测下次校验日期与系统日期的关系；
其次，最好是xp系统，这 ...

目前我是使用XP系统的，VBA我不懂，可以帮忙写个吗？谢谢！

shuyee

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

这是网上找来的，你们真懒
Private Sub Command1_Click()
ShellExecute Handle, "open", "mailto:cc@163.com?cc=abc@sina.com.cn&subject=Hello&Body=This is a test %0A nihao", _
0, 0, sw_maximize
End Sub

zhangchangshu

shuyee 发表于 2014-6-17 23:47
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, B ...

我试试，非常感谢！