Send Word Document as an Email

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can I send a word document as an E-mail?
I have a word document as a template that i want do send automatically to an
e-mail passed to the routine.
I don't want to attached the document word. I want that the body of the
message be the same as the word document.

Thanks for the help.
 
You can automate Word to grab the text from a doc...

Function test() As String
Dim WordObj As Word.Application
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open "C:\test.doc"
test = WordObj.ActiveDocument.Content
WordObj.ActiveDocument.Close (False)
WordObj.Quit
Set WordObj = Nothing
End Function

(Having added a reference into Tools, References in a code window to point
to the Microsoft Word library.)
 
Back
Top