求教ACCESS VBA中，延时7秒，然后模拟按下左方向键，回车键的代码

rcylbx

我写了一段群发邮件的代码，提取数据表中的邮件地址，通过Outlook群发邮件，但是，outlook每发送一个邮件，都有5秒的延时，再左方向键，选定“是”，回车发送，很是麻烦，不知模拟上述动作的代码如何写，请各位高手指教。

luhao

路过

ACMAIN_CHM

延时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

延时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

.........