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