Office中国论坛/Access中国论坛

标题: 求教ACCESS VBA中，延时7秒，然后模拟按下左方向键，回车键的代码 [打印本页]

作者: rcylbx 时间: 2009-2-17 21:58
标题: 求教ACCESS VBA中，延时7秒，然后模拟按下左方向键，回车键的代码
我写了一段群发邮件的代码，提取数据表中的邮件地址，通过Outlook群发邮件，但是，outlook每发送一个邮件，都有5秒的延时，再左方向键，选定“是”，回车发送，很是麻烦，不知模拟上述动作的代码如何写，请各位高手指教。

作者: luhao 时间: 2009-2-17 22:13
路过

作者: ACMAIN_CHM 时间: 2009-2-17 22:16
本帖最后由 ACMAIN_CHM 于 2009-2-17 22:19 编辑

延时7秒, 或者用下面的方法简单实现，或者用个timer事件

Public Sub t()
Dim t As Date

t = Now
Do While DateDiff("s", t, Now()) < 7
DoEvents
Loop
Debug.Print t, Now()
End Sub

忘了写"模拟按下左方向键，回车键的代码"
你到VBA的帮助中查一下sendkeys语句吧。

但一般批量发邮件很少用outlook.application，普通的方法是CDO。在MSDN中查一下CDO，会有很多例子。不过CDO发的MAIL，接收方可以通过邮件头看出不是通过EXCHANGE发的。

******************
* 一切皆有可能 *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: rcylbx 时间: 2009-2-17 22:35

延时7秒, 或者用下面的方法简单实现，或者用个timer事件

Public Sub t()
Dim t As Date

t = Now
Do While DateDiff("s", t, Now()) < 7
DoEvents
Loop
Debug.Print t, N ...
ACMAIN_CHM 发表于 2009-2-17 22:16

多谢指教，我曾在网上看到用CDO的代码，下来继续学习

作者: jerrychan715 时间: 2009-6-23 13:20
.........

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)