Перебор всех писем в Outlook

Sub P1()
Dim Входящие As Outlook.Folder 'Для 2003 - MAPIFolder
Dim Письмо As Outlook.MailItem
Dim ИскомыйТекст As String
'В переменную ИскомыйТекст помещаем текст, который нужно искать.
ИскомыйТекст = "text"
'Будем обращаться к папке Входящие через переменную Входящие.
Set Входящие = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
'Я сделал в папке Входящие папку с именем Новая.
For Each Письмо In Входящие.Folders("Новая").Items
    If InStr(Письмо.Body, ИскомыйТекст) > 0 Then
        MsgBox "Письмо содержит искомый текст"
    End If
Next Письмо
MsgBox "Работа завершена", vbInformation
End Sub

Sub P1()
Dim Папка As Outlook.Folder 'Для 2003 - MAPIFolder
Dim Начало As Long, Конец As Long
Dim i As Long
Dim ИскомыйТекст As String
Set Папка = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Новая")
ИскомыйТекст = "Уважаемый"
'В переменную Начало поместите номер письма, с которого начать
'обработку писем.
Начало = 1
'Определение последнего обрабатываемого письма.
Конец = 1 + 499
'Надо провести проверку, что столько писем есть.
If Конец > Папка.Items.Count Then
    Конец = Папка.Items.Count
End If
For i = Начало To Конец Step 1
    If InStr(Папка.Items(i).Body, ИскомыйТекст) > 0 Then
        MsgBox "Письмо содержит искомый текст"
    End If
Next i
MsgBox "Работа завершена", vbInformation
End Sub