например так Dim myOlApp As Object
Dim mynamespace As Object
Dim myFolder As Object
Set myOlApp = CreateObject("Outlook.Application")
Set mynamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = mynamespace.GetDefaultFolder(13)
Dim i As Integer
For i = 1 To myFolder.Items.Count
If myFolder.Items(i) = "ЗаголовокЗадачи" Then myFolder.Items(i).Display
Next