Здравствуйте, уважаемые!

Проблемка следующая:
Имеются письма, на которые отвечают, задача заключается в том что когда человек отвечает фиксировать дату:время предыдущего письма. Написал следующий код:

<sup>Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim oMail As Outlook.MailItem
Dim Date_Post As Date
Dim x As Long

Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
If myOlSel.Item(x).Class = OlObjectClass.olMail Then
Set oMail = myOlSel.Item(x)
Date_Post = oMail.SentOn
End If
Next x</sup>


В большинстве случаев заносится корректная дата:время, но бывают случаи когда заносится значение 01.01.4501.
Кто сталкивался с такой ошибкой, просьба помочь!

Заранее спасибо!