等待 5-10 秒，然后运行 ​​Outlook 代码

我的 Outlook 规则中有 VBA 代码。我希望当我收到具有特定主题的电子邮件时，Outlook 开始运行脚本。但是，当收到电子邮件时，Outlook 立即开始运行代码以获取上一封电子邮件，这可能是因为电子邮件刚刚收到且尚未移动到特定文件夹。

I tried

Application.Wait (Now + TimeValue("0:00:5"))

and

Outlook.Application.Wait (Now + TimeValue("0:00:5"))

就在抓取电子邮件之前

Set oLookMailitem = Application.ActiveExplorer.CurrentFolder.Items("Apples Sales")

VBA 显示错误

对象不支持此属性或方法

这是我的代码的开头：错误发生在Application.Wait (Now + TimeValue("0:00:5")).

Sub ExportOutlookTableToExcel()

Dim oLookInspector As Inspector
Dim oLookMailitem As MailItem

Dim oLookWordDoc As Word.Document
Dim oLookWordTbl As Word.Table

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook 
Dim xlWrkSheet As Excel.Worksheet

Dim Today As String
Today = Date

 Application.Wait (Now + TimeValue("0:00:5"))
'Grab Email Item
 Set oLookMailitem =Application.ActiveExplorer.CurrentFolder.Items("Apples Sales")

 Set oLookInspector = oLookMailitem.GetInspector

 Set oLookWordDoc = oLookInspector.WordEditor

展望没有Application.Wait

您可以使用以下方法解决此问题Do循环，一个Timer and DoEvents:

Public Sub Sleep(ByVal SleepSeconds As Single)
    Dim Tmr As Single
    Tmr = Timer
    
    Do While Tmr + SleepSeconds > Timer
        DoEvents
    Loop
End Sub

并称其为Sleep 5而不是你的Application.Wait.