Sending rtf, doc, text as message body in outlook 2003 in vb.net

Hi,

I am trying to send a document using vb.net and outlook and words, The type of file i would like to send are (rtf, doc, txt) as the message body in the outlook message. Any one with experince in this area the help will be surely appreciated.

I have added the code below i get some type of hresult type error when i run this.





Public Sub SendDocMsg(ByVal subjectp As String, ByVal pEmail As String, _
ByVal fileDirLocation As String)

recipient = pEmail
subject = subjectp

Dim oLApp As Object
Dim oItem As Object
Dim oDoc As Object


On Error GoTo errorHandler


'Create a new mailitem
' oOutlook = New Outlook.Application
oLApp = CreateObject("Outlook.Application")
oItem = oLApp.CreateItem(0)
oDoc = CreateObject("Word.Application")
oDoc.Visible = True
oDoc.Documents.Open(fileDirLocation)


With oItem

'Set the recipient for the new email
.To = mRecipient

'Set the recipient for a copy
'.CC = "recipient2@mail.com"

'Set the subject
.Subject = mSubject

'The content of the document is used as the body for the email
.Body = oDoc.ActiveDocument.Content

.Send()
End With


errorHandler:
MsgBox(Err.Number & " " & Err.Description)
'Clean up
oItem = Nothing
oLApp = Nothing
oDoc = Nothing

End Sub ' SendMsg