Basically you cannot do it as you intended. What does the template contain, that cannot be used in a conventional forwarding of the original?
See the difference with the following.
If this doesn't work for you, can you post your template?Sub SendNew(Item As Outlook.MailItem) Dim objMsg As MailItem Dim olInsp As Outlook.Inspector Dim wdDoc As Object Dim oRng As Object Dim Answer As Long MsgBox "In SendNew" 'Set objMsg = Application.CreateItemFromTemplate(Environ("APPDATA") & "\Microsoft\Templates\Test.oft") Set objMsg = Item.Forward With objMsg Set olInsp = .GetInspector Set wdDoc = olInsp.WordEditor Set oRng = wdDoc.Range oRng.collapse 1 oRng.Text = "- - - - - - - - - - - - - - - - - - - - " & vbCr & "." _ & vbCr & "." & "From: " & Item.SenderEmailAddress & vbCr & "." & vbCr & "." _ & vbCr & Item.Subject & vbCr & "." & vbCr & "." .Subject = "FW: " & Item.Subject .Recipients.Add "me AT test.com" 'Send to selected person MsgBox "Before .display" .Display MsgBox "After .display" End With Answer = MsgBox("sendNewNunn. Send Message?", vbQuestion + vbYesNo + vbDefaultButton2) If Answer = vbYes Then objMsg.Send Set objMsg = Nothing Set olInsp = Nothing Set wdDoc = Nothing Set oRng = Nothing End Sub




Reply With Quote
