NewMail事件及每隔一些时间自动执行

leon51

我的outlook版本2003,有两个邮箱,一个是自己的Di,另一个PI是公共邮箱,
1,我写了以下一段代码处理PI邮箱中的邮件,收到新邮件时就触发。但是NewMail事件响应的是邮件进入Di邮箱而不是PI邮箱。请教如何才能响应PI中的NewMail事件

Private Sub Application_NewMail()
    StartTime = Timer
    Do While Timer - StartTime < 2
    Loop
    Set FindFolder = Application.GetNamespace("MAPI").Folders("邮箱 - PI[PI邮箱]").Folders("收件箱")
    Set itm = FindFolder.Items(1)
    '......
    Set itm = Nothing
    Set FindFolder = Nothing
End Sub

2,如果以上无法实现，我想每隔几分钟检查未读邮件,处理后标记为再标记为已读(PI邮箱本身就是仅供备份用),这样就一个都不会漏,但是每几分钟这怎么写，我查了Outlook不像Excel有ontime方法，请都如何才能达到目的

Sub t1()
    Set FindFolder = Application.GetNamespace("MAPI").Folders("邮箱 - PI[P邮箱]").Folders("收件箱")
    For i = 1 To FindFolder.UnReadItemCount
        '....
        FindFolder.Items(i).UnRead = False
    Next
End Sub

leon51

大神请帮帮手啊

leon51

怎么高手都不用outlook vba吗?这个版块太冷清了