Обработка входящих писем с помощью vbscript

Задача:Обрабатывайте входящие электронные письма с помощью vbscript.

Версия Outlook:Outlook 2000

Описание:Я не могу использовать для этого VBA, так как считаю, что Outlook 2000 не позволяет запускать сценарий VBA из мастера правил, и поэтому мне приходится использовать метод Run a Program | VBScript.

Что я знаю:Я знаю, как обращаться с электронной почтой из VBA вот так

Sub Sample(MyMail As MailItem)
    Dim strID As String, olNS As Outlook.NameSpace
    Dim olMail As Outlook.MailItem

    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set olMail = olNS.GetItemFromID(strID)

    '~~> Rest of the code

    Set olMail = Nothing
    Set olNS = Nothing
End Sub

Я также знаю, как запустить vbscript для письма, которое уже находится в папке «Входящие» . Чтобы запустить vbscript в OL2000, вы должны использовать Run A Programи указать его на файл vbs. Run A Scriptотсутствует в OL2000.

Чего я не знаю:И здесь мне нужна помощь. Как получить почтовый объект, который не попал в почтовый ящик в VBS. Как только я получу объект, я смогу выполнить остальные необходимые операции.