Konwertowanie wiadomości e-mail TXT do HTML OL2000

Uzywam MS OL2000 do odboiru poczty e-mail. Chciałbym aby ten program konwertował wszystkie przychodzace wiadomości ( może być ograniczenie do wiadomości TXT) do formatu HTML. Znalazłem sposób na stronie http://www.outlookcode.com/d/code/zaphtml.htm (kod Visual Basic), który konwertuje HTML na RTF. Proszę o pomoc. Podkreślam że chodzi o MS OL2000. Wklejam kod źródłowy ze strony:
Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
If Item.HTMLBody <> vbNullString Then
Item.Body = Item.Body
Item.Save
End If
Set Item = Nothing
End Sub

Znalazłem rozwiązanie do powyższego problemu. Wszystkie przychodzace e-mail w formacie TXT i RTF konwertowane są na HTML (program Outlook 2000). Poniższy kod umieszcza się w edytorze Visual Basic pod pozycją ThisOutlookSesion:

Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
Dim objReply As MailItem
If Item.GetInspector.EditorType <> olEditorHTML Then
Item.HTMLBody = Replace(Item.Body, vbCrLf, "<br>")
Item.Save
End If
Set objReply = Item.Reply
Set Item = Nothing

End Sub