求教ACCESS VBA中，延時(shí)7秒，然后模擬按下左方向鍵，回車鍵的代碼

rcylbx

我寫了一段群發(fā)郵件的代碼，提取數(shù)據(jù)表中的郵件地址，通過Outlook群發(fā)郵件，但是，outlook每發(fā)送一個(gè)郵件，都有5秒的延時(shí)，再左方向鍵，選定“是”，回車發(fā)送，很是麻煩，不知模擬上述動(dòng)作的代碼如何寫，請(qǐng)各位高手指教。

luhao

路過

ACMAIN_CHM

延時(shí)7秒, 或者用下面的方法簡(jiǎn)單實(shí)現(xiàn)，或者用個(gè)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語(yǔ)句吧。

但一般批量發(fā)郵件很少用outlook.application，普通的方法是CDO。 在MSDN中查一下CDO，會(huì)有很多例子。 不過CDO發(fā)的MAIL，接收方可以通過郵件頭看出不是通過EXCHANGE發(fā)的。



******************
*  一切皆有可能  *
******************
.
同一貼子不回復(fù)第二次
.
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://ctxi.cn .
.
http://ctxi.cn/home/space.php?uid=141646 .

rcylbx

延時(shí)7秒, 或者用下面的方法簡(jiǎn)單實(shí)現(xiàn)，或者用個(gè)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 發(fā)表于 2009-2-17 22:16

多謝指教，我曾在網(wǎng)上看到用CDO的代碼，下來繼續(xù)學(xué)習(xí)

jerrychan715

.........