RE: Lines 7 - 9
This code supposedly worked, but for which versions of outlook and word, unknown.
I'm getting"User-defined type not defined". How should "Set objWord = New word.Application" be defined?
Thank you for your time and effort.
Also, Doesn't Target App and TargetDoc need dimensioned?
' Now we open the canned response
Dim objWord As Application
' We need an easy pointer back to our new e-mail message, such as:
Set TargetApp = Application.ActiveInspector.WordEditor
Set TargetDoc = TargetApp.Windows(1).Selection
Set objWord = New word.Application
objWord.Visible = True
objWord.Documents.Open "C:\Documents and Settings\Steven Boyd\Desktop\Transfer.docx", , , True
' Select and Copy
Selection.End = True
' Then we just need to close the canned response
' Now we return focus to our e-mail message and paste the text
' Clean up
Set objDoc = Nothing
Set objSel = Nothing
Set TargetApp = Nothing
Set TargetDoc = Nothing